我希望创建一个宏,将日期插入电子邮件正文中目前正在开放进行编辑,在发送之前.
我在 Windows 7 计算机上使用 Outlook 2013。
所需的工作流程:
- 单击回复电子邮件
- 在电子邮件编辑器中,将文本光标放在电子邮件正文中所需的位置以插入文本
- 执行宏(通过单击电子邮件编辑器窗口的快速访问工具栏中的图标)。宏将插入日期。
(假设日期已存储为字符串变量,即宏只是将变量插入电子邮件正文中的所需位置)。
我发现的所有将文本插入电子邮件正文的 Outlook VBA 示例都涉及将活动电子邮件的 HTMLBody 存储为字符串,将所需的文本附加到该字符串,然后创建一封全新的电子邮件,并重新填充“收件人”、“抄送”、“密件抄送”、主题和 htmlbody。我希望避免这种情况,因为它看起来很笨重。
预先感谢您的帮助。
插入之前方法 https://msdn.microsoft.com/en-us/library/office/aa212203(v=office.11).aspx or 插入后方法 https://msdn.microsoft.com/en-us/library/office/ff192427.aspx
Inspector.WordEditor 属性 (Outlook) https://msdn.microsoft.com/en-us/library/office/ff868196.aspx
Application.ActiveInspector方法(Outlook) https://msdn.microsoft.com/en-us/library/office/ff863939.aspx
Example
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 对象库
通过按 转至 Outlook VBA 编辑器"Alt + F11"
键或单击"Visual Basic"
“开发人员”功能区中的按钮。
- 3.在对话框中,您可以向下拉滚动条,直到找到所需的内容,例如“Microsoft Word XX.X 对象库”。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)