当用户向他们的客户或老板发送电子邮件时，要保持跟踪是相当困难的。 在这种情况下，Excel就派上用场了。 因此，"自动发送电子邮件从 ǞǞǞ 至 展望" 已被证明是一种节省时间的方法。 Excel VBA 宏程序 和 HYPERLINK 功能可以自动发送电子邮件或使用Excel条目创建一个草稿。

比方说，我们有 雇员结构调整后的薪金 在Excel中的数据，我们想用以下方式自动发送电子邮件 展望 .

在这篇文章中，我们展示了多种变体的 VBA宏 和 HYPERLINK 功能来发送自动电子邮件，从 ǞǞǞ 至 展望 .

下载Excel工作簿

⧭ 打开Microsoft Visual Basic并在模块中插入代码

在继续演示任何方法之前，有必要知道打开和插入一个 模块 在 微软Visual Basic 在Excel中。

🔄 打开Microsoft Visual Basic。 主要有 3 开启方式 微软Visual Basic 窗口。

1.使用键盘快捷键。 新闻 ALT+F11 总的来说，要打开 微软Visual Basic 窗口。

2. 使用开发人员标签。 在一个Excel工作表中，转到 开发者标签 > 选择 视觉基础 ...... 微软Visual Basic 窗口出现。

3. 使用工作表标签。 转到任何工作表。 右键点击 就可以了> 选择 查看代码 (从 背景介绍 菜单 ).

🔄 在 Microsoft Visual Basic 中插入一个模块。 有 2 插入一个的方法 模块 在 微软Visual Basic 窗口。

1. 使用工作表的选项。 打开后 微软Visual Basic 窗口，选择一个 工作表 > 右键点击 就可以了> 选择 插入 (从 上下文菜单 )> 然后选择 模块 .

2. 使用工具条。 你也可以通过选择 插入 (从 工具栏 )> 然后选择 模块 .

从Excel到Outlook自动发送邮件的4种简单方法

方法1：使用VBA宏来自动使用Outlook向选定的收件人发送邮件

我们要创建一个执行的宏程序 钮扣 通过它，我们只需点击一下就可以将邮件发送给选定的收件人。

步骤1。 转到 插入 标签> 形状 > 选择任何提供的形状（即。 长方形：圆角 ).

第2步。 拖动 加上图标 在你想插入 形状 如下图所示。

第3步。 选择一个首选 形状填充 和 概要 颜色 然后右键点击它。 点击 编辑文本 来插入文本。

第4步。 使用 指示 打开 微软Visual Basic 并插入 模块 将以下宏粘贴在 模块 .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' 你可以使用.Send End With Next r End Sub 

➤ 在代码中。

1 - 开始宏程序时，将变量声明为 宗旨 和 字符串 .

2 - 运行一个 VBA for 循环处理选择中的每一行，以分配电子邮件的 发送至 , 主题 ，以及 身体 使用行条目。

3 - 指派变量。

4 - 进行 VBA与 语句来填充 展望 项目，如 发送至 , 邮件主题 等。这里的宏只执行了 显示 命令，以带出 展望 然而，如果 发送 命令用于替代或在 显示。 展望 将向选定的收件人发送创建的电子邮件。

5 - 完成 VBA for 循环。

第5步。 返回到工作表，右键点击 形状 然后选择 指派宏程序 从 上下文菜单 选项。

第6步。 选择宏（即：。 呼叫中心 )之下。 巨集名称 并选择 宏观在 选项为 本工作手册 .点击进入 认可 .

第7步。 现在，在工作表中，选择一个或多个雇员，然后点击 形状按钮 .

第8步。 Excel的提示 展望 到午餐，并创建或发送电子邮件给选定的员工。 当你选择其中两个员工时。 展望 生成两个不同的电子邮件草稿，准备发送。

由于该宏观只提供了 显示 指挥。 展望 只显示邮件草稿，不发送。 使用 发送 命令来自动发送电子邮件，从 ǞǞǞ 至 展望 使用单元格条目。

阅读更多。 自动发送电子邮件的Excel宏（3个合适的例子）。

方法2：根据特定单元格值自动从Excel发送邮件到Outlook

如果我们想在实现目标后自动发送电子邮件，从 ǞǞǞ 至 展望 一个宏代码可以轻松地完成这项工作。

假设，我们有 季度销售数据 如下图所示，在实现一个目标后（即：。 销售> 2000 )将自动提示 展望 从Excel发送电子邮件到一个指定的电子邮件ID。

步骤1。 在任何一台电脑上键入以下宏代码 模块 .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody as String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Greetings Sir" & vbNewLine & vbNewLine & _ "Our outlet has quarterly Sales more than the target." & vbNewLine & _ "It's a confirmation mail." & vbNewLine & vbNewLine & _ "Regards" & vbNewLine & _ "Outlet Team" On Error Resume Next With mMail . To = "[email protected]" . CC = "".BCC = "" .Subject = "关于实现销售目标的通知" .Body = mMailBody .Display '或者你可以使用.Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ 从上面的图片中，在各部分。

1 - 指定一个单元格（即。 F17 )的范围内，执行 VBA IF 语句。 如果该语句的结果是 真 ，该宏调用另一个宏来执行。

2 - 声明变量类型，并指定它们来填充 展望 '的条目。

3 - 执行 VBA与 语句将变量分配给电子邮件条目。 使用 发送 命令，而不是 显示 如果你想直接发送邮件而不审查它们。 收件人的电子邮件被插入到宏中。 如果你想自动插入收件人的电子邮件ID，请使用其他方法。

4 - 清除某些变量的赋值。

第2步。 使用 F5 在一会儿的时间里，Excel就取来了 展望 你可以点击下面的链接。 发送 或使用自动发送 发送 宏中的命令。

阅读更多。 根据单元格内容从Excel中自动发送邮件（2种方法）

类似读物

• 如何查看共享的Excel文件中的人员情况（快速步骤）
• 在Excel中启用共享工作簿
• 如何为多个用户共享Excel文件
• 如何应用宏来从Excel发送带附件的电子邮件

方法3：使用VBA Macro从Excel中通过Outlook发送带有活动工作表的电子邮件

另外，在某些情况下，我们可能需要发送一个完整的 活跃表 在这种情况下，我们可以使用一个 VBA自定义函数 在一个宏中被调用。

步骤1。 将下面的宏插入到 模块 .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display '或者你可以使用.Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Quarterly Sales Data" mBd = "Greetings Sir" & vbNewLine & vbNewLine & _ "Kindly find Outlet's Quarterly Sales Data attached with this mail." & vbNewLine & _ " It's a notification mail;vbNewLine & _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Successfully created the Mail draft or Sent" End If End Sub 

➤ 从上面的图片来看，代码的部分。

1 - 声明和设置变量。

2 - 指定命令，使用 VBA与 声明。 使用 显示 或 发送 命令，分别用于审查或直接发送电子邮件。

3 - 清除先前设置的变量。

4 - 指派 VBA与 有文本的命令。

5 - 执行 VBA自定义函数 .

第2步。 要执行该宏，请按 F5 ，并立即将Excel带出。 展望 之后，你就可以发送了。

阅读更多。 如何用Excel从Outlook发送群发邮件（3种方法）

方法四：使用HYPERLINK功能从Excel自动发送邮件到Outlook

ǞǞǞ HYPERLINK 函数在Excel单元格中生成一个可点击的链接，将 展望 作为一种媒介，从Excel中自动发送电子邮件。

步骤1。 在单元格中输入以下公式 H5 .

ǞǞǞ HYPERLINK 函数需要 "MailTo:"&C5&"? Subject="&F5&"&cc="&$D$2&"&body="G 5为 链接_location ，以及 "点击这里" 作为 友好名称 .

第2步。 撞击 进入 来粘贴链接。 然后点击链接。

第3步。 Excel带你到 展望 你看到所有的 展望 点击 "我的"，在 "我的 "中输入Excel中指定的数据。 发送 .

第4步。 拖动 填充手柄 将该公式应用于其他单元格。

阅读更多。 如何在Excel中满足条件时自动发送电子邮件

总结

VBA 宏程序变体 和 HYPERLINK 在从Excel向Outlook自动发送邮件时，该功能会很有帮助。 希望你能在以上描述的方法中找到你喜欢的方法。 如果你有进一步的询问或有什么要补充的，请留言。