wie ich in Outlook eine Mail vorbereite und anzeige oder aber in "Entwürfe" speichere, weiß ich:
Private Sub MailVersandTest()
Dim objOutlook As Object
Dim objMail As Object
Dim strAnhang As String
Dim myText As String
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
strAnhang = "D:\_alsPDFgesendet\" & "......." & ".pdf"
myText = "im Anhang ....."
With objMail
.To = "xyz@xyz.de"
'.cc = Emailempfänger_cc
.Subject = "Betreff"
.attachments.Add strAnhang
.Body = "Hallo ..........," & Chr(10) & Chr(10) & myText
'.Display
.Save
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub
Ich muss immer wieder eine Mail verfassen mit unterschiedlichen Anhängen, Excelmappen, in pdf konvertiert - so wie in obigem Beispiel. Die nötigen Mappen werden nicht am Stück bearbeitet und vorbereitet, es kann Zeit verstreichen dazwischen. Inzwischen liegt die Mail in "Entwürfe".
Gibt es nun die Möglichkeit, in "Entwürfe" zu schauen, ob es da bereits eine Mail an einen bestimmten Empfänger gibt und daran eine weitere Datei anzuhängen?
Danke schonmal für Eure Hilfe und Grüße
Franz