Excel中用VBA實現Outlook發送當前工作簿，首先按Alt+F11打開VBA編輯器，插入模塊，并在工具-引用中勾選 Microseft Outlook .0 Object Library(其中為你Microseft Outlook的版本號。

Sub 發送郵件()
'保存當前excel
ThisWorkbook.Save'讓excel連接outlook 要將工具/引用中的Microseft Outlook *.0 Object Library(其中*為你Microseft Outlook的版本號)選上
Dim 信差 As Outlook.Application
Set 信差 = New Outlook.Application
'創建郵件實例
Dim 新郵件 As MailItem
Set 新郵件 = 信差.CreateItem(olMailItem)
'獲取當前工作簿完整路徑
Dim filePath As StringfilePath = ThisWorkbook.FullName'MsgBox filePathWith 新郵件'設置收件人地址.To = ""'設置抄送收件人地址.CC = ""'設置郵件主題.Subject = ""'設置郵件內容.Body = ""'設置附件.Attachments.Add (filePath)'顯示UI'.Display'發送郵件.SendEnd With' 清理Set 新郵件 = NothingSet 信差 = NothingEnd Sub