[问题] Outlook自动附加档案到新寄出的email

楼主: acro72 (let me think about it)   2020-05-18 15:40:54
软件: 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自动附加档案?谢谢。
作者: soyoso (我是耀宗)   2020-05-18 15:56:00
测试内文宏,可以新增电子邮件并有该附件https://i.imgur.com/Am9sTRH.jpg如果附件都相同,可以选项内自订功能区或快速存取工具列来新增该宏程序到快速存取工具列或索引标签内
楼主: acro72 (let me think about it)   2020-05-18 17:15:00
是的,我按执行钮也是会出现有附档的EMAIL,但会希望是按"新增电子邮件"钮就会自动附上要附的档案
作者: soyoso (我是耀宗)   2020-05-18 17:22:00
按下"新增电子邮件"按纽触发事件google outlook vba new email button event

Links booklink

Contact Us: admin [ a t ] ucptt.com