软件: Outlook
版本: 2013
最近要寄信给旧客户,目前是会用word的合并打印来分批群发给客户,
但信件中都要附加规格档,请问该如何设定?
目前有试着用VBA,但用了下面的程式码后,按新信件仍然不会自动附加
档案到信件中。
Sub NewMessageWithAttachment()
Dim oMsg As Outlook.MailItem
Set oMsg = Application.CreateItem(olMailItem)
With oMsg
.Attachments.Add "C:\Attachment.doc"
.Display
End With
End Sub
不知道有没有什么方法可以让OUTLOOK自动附加档案?谢谢。