VBAは電子メールに返信しますが、一部の情報がありません

Question

特定の形式の電子メールに返信する作業コードを書いていますが、その結果、最後に受信した電子メールの情報がHtml本文にありません、cc、subject。私はこれがメールヘッダと呼ばれるかどうかは分かりません）。

Outlook 2013のデフォルトの「返信」ボタンをクリックした場合、これらの情報は最後のメールより先に自動生成され、それ以上は返信内容となります。

これらの情報を呼び出すためにはどの機能を使用する必要がありますか？情報は私のすべての返信に表示されなければならないので、私はそれを一方向または他の方法で把握する必要があります。私のコード：

'there is a getsignature function before the code. 
Public Sub my_reply() 
Dim objOL As Outlook.Application 
Dim objMsg As Object 
Dim objSelection As Outlook.Selection 
Dim objMail As Outlook.mailitem 
Dim StrSignature As String 


StrSignature = GetSignature("C:\Users\xxx\xxx\Microsoft\Signatures\ABC.htm") 


Set objOL = CreateObject("Outlook.Application") 
Set objSelection = objOL.ActiveExplorer.Selection 
For Each objMsg In objSelection 
    If objMsg.Class = olMail Then 
     objMsg.Categories = "Category A" 

Set myreply = objMsg.Reply 
myreply.To = objMsg.SenderEmailAddress 
myreply.BCC = "xxx@abc" & " ; " & "xxx@abc" 
myreply.Subject = "XYZ matter" & objMsg.Subject 
myreply.Display 
myreply.HTMLBody = StrSignature & "<br><br>" & objMsg.HTMLBody 


Release: 
    Set objMsg = Nothing 
    Set oExplorer = Nothing 

    End If 

    Next 

End Sub 

ありがとうございます。

Answer 1

返信すべてがccを取得する必要があります。行方不明のテキストのみを心配している場合は、これを無視してください。あなたはobjMsg.HTMLBody

myreply.HTMLBody = StrSignature & "<br><br>" & objMsg.HTMLBody 

で初期myreply.HTMLBodyを上書きしている

Set myReply = objMsg.ReplyAll 

代わりに初期myreply.HTMLBody

Option Explicit 

Public Sub my_replyAll() 

'Dim objOL As Outlook.Application 
Dim objMsg As Object 
Dim objSelection As Selection 

'Dim objMail As Outlook.mailitem 
Dim myReply As mailitem 

Dim StrSignature As String 

StrSignature = GetSignature("C:\Users\xxx\xxx\Microsoft\Signatures\ABC.htm") 

' Set objOL = CreateObject("Outlook.Application") 
'Set objSelection = objOL.ActiveExplorer.Selection 
Set objSelection = ActiveExplorer.Selection 

For Each objMsg In objSelection 

    If objMsg.Class = olMail Then 

     Set myReply = objMsg.ReplyAll 

     myReply.To = objMsg.SenderEmailAddress 

     myReply.BCC = "xxx@abc" & " ; " & "xxx@abc" 

     myReply.Subject = "XYZ matter " & objMsg.Subject 

     myReply.Display 

     'myReply.HtmlBody = StrSignature & "<br><br>" & objMsg.HtmlBody 
     myReply.HtmlBody = StrSignature & "<br><br>" & myReply.HtmlBody 

Release: 
     Set objMsg = Nothing 

    End If 

Next 

End Sub