Hallo
ich erstelle von Excel aus mit VBA ein neues Mail in Outlook und versende es
Auszug:
Text = "Hier die Dateien"
Bereich = Sheets("Basis").Range("F19:H23") '? in Text einfügen
Sheets("Basis").Range("F19:H23").Copy '? in Text einfügen
Set OL_App = CreateObject("Outlook.Application")
Set objMail = OL_App.CreateItem(0)
With objMail
.To = "Must, Werner"
.cc = "Schmitt, Doris"
.Subject = "Auswertungen" & Quartal & ". Quartal " & Jahr
.Body = Text
.Attachments.Add "D:\Excel\Test.xls"
.Attachments.Add "D:\Excel\Test1.xls"
.ReadReceiptRequested = False
.Display
End With
SendKeys "^v", True 'Einfügen des Kopierten Bereichs geht nicht
SendKeys "%s", True 'funktioniert, versendet das Mail
Klappt einwandfrei, was ich aber nicht hinbringe, einen bestimmten Bereich meines Tabellenblattes in das Mail zu kopieren und die anhängenden Dateien an eine bestimme Stelle des Mails zu platzieren.
Wer kann mit helfen?
Peter