Sub 在EXCEL中用VBA群发N个Outlook邮件并简单设置邮件正文格式()

Dim a, b As Object '定义2个对象型变量

Dim m, n, i As Long '定义3个long型整数变量

Dim c, d, a1, a2, a3, a4, a5, a6, a7, a8 As String '定义3个字符串型变量

Set a = CreateObject("Outlook.Application") '引入outlook软件

m = Rows.Count '数一下当前所在excel工作表总共有多少行

n = Cells(m, 1).End(xlUp).Row '找到A列最后一个非空单元格所在行的行号

For i = 2 To n Step 1 '利用for..next循环将excel表格中的数据转换成outlook邮件初稿

Set b = a.CreateItem(olMailItem) '创建一个邮件

c = Cells(i, 1).Value '从excel表格A列第i个单元格获取收件人邮箱

b.To = c '把收件人邮箱输入到outlook邮件收件人中

d = Cells(i, 2).Value '从excel表格B列第i个单元格获取outlook邮件标题

b.Subject = d '把标题输入到邮件中

a1 = "" & Cells(i, 3) & Cells(i, 5) & "" & "您好 ！" 'a1至a8的内容连在一起即为邮件正文内容

a2 = "

您2020年度的急急急有关信息如下："

a3 = "

1、换行额度为：" & Cells(i, 6) & "元。" '一个注意问题是：cells(i,6)实际上是个变量，随i而变，要想在HTML文本中设置变量的格式，不能直接使用"Cells(i, 6) "这种方式，而要使用"" & Cells(i, 6) & ""这种方式，或者"你好" & Cells(i, 6) & "你好"这种方式

a4 = "

2、范围为员工及其父母、配偶、子女，具体姓名、身份证号码等以系统中个人申报的信息为准。"

a5 = "

3、号：000715wwww7300ww0018，查询、信息变更等操作办法请参见网络。"

a6 = "

4、合同将于2020年12月31日到期。"

a7 = "

如有疑问，请联系XXXX(TEL:5898697120)。"

a8 = "

温馨提示：哈哈哈。"

b.HTMLBody = a1 & a2 & a3 & a4 & a5 & a6 & a7 & a8

'b.HTMLBody = Cells(i, 3) & Cells(i, 5) & "您好 ！" & "

您8月份工资为" & Cells(i, 6) & "元" & "，请查收！" & "

谢谢！" '设置正文内容及简单格式(分三行显示及部分红色字体)

b.display '把整个邮件初稿展示出来，如果不需要展示就直接发送，把display改成send

Set b = Nothing '释放邮件占用的电脑内存

Next i '起草下一封邮件

'此段代码向A列的每一个邮箱独立起草一个Outlook邮件初稿，A列有多少个邮箱，就起草多少个初稿。前提是要在excel表格中提前准备好收件人、邮件标题、邮件正文等内容

End Sub

运行结果如下：

HTML语言中设置字体格式的代码：

XXXX,把XXXX的颜色设置为红色

XXXX,把XXXX的颜色设置为"#dd0000"对应的颜色

XXXX,把XXXX的字体大小设置为1

XXXX,把XXXX的字体大小设置为1,颜色设置为红色

XXXX,把XXXX的字体设置为宋体

XXXX,把XXXX的字体设置为宋体,字体大小设置为1,颜色设置为红色

XXXX或者XXXX，使XXXX倾斜

XXXX或XXXX,使XXXX加粗

XXXX,为XXXX加单下划线

XXXX,为XXXX加闪烁效果

XXXX，大型字

XXXX,小型字