|
http://club.excelhome.net/dispbbs.asp?boardID=32&RootID=497&ID=497
贴子中 Rowen朋友的代码可以用,但我想将邮件发给所有联系人,每封邮件的附件是
以联系人名字命名的.xls文件,哪位朋友能帮我把段代码写出来?
不胜感激!
Sub Creat_MSOutlook_Mail()
'新建一个邮件.如果多个,可循环/调用
Dim myOlApp As Object, myMail As Object,olMailItem,olSave
Dim myRecipient$, mySubject$, myBody$, myAttachmentFile$
Set myOlApp = CreateObject("Outlook.Application")
Set myMail = myOlApp.CreateItem(olMailItem)
myAttachmentFile = "C:\My Documents\Sample.xls"
myRecipient = "Rowen [Rowengu@21cn.com]" '收件人
mySubject = "Test" '主题
myBody = "This mail was created by me via Excel" '内容
With myMail
.Subject = mySubject
.Body = myBody
.Attachments.Add myAttachmentFile
.NoAging = True '不用 Outlook 等待
.Recipients.Add myRecipient
.Close (olSave) '先保存已创建的邮件到"草稿",执行发送命令时会转到"发件箱"
End With
Set myOlApp = Nothing '释放内存
'myMail.Display'显示,要看一下吗?
'myMail.Send'或者发送它
End Sub |
|