用OUTLOOK自动发邮件的程序代码

使用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中，以实现快速自动定向发邮件的功能。