Tabellenname anstelle Reitername
23.11.2019 12:15:48
MaBlu
Noch besser wäre wenn ich das Makro auswähle dass es immer nur das Aktuelle Blatt (Sheet) nimmt. das wäre der fall wenn ich die alten Jahre behalten möchte?
Sub sendMail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
mePDFD = ThisWorkbook.Path & "\Vereinskalender_als_PDF.pdf"
Sheets("Kalender").Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=mePDFD, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "info@test.dee"
.Subject = "Jahresprogramm & Helfereinsätze" 'Betreffzeile
.body = "Hallo zusammen im Anhang der Vereinskalender für das kommende Jahr."
.Attachments.Add mePDFD
.Display
'.Send
End With
Kill mePDFD
Set MyMessage = Nothing
Set MyOutApp = Nothing
End Sub
Gruss MaBlu