VBA Outlook EMail senden und als msg abspeichern

Hallo,

ich möchte über einen zusätzlichen Button in Outlook eine E-Mail versenden und auf einen festen Pfad abspeichern.

Soweit war ich schon:

Public Sub SendAndSave()
Dim obj As Object
Dim Mail As Outlook.MailItem

Set obj = Application.ActiveInspector.CurrentItem
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj
Mail.SaveAs "C:\temp\" & Mail.To & "_" & Mail.Subject & "_" & Format(Date, "yyyymmdd") & ".msg", olMSG
Mail.Send
End If
End Sub

Nur leider brauche ich die Nachricht in dem Format, wie sie in Gesendete Objekte liegt( also ohne das die Felder noch bearbeitbar sind.

Ist es möglich eine Mail zu senden und dann diese aus den Gesendeten Objekten abzuspeichern?

Hat jemand eine Idee?

Gruß
Michael