Excel-Inhalt einer Word-Datei in eine Outlook-Antwortmail einbetten VBA?

Question

Accepted Answer

Um den Inhalt einer Excel-Datei in eine Outlook-Antwortmail einzubetten, kannst du VBA (Visual Basic for Applications) verwenden Hier ist ein Beispiel, wie du dies umsetzen kannst:

1. Öffne Outlook und drücke `ALT + F11`, um den VBA-Editor zu öffnen.
2. Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject (Dein Outlook)" klickst und "Einfügen" > "Modul" wählst.
3. Kopiere und füge den folgenden Code in das Modul ein:

```vba
Sub EmbedExcelContentInOutlookReply()
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim xlApp As Excel.Application
    Dim xlWorkbook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim rng As Excel.Range
    Dim strContent As String

' Outlook-Anwendung und die aktuelle Mail abrufen
    Set olApp = Outlook.Application
    Set olMail = olApp.ActiveInspector.CurrentItem

' Excel-Anwendung öffnen und die gewünschte Datei laden
    Set xlApp = New Excel.Application
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Pfad\zu\deiner\Datei.xlsx") ' Pfad zur Excel-Datei anpassen
    Set xlSheet = xlWorkbook.Sheets(1) ' Erster Arbeitsblatt

' Bereich definieren, der in die E-Mail eingebettet werden soll
    Set rng = xlSheet.Range("A1:B10") ' Bereich anpassen

' Inhalt des Bereichs in eine HTML-Tabelle umwandeln
    strContent = RangetoHTML(rng)

' Antwortmail erstellen und den Inhalt einfügen
    With olMail.Reply
        .HTMLBody = strContent & .HTMLBody
        .Display ' oder .Send, um die E-Mail sofort zu senden
    End With

' Excel schließen
    xlWorkbook.Close False
    xlApp.Quit

' Objekte freigeben
    Set rng = Nothing
    Set xlSheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

Function RangetoHTML(rng As Excel.Range)
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

TempFile = Environ$("temp") & "	emp.htm"

' Temporäre Arbeitsmappe erstellen
    rng.Worksheet.Copy
    Set TempWB = ActiveWorkbook

' Bereich als HTML speichern
    With TempWB
        .SaveAs TempFile, xlHTML
        .Close False
    End With

' HTML-Inhalt lesen
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close

' Temporäre Datei löschen
    Kill TempFile
End Function
```

4. Passe den Pfad zur Excel-Datei und den Bereich an, den du einfügen möchtest.
5. Schließe den VBA-Editor und führe das Makro aus, während du eine E-Mail in Outlook geöffnet hast.

Dieser Code öffnet die angegebene Excel-Datei, konvertiert den definierten Bereich in HTML und fügt ihn in die Antwortmail ein.

Excel-Inhalt einer Word-Datei in eine Outlook-Antwortmail einbetten VBA?

Verwandte Fragen

Ist Shapes("Rechteck 1").Visible = True korrekt in Excel-VBA?

Ist folgender Excel-VBA-Code korrekt: HeightPt = Rows("4:" & Cells(49,19).Row).Height?

Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?

Ist der Code wert = Range("Ergebnisse[Gab Bauteil lang]").Value in VBA fehlerfrei?

Kann man Private Sub Workbook_SheetBeforeRightClick in Private Sub Workbook_Open integrieren?

Gibt es If Not (Bedingung) Then in VBA für Excel?

Ist 'Range(Cells(a,10):Cells(b,10)).Copy' im VBA-Code korrekt?

Wie kann ich mit VBA den Bereich 'Test' in Blatt 1 kopieren und in Blatt 2 ab Zelle B18 einfügen?

Wie kann man Zahlen in Excel-VBA ohne wissenschaftliches Format in eine .txt-Datei schreiben?

Wie lautet die Syntax, um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren?