VBA OutlookMail Datum für angehängte Datei angeben
25.07.2018 10:10:22
Lisa
kann mir jemand weiterhelfen? Und zwar habe ich das Problem, dass ich gerne eine PP Datei an eine Mail anhängen würde, die bis auf Montags immer das Datum von gestern im Namen hat (zb. 24072018). Ich habe folgendes geschrieben, allerdings funktioniert das mit dem Datum noch nicht so ganz.
Vielen Dank
Lisa
Sub sendMail()
Dim PP, Datum As String
Dim MyOutApp As Object, MyMessage As Object
Datum = Sheets("Datum").Range("A2")
Datum = Format("DD_MM_YYYY")
PP = "Pfad" & Datum & ".pptx"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.GetInspector.Display
olOldBody = .HTMLbody
.To = ""
.CC = ""
.Subject = "Betreff " & Date - 1
.HTMLbody = "Inhalt"
.Attachments.Add PP
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Anzeige