将Outlook电子邮件中的文本提取到Excel-检查格式

我正在将电子邮件中的文本提取到Excel中，但我对具有特殊字体（删除线）的文本有问题。提取后，它的格式会松动，看起来和其他所有文本一样，但删除会改变其含义。在这种情况下，我需要使用以下条件：

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

有人有过这样的经历吗

守则的主要部分：

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

---

您需要使用HTMLBody属性而不是纯文本体，并解析返回的HTML

代码是否运行？您可以添加电子邮件正文的示例图像吗问题是您的数组只存储文本，没有格式行=拆分，您需要搜索复制整个正文的方法