我对VBA的前景一无所知。我希望可以记录宏,但是我发现这是不可能的。
所以,我每天要收到近100封以纯文本格式发送的电子邮件,而我始终需要转换为HTML,以便选择Quick Parts,然后发送电子邮件。
可以通过VBA自动执行吗?
MailItem.BodyFormat属性允许设置指示正文文本格式的OlBodyFormat常数。例如:
Sub CreateHTMLMail()
'Creates a new email item and modifies its properties.
Dim objMail As MailItem
'Create mail item
Set objMail = Application.CreateItem(olMailItem)
With objMail
'Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><H2>The body of this message will appear in HTML.</H2><BODY>Type the message text here. </BODY></HTML>"
.Display
End With
End Sub
要处理传入的电子邮件,您可以使用Application类的NewMailEx事件。当有新消息到达收件箱时以及在发生客户端规则处理之前,将触发NewMailEx
事件。您可以使用EntryIDCollection
数组中返回的Entry ID来调用NameSpace.GetItemFromID方法并处理该项目。