ich habe ein kleines Probelm, ich möchte aus Excel heraus auf eine geöffnete Mail antworten.
Das klappt mit folgendem Code auch ganz gut, nur möchte ich das die Antwort an die geöffnete Mail angehängt wird. In meinem Fall wird ein neues Fenster geöffnet.
Code:
Private Sub Angebot_Click()
Dim Outlook As Object Dim Mail As Object Dim Att As Object Dim strDateiname As String Dim strPath As String Dim strPath2 As String Dim strPDF As String Dim strFile As String Dim Quelle$, Ziel$, FSO As Object Dim olApp As Object ', AktMail As Object, Dim myAnswer As Object
Set olApp = CreateObject("Outlook.Application") If Not olApp.ActiveInspector Is Nothing Then 'Pruefung auf offene Mail
With olApp.ActiveInspector.CurrentItem() Set myAnswer = .Reply 'allen Antworten-Verweis .Close False 'Aktuelle Mail schliessen End With
With myAnswer .Body = "Das ist nur ein Test" .Display End With
versuchs mal mit Chatgpt und dessen Kollegen in den diversen Browsern. Das hab ich für die vorherige Antwort auch gemacht. Sonst mach ich eigentlich kaum was mit VBA im Outlook. Somit kann ich hier auch nur ausprobieren.
Grundsätzlich würde ich meinen du möchtest das Angebot als Anhang mitsenden dann geht das bekanntlich über die .attachement.add Funktionalität
31.08.2024, 15:10 (Dieser Beitrag wurde zuletzt bearbeitet: 31.08.2024, 15:33 von volti.)
Hallo Frank,
kleine Anmerkung zu:
.htmlbody = "<img src=""H:\Angebot.docx"">
Die Syntax soll ja ein Image anzeigen.
Das geht nicht, weil - .docx kein Bild ist, - spätestens nach Versand kein Zugriff mehr auf die Datei bestehen würde und ein Platzhalter-Bild angezeigt würde. Du müsstest einen Internet- oder Netzwerkpfad dort angeben. - hier meistens eine cid: also ein Zeiger auf eine im Hintergrund mitgeschickte Bilddatei in der Mail angegeben wird.
wie bereits geschrieben, frag mal so eine Ki. Hier der Auswurf von meiner Opera Aria. Hoffe das passt, da ungetestet.
Code:
Sub ReplyWithWordHtmlContent() Dim olApp As Outlook.Application Dim olMail As Outlook.MailItem Dim olReply As Outlook.MailItem Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim strFilePath As String Dim strContent As String
' Pfad zur Word-Datei (bitte anpassen) strFilePath = "C:\Pfad\zur\deiner\Datei.docx"
' Outlook-Anwendung und die aktuell ausgewählte E-Mail abrufen Set olApp = Outlook.Application Set olMail = olApp.ActiveExplorer.Selection(1)
' Word-Anwendung und Dokument öffnen Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Open(strFilePath)
' Den Inhalt des Word-Dokuments als HTML speichern strContent = wdDoc.Content.HTMLText