auf geöffnete Email antworten vba

[FrankyHB]

klappt leider nicht mit dem Code.

[ralf_b]

war ja auch ungetestet. Ich hab grad bissel gebastelt. vielleicht reicht dir da ja aus. 

Code:

Private Sub Angebot_Click()

Dim olApp As Object ', AktMail As Object,
Dim myAnswer As Object

Dim wdApp As Object
Dim wdDoc As Object
Dim strFilePath As String
Dim strContent ' As String
   
    ' Pfad zur Word-Datei (bitte anpassen)
    strFilePath = "F:\Pfad\zur\deiner\Datei.docx"
   
    ' Outlook-Anwendung und die aktuell ausgewählte E-Mail abrufen
    Set olApp = GetObject(Class:="Outlook.Application")
    Set olMail = olApp.ActiveExplorer.Selection(1)

    ' Word-Anwendung referenzieren und Dokument öffnen
    Set wdApp = GetObject(Class:="Word.Application") 'New Word.Application
    Set wdDoc = wdApp.Documents.Open(strFilePath)
   
     ' Den Inhalt des Word-Dokuments als HTML speichern
    strContent = wdDoc.Content
   
    'Word-Dokument schließen
     wdDoc.Close False
     wdApp.Quit False

Set olApp = GetObject(Class:="Outlook.Application")
If olApp Is Nothing Then Exit Sub

If Not olApp.ActiveInspector Is Nothing Then                'Pruefung auf offene Mail
   
With olApp.ActiveInspector.CurrentItem()
  Set myAnswer = .Reply                            'allen Antworten-Verweis
 
'in replybody den wordcontent schreiben
  myAnswer.Body = "Das ist nur ein Test" & vbCrLf & strContent
 
'nun den htmlbody der Originalmail an den htmlbody des reply anhängen.
  myAnswer.htmlbody = "<br><br>Inhalt aus der Word-Datei:<br>" & myAnswer.htmlbody & "<br><br>" & .htmlbody
  myAnswer.Display

End With
    Set myAnswer = Nothing
    Set olApp = Nothing
   
End If

Range("A1").Select

End Sub