Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Hallo zusammen,
krass wie viele Rückmeldungen es gibt, Danke dafür!
Hatte leider erst heute die Möglichkeit alles mal auszuprobieren.
Daher kann ich jetzt sagen, es funzt!
Geholfen haben 2 Dinge, bin nicht sicher wodran es letztendlich lag, jedenfalls nicht am Datum ;)
Zum einen hatte ein Verweis gefehlt, war auch angemakert.
Zum anderen hab ich meinen Code durch den viel kompakteren von snb ersetzt und siehe da es läuft.
Vielen Dank an alle Beteiligten und besonders an snb, was immer das Kürzel heissen mag :)
Sub M_snb()
c00 = "C:\TEMP\" & Format(Date, "yyyy_mm_dd") & "_Schadensmeldung_V1.1.pdf"
ActiveWorkbook.ExportAsFixedFormat 0, c00
with CreateObject("Outlook.Application").CreateItem(0)
.To = Sheets("Mail").Cells(1, 5) & ", " & Sheets("Mail").Cells(2, 5)
.Subject = mid(c00,9)
.Body = "Zur Info"
.Attachments.Add c00
.Send
End With
kill c00
End Sub
Gruß Jörn