伊莉討論區

標題: 在 Excel 上用 VBA 發送郵件及附件 [打印本頁]

---

作者: MarryHenry    時間: 2020-3-1 08:57 AM     標題: 在 Excel 上用 VBA 發送郵件及附件

在 Excel 上用 VBA 發送郵件及附件
Outlook 先開啟著 , 執行 Excel 上的程式 :

Sub mail_發送郵件及附件()
   
    Dim olApp As Object
    Dim Mail As Object
    Set olApp = CreateObject("Outlook.Application")
    Set Mail = olApp.CreateItem(olMailItem)
   
    ' 儲存現在這個 Excel 檔案
    ActiveWorkbook.Save
    ' 添加附件 ( 現在這個 Excel ) 檔案的完整路徑和檔名
    FileFN = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    ' mail 主旨
    str32 = "發送郵件及附件"
    ' mail 內容
    str33 = "Dear Sir :<br><br>" & "傳送最新 Excel 檔案<br><br>" & "我的名字<br>" & Date & " " & Time
    ' 收件者信箱
    to_Name = "e_mail_adress@outlook.com"
   
    With Mail
        .To = to_Name
        .Subject = str32
        .HTMLBody = str33
        .AttachMents.Add (FileFN)
        .Save
        .Send
    End With
   
    Set olApp = Nothing
   
End Sub

---

作者: zaq12345    時間: 2020-4-5 09:19 PM

謝謝大大的分享..大大辛苦了

---

歡迎光臨 伊莉討論區 (http://fallbackmx.www.wahas.com/)

Powered by Discuz!