Ich möchte ein best. Tabellenblatt einer Arbeitsmappe aus Excel mit Outlook versenden.
Soweit funktioniert es.
Leider geht beim Kopiervorgang die vorhandene Formatierung verloren. Wie kann ich das verhindern oder kann ich nur die „Tabelle2“ direkt ohne kopieren versenden.?
Danke Peter
Ich verwende folgenden zugeposteten Code:
Sub Excel_Range_via_Outlook_Senden() Dim OutApp As Object, Mail As Object, i Dim Nachricht Dim ClpObj As DataObject Set ClpObj = New DataObject Set OutApp = CreateObject("Outlook.Application") Set Nachricht = OutApp.CreateItem(0) Range("A1:A5").Select 'Bereich wird in die Zwischenablage kopiert Selection.Copy With Nachricht .Subject = "Betreffzeile Header" '***Zwischenablage wird eingefügt ClpObj.GetFromClipboard .Body = ClpObj.GetText(1) .To = "irgendwer@irgendein-provider.de" '**** Hier wird die Mail angezeigt '.Display 'Hier wird die Mail gleich in den Postausgang gelegt .Send End With Set OutApp = Nothing Set Nachricht = Nothing End Sub