如果要在Excel中发送HTML格式的正文内容的电子邮件,本文中的方法可以为您提供帮助。
使用VBA代码通过HTML电子邮件正文发送电子邮件
使用VBA代码通过HTML电子邮件正文发送电子邮件请执行以下操作以在Excel中发送具有HTML格式正文内容的电子邮件。
1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。
2.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块。 然后将下面的VBA代码复制到“模块”窗口中。
VBA代码:在Excel中使用HTML电子邮件正文发送电子邮件
Sub SendEmailformattext() Update by Extendoffice.com Dim xRg As Range Dim xRgEach As Range Dim xRgVal As String Dim xAddress As String Dim xOutApp As Outlook.Application Dim xMailOut As Outlook.MailItem On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8) If xRg Is Nothing Then Exit Sub Application.ScreenUpdating = False Set xOutApp = CreateObject("Outlook.Application") Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues) For Each xRgEach In xRg xRgVal = xRgEach.Value If xRgVal Like "?*@?*.?*" Then Set xMailOut = xOutApp.CreateItem(olMailItem) With xMailOut .Display .To = xRgVal .Subject = "Test" .HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style=font-family:calibri;font-size:25>Font size</br></p></BODY></HTML>" .Send End With End If Next Set xMailOut = Nothing Set xOutApp = Nothing Application.ScreenUpdating = True End Sub:
3。 点击 工具 > 参考资料, 检查 Microsoft Outlook对象库 框 参考– VAProject 对话框,然后单击 OK 按钮。 看截图:
4。 按 F5 键来运行代码。 在弹出 Kutools for Excel 对话框中,选择收件人的电子邮件地址,然后单击 OK 按钮。
然后创建具有指定字段和HTML正文的电子邮件。 请点击 送出 按钮发送。
根据创建的邮件列表,通过Outlook轻松发送电子邮件:
发电子邮件 实用程序 Kutools for Excel
帮助用户根据Excel中创建的邮件列表通过Outlook发送电子邮件,如下面的屏幕快照所示。
立即下载并试用! (30-天免费试用)准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!
⏱️ 高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。
***