Registriert seit: 25.06.2020
Version(en): 2010
klappt leider nicht mit dem Code.
Registriert seit: 12.06.2020
Version(en): 2024, 365business
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