vba代码-在不破坏格式的情况下替换html电子邮件中的文本

时间:2018-10-16 04:57:57

标签: vba outlook outlook-vba

我试图用自定义的URL文本替换电子邮件(Skype会议邀请)中的特定文本。我可以通过Outlook单击运行(2016/2019)中的vba宏来对纯文本进行此处理,但是如果我针对会议创建的预期html电子邮件运行以下内容,则会完全破坏格式。

Sub ChangeS4bMeeting()
Application.ActiveInspector.CurrentItem.body = Replace(Application.ActiveInspector.CurrentItem.body, "Conference ID: ", "https://linkhere")
End Sub

最终会正确替换文本,并将冒号后的空格添加到替换文本作为URL,但是整个邀请电子邮件的格式都会中断。

我尝试使用“ HTMLBody”值而不是“ body”值,但是由于它在该行中断,因此完全无法运行。有任何想法吗?当我在Outlook中选择“新建项目”>“ Skype会议”而不是手动运行宏(或者该宏直接包括创建Skype会议)时,是否还可以自动运行该事件?

提前谢谢!

1 个答案:

答案 0 :(得分:0)

您必须确保放置在HTMLBody中的内容的格式正确,并且所有此类文本都应放置在HTMLBody中的和标记之间。

有关更多信息,请参见以下链接:Find and Replace as a VBA Macro

您可以创建执行脚本的自定义规则,以实现执行脚本的特定条件。

请参见以下链接:Create a Custom Rule executing a Script