最近不少朋友遇到要用Excel来批量发送邮件的问题，今天我们就举个实例并利用宏来完成。
1、首先在工作表中建立通讯录，其中首行为标题列，1-4列分别为收件人地址、标题、内容与附件。
2、打开“工具→宏→Visual Basic编辑器”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并输入以下宏：
Sub 批量发送邮件()
'要能正确发送并需要对Microseft Outlook进行有效配置
On Error Resume Next
Dim rowCount, endRowNo
'要正常运行下面这句,要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
'取得当前工作表与Cells(1,1)相连的数据区行数
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
'创建objOutlook为Outlook应用程序对象
Set objOutlook = New Outlook.Application
'开始循环发送电子邮件
For rowCount = 2 To endRowNo
'创建objMail为一个邮件对象
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
'设置收件人地址（从通讯录表的'E-mail地址'字段中获得）
.To = Cells(rowCount, 1)
'设置邮件主题
.Subject = Cells(rowCount, 2)
'设置邮件内容（从通讯录表的'内容'字段中获得）
.Body = Cells(rowCount, 3)
'设置附件（从通讯录表的'附件'字段中获得）
.Attachments.Add Cells(rowCount, 4)
'自动发送邮件
.Send
End With
'销毁objMail对象
Set objMail = Nothing
Next
以上代码在ExcelXP+Microseft Outlook XP中执行通过，你只要对“通讯录”和“批量发送邮件”宏代码稍作修改，就可以完成任何形式的大量邮件的发送。