Outlook電子メールからExcelにテキストを抽出する - 書式を確認する

Question

電子メールからExcelにテキストを抽出していますが、特殊なフォントの取り消し線があるテキストに問題があります。抽出した後、そのフォーマットが失われ、他のすべてのテキストのように見えますが、取り消し線は意味を変更します。そのような場合は、次のような条件を使用する必要があります。

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

誰でもその経験がありますか？

CODEの主要部分：あなたが代わりにプレーンテキストBodyのHTMLBody財産と協力し、返されたHTMLを解析する必要があるだろう

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

。