查看完整版本: 在 Excel 上用 VBA 發送郵件及附件

論壇 › Visual Basic 語言 › 在 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...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

zaq12345 發表於 2020-4-5 09:19 PM

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