在Excel中发送电子邮件时如何插入Outlook签名？

假设您想直接在 Excel 中发送电子邮件，如何在电子邮件中添加默认的 Outlook 签名？ 本文提供了两种方法来帮助您在 Excel 中发送电子邮件时添加 Outlook 签名。

通过Excel VBA发送时将签名插入Outlook电子邮件
使用出色的工具在Excel中发送电子邮件时轻松插入Outlook签名
有关在Excel中发送邮件的更多教程...

通过Excel VBA发送时将签名插入Outlook电子邮件

例如，工作表中有一个电子邮件地址列表，用于向 Excel 中的所有这些地址发送电子邮件，并在电子邮件中添加默认的 Outlook 签名。 请应用下面的 VBA 代码来实现它。

1.打开包含要通过电子邮件发送到的电子邮件地址列表的工作表，然后按 其他 + F11 键。

2.在开幕 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块 然后复制以下内容 编程语言2 进入模块代码窗口。

3.现在您需要更换 。身体 排队 编程语言2 与中的代码 编程语言1. 之后，移动该行 。显示 线下 使用xMailOut.

VBA 1：在 Excel 中使用 Outlook 默认签名发送电子邮件的模板

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2：将电子邮件发送到Excel中单元格中指定的电子邮件地址

Sub SendEmailToAddressInCells()
    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
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

以下屏幕截图可帮助您在更改VBA代码后轻松找到差异。

4。 按 F5 键来运行代码。 然后一个 Kutools for Excel 选择框弹出，请选择您要发送电子邮件的电子邮件地址，然后单击 确定。

然后创建电子邮件。 您可以看到 Outlook 默认签名添加在电子邮件正文的末尾。

提示：

• 1.您可以根据需要更改VBA代码1中的电子邮件正文。
• 2.运行代码后，如果弹出错误对话框警告未定义用户定义类型，请关闭此对话框，然后单击 工具 > 参考资料 ，在 Microsoft Visual Basic应用程序 窗口。 在开幕 参考– VBAProject 窗口中，检查 Microsoft Outlook对象库 框并单击 确定。 然后再次运行代码。
  

使用出色的工具在Excel中发送电子邮件时轻松插入Outlook签名

如果您是VBA的新手，强烈建议您 发电子邮件 实用程序 Kutools for Excel 为了你。 使用此功能，您可以轻松地基于Excel中的某些字段发送电子邮件，并向其中添加Outlook签名。 请执行以下操作。

首先，您需要创建一个包含不同字段的邮件列表，您将基于这些字段发送电子邮件。

您可以根据需要手动创建邮件列表，也可以应用“创建邮件列表”功能快速完成。

1。 点击 Kutools 加 > 创建邮件列表。

2.在 创建邮件列表 对话框中，指定所需的字段，选择在何处输出列表，然后单击 OK 按钮。

3.现在，将创建一个邮件列表示例。 由于它是示例列表，因此您需要将字段更改为某些所需的内容。 （允许多行）

4.然后，选择整个列表（包括标题），然后单击 Kutools 加 > 发电子邮件。

5.在 发电子邮件 对话框：

• 5.1）所选邮件列表中的项目将自动放置在相应的字段中；
• 5.2）完成电子邮件正文；
• 5.3）同时检查 通过Outlook发送电子邮件 和 使用Outlook的签名设置 盒;
• 5.4）点击 提交 按钮。 看截图：

现在，电子邮件已发送。 并将默认的Outlook签名添加到电子邮件正文的末尾。

相关文章：

最佳办公生产力工具

🤖	Kutools 人工智能助手：基于以下内容彻底改变数据分析： 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
	热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
	超级查询: 多条件VLookup  |   多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
	高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
	列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
	特色功能: 网格焦点   |  设计图   |   大方程式酒吧   |  工作簿和工作表管理器   |  资源库 （自动文本）   |  日期选择器   |  合并工作表   |  加密/解密单元格   |  按列表发送电子邮件   |  超级筛选   |   特殊过滤器 （过滤粗体/斜体/删除线...）...
	前 15 个工具集:  12 文本 工具 (添加文本, 删除字符，...）   |   50+ 图表 类型 (甘特图，...）   |   40+ 实用 公式 (根据生日计算年龄，...）   |   19 插入 工具 (插入二维码, 从路径插入图片，...）   |   12 转化 工具 (小写金额转大写, 货币兑换，...）   |   7 合并与拆分 工具 (高级组合行, 分裂细胞，...）   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

阅读更多 免费下载...

---

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

• 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
• 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
• 每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多 免费下载...