【利用預設郵件批次產生Email寄發】
這個功能在工作領域的應用上，可以發揮非常大的作用…
有需要的學員，不妨試一試…
舉例來說：
採購人員每天發單給供應商，可以統整張訂購表
可以利用Excel，從清冊直接轉成一張張的採購單
並另存成PDF檔，自動掛到Email附件中
包含內文的抬頭，內容都能自動生成
細節不多說了~
本篇主要重點為產生Email的那段語法
'寄送Email===============================================
Dim objOL As Object, objMail As Object
Set objOL = CreateObject("Outlook.Application") '定義一個outlook物件
Set objMail = objOL.CreateItem(olMailItem) '定義一個Mail項目
'設定Mail項目的相關屬性
With objMail
.To = 收件者
.Cc = 副本
.Bcc = 密件副本
.Subject = 主旨
.Body = 信件內容
.Display '顯示郵件
End With
↓***以下這段，我沒試過。因為不建議直接送出。重要文件還是看過再送~
'SendKeys "%s", True ' 自動按ALT+S以送出郵件
Set objMail = Nothing
Set objOL = Nothing
完整課程：
〔VBA〕範例：Outlook批次寄發Email(1/2)--v024
〔VBA〕範例：Outlook批次寄發Email(2/2)--v025
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※