刪除文本，而不會丟失原始郵件的前景格式vba

Question

我需要在轉發郵件之前刪除一些文本，每當我這樣做時我都會丟失格式。請參閱下面的代碼。

Sub RemoveExpression() 

Dim Insp As Inspector 
Dim obj As Object 
Dim subStr As String 
Dim oMail As MailItem 
Dim itmOld As MailItem, itmNew As MailItem 
    Set Insp = Application.ActiveInspector 
    Set oMail = Insp.CurrentItem 

    lPosition = InStr(oMail.Body, "Subject: ") - 1 
    ' obj.Subject = Mid(oMail.Subject, 5) 
    subStr = Left(oMail.Body, lPosition) 
    oMail.Body = Replace(oMail.Body, subStr, "") 
    oMail.Subject = Replace(oMail.Subject, "FW:", "") 

    'obj.Body = Replace(obj.HTMLBody, "abc", "") 
    Set obj = Nothing 
    Set Insp = Nothing 
End Sub 

如何保持格式化和刪除文本？

Answer 1

您正在處理純文本Body屬性。您需要閱讀並設置HTMLBody屬性。