[問題] Outlook自動附加檔案到新寄出的email

[acro72 (let me think about it)]

軟體: 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://www.ptt.cc/bbs/Office/M.1589787656.A.6F6.html
→ soyoso: 測試內文巨集，可以新增電子郵件並有該附件
→ soyoso: https://i.imgur.com/Am9sTRH.jpg
→ soyoso: 如果附件都相同，可以選項內自訂功能區或快速存取工具列來
→ soyoso: 新增該巨集程序到快速存取工具列或索引標籤內
→ acro72: 是的，我按執行鈕也是會出現有附檔的EMAIL，但會希望是
→ acro72: 按"新增電子郵件"鈕就會自動附上要附的檔案
→ soyoso: 按下"新增電子郵件"按紐觸發事件
→ soyoso: google outlook vba new email button event