作者acro72 (let me think about it)
看板Office
标题[问题] Outlook自动附加档案到新寄出的email
时间Mon May 18 15:40:54 2020
软体: 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自动附加档案？谢谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.51.220.168 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1589787656.A.6F6.html
1F：→ soyoso: 测试内文巨集，可以新增电子邮件并有该附件 05/18 15:56
3F：→ soyoso: 如果附件都相同，可以选项内自订功能区或快速存取工具列来 05/18 15:58
4F：→ soyoso: 新增该巨集程序到快速存取工具列或索引标签内 05/18 15:59
5F：→ acro72: 是的，我按执行钮也是会出现有附档的EMAIL，但会希望是 05/18 17:15
6F：→ acro72: 按"新增电子邮件"钮就会自动附上要附的档案 05/18 17:16
7F：→ soyoso: 按下"新增电子邮件"按纽触发事件 05/18 17:22
8F：→ soyoso: google outlook vba new email button event 05/18 17:22