画像を削除せずにOutlook電子メール本文のテキストを置き換える方法

Question

Excel 2016 VBAでは、電子メールの本文のテキストを置き換えるためにOutlookを自動化しています。交換をする部分は次のようになります。

Dim oEmail As Object, strEmailSubject As String, strEmailBody As String 
Set oEmail = GetActiveOutlookEmail 
strEmailBody = TranslateOneEmailElement(oEmail.Body) 
If strEmailBody <> oEmail.Body Then oEmail.Body = strEmailBody 

（。私は、彼らが問題に関連しているとは思わないし、ちょうど混乱の多くを追加するようGetActiveOutlookEmailとTranslateOneEmailElement機能を残してきました）

これは、テキストには問題ありません。ただし、メール本体に画像がある場合は、その行が削除されます。

テキストを1行置きに置き換えてイメージをそのまま残すにはどうすればよいですか？

Answer 1

プレーンテキストBodyプロパティを読み込んで設定していて、イメージだけでなくすべての書式を消去しています。代わりにHTMLBodyプロパティで作業する必要があります。