先問大家一個問題：
100 個附件要發(fā)給 100 個不同的人 ， 你用什么方式來發(fā)送？
是一個一個地發(fā)嗎？
那可能需要一個小時 ， 如果有更多附件 ， 估計很多人頭都大了 。
下面介紹一個一鍵發(fā)送的方法：
用excel設(shè)置、定義好后 ， 每次發(fā)送帶附件的郵件只需一個函數(shù)即可一秒完成批量發(fā)送 。
先看下演示效果：
視頻加載中…
操作步驟如下：
第一步：新建一個 excel 文件并打開
第二步：設(shè)置宏
文件→選項→信任中心→信任中心設(shè)置→宏設(shè)置→啟用所有宏→確定→確定
視頻加載中…
第三步：定義函數(shù) sendemail
開發(fā)工具→Visual Basic→鼠標左鍵單擊 VBAProject→鼠標右鍵→光標移動到“插入” →光標移動到“模塊”→雙擊鼠標左鍵→復(fù)制粘貼以下代碼：
‘添加參數(shù)（郵件地址 ， 主題 ， 內(nèi)容 ， 附件 1 ， 附件 2……）
Public Function sendmail(sendto As String, subj As String, mbody As String, filepath As String, filepaths As String)
【excel批量帶附件發(fā)郵件詳細教程來了 發(fā)送郵件的步驟和方法】 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
.Attachments.Add filepaths
.Send
‘判斷是否發(fā)送成功
If Err.Number = 0 Then
sendmail = “發(fā)送成功”
Else
‘如果發(fā)送失敗則返回失敗原因
sendmail = “發(fā)送失敗:” & Err.Description
End If
End With
Set oLApp = Nothing
Set oItem = Nothing
End Function
視頻加載中…
第四步：輸入發(fā)送郵件的有關(guān)內(nèi)容
附件的存儲路徑一鍵獲取教學(xué)視頻在主頁搜索存儲路徑”觀看
第五步：在 I2 單元格輸入=sendmail(D2,E2,F2,G2,H2) ， 下拉填充即可完成發(fā)送
視頻加載中…
第六步：文件另存為 Excel 啟用宏的工作簿
推薦閱讀
- Excel目錄完美的制作方法 表格制作教程從零開始
- 無損轉(zhuǎn)換的兩種方法介紹 excel怎么轉(zhuǎn)化成word格式
- 把excel轉(zhuǎn)換成ppt最簡單的方法 docx和doc怎么轉(zhuǎn)換
- 帶鷹的霸氣名字推薦
- 寬帶連接時出現(xiàn)711錯誤怎么辦 寬帶錯誤711最簡單解決方法
- 數(shù)據(jù)透視表應(yīng)用二教師必備技能 所占比例怎么算excel公式
- 寬帶常見故障與解決方法 筆記本寬帶連接打不開
- excel中實現(xiàn)對工作表保護步驟 excel只讀模式怎么取消
- 表頭設(shè)計竟如此簡單 斜線表頭怎么設(shè)置Excel
- 移動寬帶光信號閃紅燈是什么意思