本人最近一直在研究EXCEL VBA批发邮件工具，也服务了一些客户。在此总结了一些经验，分享给大家。
一、批发邮件工具可支持
1. 指定发件箱
2. 不同的邮件标题
3. 可带附件，可抄送别的邮箱
4. 不同的收件人不同的称呼
二、可批量发送的邮件类型
：
1. 外贸开发信，支持HTML图文并茂邮件，可结合MAILCHIMP来用。
2. 人事工资条，支持带EXCEL表格附件。
3. 财务对账单，支持在所有客户的账单中筛选某个客户，在正文里粘贴和附件附上EXCEL对账单表格。
4. 其他需要批发邮件的情况。
三、从技术难度由低到高来看，财务对账单难度最高。
1. 外贸开发信：
1） 固定的邮件内容（记得要先转成HTML代码）
2） 加不同的称呼，这时就需要把邮件内容拆成两部分
2. 人事工资条，一条一条按顺序发邮件。
1） 只需要附上EXCEL表格的附件
2） 还需要把EXCEL表格放在正文里
3. 财务对账单，按客户列表一个一个客户发邮件。
1） 需要先筛选某个客户的数据，并加总未付款金额
2）需要附上EXCEL表格的附件，还需要把EXCEL表格放在正文里
四、技术分享
邮件内容如何转成HTML代码：
把文字放在QQ邮箱写信那里，点击格式下面</> 复制HTML代码就可以。
如果还要加个图片的话， 就得先把这个图片上传到MAILCHIMP上或其它网上得到这个图片的网址，再在QQ邮箱里插入这个图片网址。
以下是一些重要的VBA代码，大家可复制过去用：
1. 指定发件箱发邮件：
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Outlook.Application.Session.Accounts
If oAccount.DisplayName = "****@qq.com" Then
Set oMail = Outlook.Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
2. EXCEL表格放在正文里，需要用到以下Function RangetoHTML
Public Function RangetoHTML(Rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
Rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
TempWB.Close savechanges:=False
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
以下为我目前已整理好的发邮件模板截图，有需要可找我哦，QQ 153403284，谢谢！
1. 外贸开发信有EDM邮件，可结合MAILCHIMP发HTML邮件
2. 人事工资条
3. 财务对账单
