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

Question

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

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

所需的工作流程：

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

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

我发现将文本插入电子邮件正文的所有Outlook VBA示例都涉及将活动电子邮件的HTMLBody存储为字符串，将所需文本附加到该字符串，然后创建一个全新的电子邮件，然后重新填充to，cc，bcc，subject和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" 键或点击“Developer”功能区中的 "Visual Basic" 按钮，转到Outlook VBA编辑器的

     

  

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

  < / LI>   

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

  

     

     

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