在 VBA 中，寄送郵件–OutLook 用法

先前介紹過“在 VBA 中，寄送 GMail 郵件”，現在來說下，要如何使用 OutLook 來寄送郵件。

一樣照抄程式碼，稍加改點內容即可。

Sub Mail2SZ_Click()
    Dim objOutlook As Object
    Dim objMail As Object
   
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
   
    objMail.To = "PertonChang@gmail.com"
    objMail.Subject = "Forecast"
    objMail.Body = "FYI" & vbCrLf & "Shalom!"
    objMail.Attachments.Add "D:\GitHub\Videos.zip"       ' 添加附件檔案

'    objMail.Display     ' 可以編輯郵件內容，再按下 傳送 鍵。
'    objMail.Save         ' to save a copy in the drafts folder
    objMail.Send        ' 直接送出郵件

    Set objOutlook = Nothing
    Set objMail = Nothing
End Sub