Question

我必须以UTF-8或流字节格式发布内容邮件正文和mailitem附件，并保留所有电子邮件正文格式。进行此要求的最佳方法是什么。谢谢

Answer 1

您可以使用MailItem类的HTMLBody属性，该属性返回或设置一个表示指定项目的HTML正文的字符串。

Sub CreateHTMLMail()  
 'Creates a new email item and modifies its properties.  
 Dim objMail As Outlook.MailItem  
 'Create email item  
 Set objMail = Application.CreateItem(olMailItem)  
 With objMail  
 'Set body format to HTML  
 .BodyFormat = olFormatHTML  
 .HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>"  
 .Display  
 End With  
End Sub

要获取实际字节，可以使用Encoding.UTF8.GetBytes方法。

对于Web加载项，您可以使用以下代码：

Office.context.mailbox.item.body.getAsync(
  "html",
  { asyncContext: "This is passed to the callback" },
  function callback(result) {
    // Do something with the result.
  });

将Outlook.MailItem正文和附件转换为UTF8或流

1 个答案: