outlook批量發送不同內容：outlook批量發送郵件附件

實際工作中經常會遇到批量發郵件的需求,比如發送工資條、節日祝福、定期彙報工作成果、日報、周報、月報等，當然如果發送的郵件不是很多的話完全可以手工發送,一旦遇到批量發送的場景,手工一份一份的發送就會變得機械而重複勞動了。今天分享一個Excel調用電腦OutLook批量發送郵件的技巧，小夥伴們可以，先收藏，等要用到的時候可以有備無患，從容應對，別人加班的時候你還可以準點下班，那豈不是很樂哉！

一、先看看我們需要實現的效果。

發郵件跟寫公式一樣簡單^-^

二、怎樣才可以實現？

原理：通過VBA定義一個發郵件的函數，達到批量發送郵件時跟普通公式的用法一樣簡單的效果。

上面的效果圖中我們定義了一個sendmail的函數，如果你現在打開你的excel找這個函數是找不到的，因為這個並不是office的內置函數,但微軟給office產品都安裝了一個神技能 「宏」,表親們應該都聽過這個，這次咱先不去追究這到底是什麼東西,先看如何實現。

具體步驟：

1. 新建一個空白的Excel文件。
2. 打開Excel文件,按快捷鍵ALT+F11進入VBE界面。
3. 點擊左邊的工程窗口,點擊滑鼠右鍵,新建一個模塊。
4. 把代碼貼入到模塊中。
5. 回到Excel界面,開始驗證發郵件函數。
6. 上面文字沒看懂的請看下面的演示。

三、發郵件的VBA代碼。

感興趣的童鞋們可以複製以下代碼按上面的操作試一試。

'發送郵件函數 sendto收件人多個用英文分號鏈接 subj郵件主題 mbody郵件正文 filepath附件路徑
Public Function sendmail(sendto As String, subj As String, mbody As String, filepath As String)
 On Error Resume Next
 Dim oLapp As Object
 Dim oItem As Object
 Set oLapp = CreateObject("Outlook.application")
 Set oItem = oLapp.createitem(0)
 With oItem
 .Subject = subj
 .To = sendto
 .htmlbody = mbody
 '加上這一句就可以添加附件
 .Attachments.Add filepath
 .Send
 '判斷是否發送成功
 If Err.Number = 0 Then
 sendmail = "發送成功"
 Else
 '如果發送失敗則返回失敗原因
 sendmail = "發送失敗:" & Err.Description
 End If
 End With
 Set oLapp = Nothing
 Set oItem = Nothing
End Function

四、保存我們定義的郵件函數。

1. 如果你的Excel是2007及以上版本的，保存的時候會出現如下提示。
2. 保存時請選擇啟用宏的工作簿即可。

補充說明：

2007版本及以上的Excel為了保證安全性,強制了含VBA代碼的專用文件格,常用存為xlsm格式。

2003版本的Excel,後綴是xls的Excel文件可以直接存儲VBA代碼,不需要另存為其他格式。