Bodytext in Mail
24.02.2015 09:46:44
gisela
ich benutze folgenden Makro (hier aus dem Forum)um zwei Tabellenblätter zusammenzufügen und als neue Mappe zu versenden, der auch funktioniert:
Sub TabellenblätterSenden()
Application.ScreenUpdating = False
Set WBOriginal = ActiveWorkbook
Sheets("nehmerstatistik").Copy
Call formatteiln
Set WbKopie = ActiveWorkbook
WBOriginal.Sheets("mittlungsstatistik").Copy after:=WbKopie.Sheets(WbKopie.Sheets.Count)
Call vermitteiln
WbKopie.SendMail "xxxxxhagekax@cccccgmx.de", "Statistik AI " & " " & "vom" & " " & Format(Date, _
_
"DD.MM.YYYY")
WbKopie.SendMail "xxxxxxxx@cccccc.de", "Statistik AI & " " & "vom" & " " & Format(Date, "DD.MM. _
_
YYYY")
WbKopie.Close savechanges:=False
End Sub
Wie kann ich dort noch einen Bodytext einbauen?
In Outlook erscheint immer die Abfrage "erteilen" oder "verweigern". Hier muss ich dann per Hand erteilen anklicken. Kann man dies ohne weitere Abfrage auf "erteilen" setzen?
Für jede Hilfe bin ich dankbar.
Liebe Grüße
Gisela