如何搜索＆amp;替换在Outlook 2010 VBA中编写的电子邮件中

Question

我正在尝试编写一些VBA搜索，并将段落标记替换为我正在撰写的电子邮件中的手动换行符。

虽然我在Excel中编写VBA，但我是Outlook 2012 VBA的新手。

我开始使用此代码

tmp = Split(mail.HTMLBody, vbCrLf)
For Each Line In tmp
    If Line <> "" Then
        newBody = newBody  & Line & vbCrLf
    End If
Next
mail.HTMLBody = newBody

来自VBA Outlook - Replace Paragraph Mark With Manual Line Break。

我尝试将“mail”更改为“item.htmlbody”，但我收到“Object Required”错误。

有人可以用这个让我走上正确的道路吗？

Answer 1

在处理当前项目之前

设置mail = ActiveInspector.CurrentItem