按如下數據群發郵件

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,小型字

總結

以上是生活随笔為你收集整理的html字体代码大全_Vba群发邮件及HTML设置字体格式的代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。