在日常工作中，經(jīng)常會遇到需要群發(fā)郵件的情況，但很多時候我們有的只是一張有郵箱地址的excel表格，很多人這時不知道下一步該怎么做，今天一米軟件就來教教大家怎么給excel表格中的郵箱群發(fā)郵件。

一、數(shù)據(jù)準(zhǔn)備

主要包括以下內(nèi)容：

1) 第一列為“郵件地址”，必須是完整的帶后綴的郵件地址。

2) 第二列為“郵件主題”，不同的收件人可以根據(jù)需要寫不同的主題。

3) 第三列為“郵件內(nèi)容”，不同的收件人可以根據(jù)需要寫不同的內(nèi)容。這里的內(nèi)容在發(fā)送時是以純文本格式發(fā)送的，在單元格里設(shè)置的格式均無效。

4) 第四列為“郵件附件”，附件必須帶有完整的路徑，且必須包括文件擴展名。

5) 第五列為“郵件簽名”，簽名必須帶有完整的路徑，且必須包括文件擴展名。這里的郵件簽名是自動提取使用者郵箱里設(shè)置的簽名，如果沒有設(shè)置簽名，那么將為空。

二、插入按鈕

1、點擊“開發(fā)者工具”頁面，選擇“插入”中的“控件工具”。然后選擇“命令按鈕”

2、畫出按鈕

在表格下面空白處畫出“命令按鈕”。這時候該按鈕默認(rèn)為編輯狀態(tài)，按鈕四周也有編輯框。

三、輸入代碼

1、雙擊可編輯狀態(tài)的“命令按鈕”，便進入VBA代碼編輯器。

2、復(fù)制以下代碼到VBA編輯器中。替換掉編輯器里原有的兩行內(nèi)容。

PrivateSub CommandButton1_Click()

'要能正確發(fā)送并需要對MicroseftOutlook進行有效配置

On Error Resume Next

Dim rowCount, endRowNo

Dim objOutlook As New Outlook.Application

Dim objMail As MailItem

Dim SigString As String

Dim Signature As String

'取得當(dāng)前工作表與Cells(1,1)相連的數(shù)據(jù)區(qū)行數(shù)

endRowNo = Application.WorksheetFunction.CountIfs(Range("A:A"),"<>")

'創(chuàng)建objOutlook為Outlook應(yīng)用程序?qū)ο?

Set objOutlook = New Outlook.Application

'開始循環(huán)發(fā)送電子郵件，比如從第二行開始，第一行是標(biāo)題

For rowCount = 2 To endRowNo

Set objMail =objOutlook.CreateItem(olMailItem) '創(chuàng)建objMail為一個郵件對象

'提取郵件簽名

SigString =Worksheets("Sheet1").Cells(2, 5)

If Dir(SigString) <>"" Then

Signature =GetBoiler(SigString)

Else

Signature = ""

End If

With objMail

.To = Cells(rowCount,1).Value '設(shè)置收件人地址(從Excel表的第一列"郵件地址"字段中獲得)

.Subject = Cells(rowCount,2).Value '設(shè)置郵件主題(從Excel表的第二列"郵件主題"字段中獲得)

.HTMLBody = Cells(rowCount,3).Value & Signature '設(shè)置郵件內(nèi)容(從Excel表的第三列"郵件內(nèi)容"字段中獲得)

.Attachments.Add Cells(rowCount,4).Value '設(shè)置附件(從Excel表的第四列"附件"字段中獲得)

.Send

End With

Set objMail = Nothing '銷毀objMail對象

Next

MsgBox ("郵件全部發(fā)送完成!")

Set objOutlook = Nothing '銷毀objOutlook對象

End Sub

'提取郵件簽名子函數(shù)

FunctionGetBoiler(ByVal sFile As String) As String

Dim fso As Object

Dim ts As Object

Set fso =CreateObject("Scripting.FileSystemObject")

Set ts =fso.GetFile(sFile).OpenAsTextStream(1, -2)

GetBoiler = ts.readall

ts.Close

EndFunction