如何使用VBA将文本插入Outlook电子邮件编辑器

Question

我希望创建一个将日期插入到电子邮件正文中的宏，该电子邮件正文当前在发送前已打开以进行编辑。

我正在Windows 7计算机上使用Outlook 2013。

所需的工作流程：

• 单击回复电子邮件
• 在电子邮件编辑器中，将文本光标置于电子邮件正文内所需的位置以插入文本
• 执行宏（通过单击电子邮件编辑器窗口的快速访问工具栏中的图标）。宏将插入日期。

（假定日期已作为字符串变量存储，即宏仅将变量插入到电子邮件正文中的所需位置）。

我发现的用于将文本插入电子邮件正文的所有Outlook VBA示例都涉及将活动电子邮件的HTMLBody存储为字符串，将所需的文本附加到该字符串，然后创建全新的电子邮件，然后将其重新填充到cc，密件抄送，主题和htmlbody。我希望避免这种情况，因为它看起来很笨重。

谢谢您的帮助。

Answer 1

InsertBefore Method或InsertAfter Method

Inspector.WordEditor Property (Outlook)

Application.ActiveInspector Method (Outlook)

示例

Option Explicit
Public Sub Example()
    Dim Inspector As Outlook.Inspector
    Dim wdDoc As Word.Document
    Dim Selection As Word.Selection


    Set Inspector = Application.ActiveInspector()
    Set wdDoc = Inspector.WordEditor
    Set Selection = wdDoc.Application.Selection
        Selection.InsertBefore Format(Now, "DD/MM/YYYY")


    Set Inspector = Nothing
    Set wdDoc = Nothing
    Set Selection = Nothing
End Sub

---

---

参考Microsoft Word xx.x对象库

---

通过按"Alt + F11"键或单击“开发人员”功能区中的"Visual Basic"按钮，转到Outlook VBA编辑器。

• [[[[1。在VBA编辑器窗口中，单击菜单栏中的“工具”按钮。

• 2。然后，从下拉列表中选择“参考”选项。

• [[3。在对话框中，您可以向下拉下拉滚动条，直到找到所需的内容，例如“ Microsoft Word XX.X对象库”。