Im Zuge einer Sammelbestellung muß ich bis zu 7 unterschiedliche Mails mit unterschiedlichen Anhängen verschicken. Jetzt habe ich die Versendung der Mails wie folgt angepaßt, aber pro Empfänger wird der Anhang um eine Position erweitert. Also der erste Mailempfänger bekommt sein Dokument. Der zweite Empfänger sein Dokument und das des ersten Empfängers. Der dritte Empfänger sein Dokument und die anderen beiden Dokumente. Ich muß also den Cache leeren, finde aber keine Prozedur dafür. Wer weiß wie das geht.
Das ist jetzt meine Prozedur für die Email-Versendung:
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Sheets("Berechnung").Range("H30").Value
.Subject = "Anfrage einer neuen Tour mit der Nummer: " & Worksheets("Spedition").Range("I1")
.Body = "Hiermit fragen wir eine neue Tour, wie folgt an." & Chr(13) & Chr(13) & "Für weitere Fragen stehen wir Ihnen gerne zur Verfügung."
.Attachments.Add ThisWorkbook.Path & "\" & "Angebot_Ladebordwand" & Sheets("Berechnung").Range("I1") & "_Uebersicht" & ".pdf"
.Display
End With