使用OUTLOOK自动发邮件的VBA程序代码
编制：Quzp
发布时间：20140201
为解决实际工作中定向批量发邮件的问题，特编制VAB程序代码如下：
Sub AddAttachment()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "E:\Test.doc", olByValue, 1, "Test" '插入附件
myItem.Subject = "test" '设定主题
myItem.Recipients.Add "ABC-1@" '收件人地址
= "ABB-1@"'抄送地址
myItem.BCC = " 2292914230@"
mDate = Format(Now, "yyyy-MM-dd")
myItem.Body = "这是一个测试软件,请注意,我需要您及时回复 " & vbCrLf & mDate '邮件正文
myItem.Display
myItem.send
End Sub
使用时打开OUTLOOK，选择工具—宏—VisalBasic编辑器—插入—模块—（粘贴以上代码）—运行。

以上代码可以用其它文件编辑或镶入其它VBA中，以实现快速自动定向发邮件的功能。