如何使用VBA将文本插入Outlook电子邮件编辑器
我希望创建一个宏,在发送之前将日期插入当前打开编辑的电子邮件正文中 我正在Windows 7计算机上使用Outlook 2013 所需的工作流程:如何使用VBA将文本插入Outlook电子邮件编辑器,vba,email,outlook,ms-word,Vba,Email,Outlook,Ms Word,我希望创建一个宏,在发送之前将日期插入当前打开编辑的电子邮件正文中 我正在Windows 7计算机上使用Outlook 2013 所需的工作流程: 单击回复电子邮件 在电子邮件编辑器中,将文本光标放置在电子邮件正文中所需的位置以插入文本 执行宏(通过单击电子邮件编辑器窗口的快速访问工具栏中的图标)。宏将插入日期 (假设日期已存储为字符串变量,即宏只需将变量插入电子邮件正文中所需的位置) 我发现的所有将文本插入电子邮件正文的Outlook VBA示例都涉及将活动电子邮件的HTMLBody存储为
- 单击回复电子邮件
- 在电子邮件编辑器中,将文本光标放置在电子邮件正文中所需的位置以插入文本
- 执行宏(通过单击电子邮件编辑器窗口的快速访问工具栏中的图标)。宏将插入日期李>
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对象库”