Bereich in Mailbody kopieren
04.12.2018 20:14:43
{Boris}
ich möchte einen Excelbereich (A3:B10) in den Mailbody kopieren/einfügen. Wie geht das?
Sub Mail()
Dim MyOutApp As Object
Dim MyMessage As Object
Set MyOutApp = CreateObject("Outlook.application")
Set MyMessage = MyOutApp.createitem(0)
With MyMessage
.To = "Max.Muster@irgendwo.com"
.cc = "Test@irgendwo.com"
.Subject = "Betreffzeile"
.Body = 'Hier soll Tabelle6.Range("A3:B10") reinkopiert werden
.Display ' Mail anzeigen ohne automatischen Versand
'.Send ' Mail automatisch senden ohne vorherige Anzeige
End With
Set MyMessage = Nothing
Set MyOutApp = Nothing
' Mailversand ENDE
End Sub
Boris