作者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/m.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