从Outlook电子邮件提取文本到Excel – 检查格式

我从电子邮件中提取文本到Excel，但我有问题的文字有特殊的字体，删除线。 解压缩之后，它的格式就像其他所有的文本一样，但是删除操作会改变它的含义。 在这种情况下，我需要使用条件，如下所示：

If lines(j).Font.Strikethrough = True Then lines(j) = "Deleted " & lines(j) 

有没有人有这方面的经验？

CODE的主要部分：

 Sub Export_Outlook_Emails_To_Excel() Dim Folder As Outlook.MAPIFolder Dim BodyMail As String Dim lines As Variant Dim row As Integer Dim DATA As Worksheet Dim j, Items As Long Set DATA = Worksheets("DATA") 'check emails – I deleted not important rows so normally it gioes through all emails in directory Set folder = Outlook.Session.Folders(„Archive“).Folders("Inbox").Folders("Changes") Items = Folder.Items.Count BodyMail = Folder.Items.Item(iRow).Body lines = Split(BodyMail, Chr(9)) ' split multi lines in a cell by TAB ' EXTRACT DATA FROM EMAIL For j = LBound(lines) To UBound(lines) 'export DATA from email into temporary DATA sheet ' --- HERE I NEED INSERT THE CONDITION, SOMETHING LIKE THIS --- If lines(j).Font.Strikethrough = True Then lines(j) = "Striketrough font : " & lines(j) DATA.Cells(row, 1) = (lines(j)) Next j End Sub 

Answer 1

您需要使用HTMLBody属性而不是纯文本Bodyparsing返回的HTML。