html字体加粗代码_Vba群发邮件及HTML设置字体格式的代码

按如下数据群发邮件

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 '把收件人邮箱