E-Mail mit Outlook (nur best.Tabelle)

Guten Morgen
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Peter!
Du könntest die Tabelle als Datei im Anhang der
Mail versenden.
Folgender Code Speichert das aktive Tabellenblatt
als ".xls" Datei im Temporären Ordner, versendet
die Datei mit Outlook und löscht anschliessend
die Datei wieder.
Option Explicit

Sub BlattKopierenUndVersenden()
'aktives Tabellenblatt als Arbeitsmappe
'im Temporären Ordner speichern, als
'Anlage mit Outlook versenden und anschliesend löschen
Dim strPath As String
Dim strName As String
Dim strFile As String
strPath = "C:\Temp\" 'Pfad
strName = ActiveSheet.Name 'Tabellenname
strFile = strPath & strName & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs strFile
Senden strFile 'Datei versenden
.Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub

Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@irgendein-provider.de"
.Subject = "Betreffzeile Header"
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

E-Mail mit Outlook (nur best.Tabelle)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

E-Mail mit Outlook (nur best.Tabelle)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread