Tabellen-Bereich in E-Mail einfügen
22.07.2020 19:03:46
Jochen
Hallo zusammen,
erstmal ein großes Lob an alle die hier Antworten posten und ihr Wissen bereitstellen, hat mir schon einige Male geholfen, vielen Dank dafür!!!
ich berufe mich hier auf eine Fragestellung aus 2007 mit dem Titel "Tabellen-Bereich in E-Mail einfügen" leider hab ich keinen Weg gefunden direkt im Thread zu fragen....
Kurz zu meinem Problem: Ich möchte über einen commandButton automatisiert einen Excelbereich in eine Mail kopieren.
der folgende code hat bis jetzt super funktioniert:
Sub BEREICHMAILEN()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
' nachfolgend den gewünschten Tabellenbereich einstellen
Range("C47:G102").Select
Selection.Copy
' Öffnen der Mail
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.Subject = "Betrefftext"
.To = "Email@dresse.de"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Kurz warten, damit die Mail Zeit zum Öffnen hat
Application.Wait (Now + TimeValue("0:00:05"))
' Dann die Zwischenablage einfügen
Application.SendKeys ("%bi") ' im Menü BEARBEITEN (Alt-B) das e-I-nfügen wählen
'Application.SendKeys ("^v") ' Strg-V Anweisung ist die 2.Möglichkeit statt Alt-B + I
End Sub
Vielen Dank schon mal für eure Antworten.....