【如何替Email掛上附件】
前一篇我們已知道如何產生Email郵件〔VBA〕範例：Outlook批次寄發Email(1/2)--v024
若要自動掛上附件，要怎麼處理呢?
'替Email掛上附件===============================================
Dim objOL As Object, objMail As Object
Set objOL = CreateObject("Outlook.Application") '定義一個outlook物件
Set objMail = objOL.CreateItem(olMailItem) '定義一個Mail項目
Dim myAttachments as Object
myAttachments = objMail.Attachments
myAttachments.Add 附件的完整路徑
'↑這樣該附件就會被加入這份Mail中囉~
'若要加多份，只要重覆myAttachments.Add即可
Set myAttachments = Nothing
Set objMail = Nothing
Set objOL = Nothing
完整課程：
〔VBA〕範例：Outlook批次寄發Email(1/2)--v024
〔VBA〕範例：Outlook批次寄發Email(2/2)--v025
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※