Excel VBA 在转发的 Outlook 电子邮件中包含正文

excel

自动转发电子邮件是在excel VBA中非常常见的任务之一。Outlook是Microsoft Office套件中的一部分，它作为一款强大的电子邮件客户端，可以与VBA进行集成，以便在excel中自动化电子邮件的转发过程。

在开始编写代码之前，我们需要确保已经在excel VBA中引用了Outlook对象库。这可以通过以下步骤完成：

1. 打开excel VBA编辑器，选择“工具”菜单，然后选择“引用”选项。

2. 在“引用”对话框中，找到并选中“Microsoft Outlook XX.X 对象库”，其中的“XX.X”代表Outlook版本号。

3. 单击“确定”按钮，保存更改。

一旦我们成功引用了Outlook对象库，我们就可以开始编写代码来实现自动转发电子邮件了。下面是一个示例代码，演示了如何在转发的邮件中包含原始邮件的正文：

VBA
Sub ForwardEmAIl()
    Dim olApp As Outlook.Application
    Dim olMAIl As Outlook.MAIlItem
    Dim olForward As Outlook.MAIlItem
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 创建新的邮件项目
    Set olMAIl = olApp.CreateItem(olMAIlItem)
    
    ' 设置转发的邮件对象
    Set olForward = olMAIl.Forward
    
    ' 设置转发的邮件的收件人
    olForward.Recipients.Add "recipient@example.com"
    
    ' 设置转发的邮件的主题
    olForward.Subject = "转发的邮件"
    
    ' 在转发的邮件正文中包含原始邮件的正文
    olForward.HTMLBody = "<strong>原始邮件正文：</strong>" & olMAIl.Body
    
    ' 发送转发的邮件
    olForward.Send
    
    ' 释放对象变量
    Set olForward = Nothing
    Set olMAIl = Nothing
    Set olApp = Nothing
End Sub

上述代码中，我们首先创建了Outlook应用程序对象，并使用CreateItem方法创建了一个新的邮件项目。然后，我们使用Forward属性获取到转发的邮件对象。接下来，我们可以设置转发邮件的收件人、主题等信息。最重要的是，我们使用HTMLBody属性将原始邮件的正文添加到转发邮件的正文中。

在上述代码中，我们使用了标签来为标题添加强调效果。这个标签可以使标题在邮件正文中以粗体显示。你可以根据需要自定义邮件正文的格式，例如添加其他HTML标签或格式化文本。

值得注意的是，上述代码中的邮件转发是通过Outlook应用程序完成的。因此，在运行代码之前，请确保Outlook已经正确安装并且已经配置了有效的邮件账户。否则，转发邮件的过程可能会失败。

总的来说，通过excel VBA自动转发电子邮件是一个非常有用的功能。无论是将重要信息发送给团队成员，还是将报告发送给上级，都可以通过编写VBA代码来实现自动化的转发过程。通过上述示例代码，你可以了解到如何在转发的邮件中包含原始邮件的正文，并添加了标题标签，以提高邮件的可读性和信息传递的效果。希望这篇文章对你有所帮助！