ich habe da einen wunderschönen Code zur Erstellung einer Mail aus Excel mit drei Dateianhängen sogar aus verschiedenen Ordnern. Funktioniert einwandfrei, solange auch alle drei Dateianhänge vorhanden sind.
strDateiname = Range("g4").Value
strAttachmentPfad1 = Environ("USERPROFILE") & "\Desktop\Excel\Ergebnisse\" & strDateiname
strDateiname = Range("d15").Value
strAttachmentPfad2 = Environ("USERPROFILE") & "\Desktop\Excel\Anlagen\" & strDateiname
strDateiname = Range("d16").Value
strAttachmentPfad3 = Environ("USERPROFILE") & "\Desktop\Excel\Anlagen\" & strDateiname
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
'Empfängeradressen holen aus Zeile 2, Spalte 5 (=E) usw.
.To = Cells(11, 4) & ";" & Cells(12, 4)
.Cc = Cells(13, 4) & ";" & Cells(14, 4)
'Betreff holen
.Subject = Cells(7, 4)
' Textblock: Anrede aus Zeile 2; Spalte 10 (=J), Textbaustein 1 & 2;
.Body = Cells(10, 4) & Cells(8, 4) & Cells(9, 4)
'Anlage aktivieren
.Attachments.Add strAttachmentPfad1
.Attachments.Add strAttachmentPfad2
.Attachments.Add strAttachmentPfad3
'Mail anzeigen vor Versand
.Display
Wenn es nur zwei sind, bricht die Pracht zusammen :-(
Wie kann ich dem Makro erklären, dass es einfach weitergehen soll, wenn kein Dateianhang vorhanden ist?
Beste Grüße
Reinhard