在需要发送EMAIL的程序中写以下VBA程序,其中strEMailRecipient,strSubject,strBody分别是邮件接收地址,邮件标题和邮件内容,均为字符串。
Set appOutlook = Getobject ("Outlook.Application")
Set msg = appoutlook.CreateItem(olMailItem)
with msg
.To = strEMailRecipient
.Subject = strSubject
.Body = strBody
.sent
End With
appOutlook类型为 Outlook.Application
msg类型为 Outlook.MailItem
如果有多个发件人帐户,在OUTLOOK上可以通过MailItem的属性SendUsingAccount指定帐户,但这个属性值的类型并不是string,而是Account类型的,这个可以通过Application.Session.Accounts(i)来指定;