Hallo zusammen,
ich habe folgenden Teil eines Makros:
On Error Resume Next
With OutMail
.To = sTo
.BCC = ""
'Betreff anpassen
.Subject = Cells(i, 4)
.HTMLBody = Cells(3, 5)
'attachments hinzufügen
Attachments.Add Range("f4").Text
'Senden der Mail
.display
End With
On Error GoTo 0
Das gesamte Makro funktioniert auch soweit. Es geht sich einzig um das Hinzufügen von Attachments. Ich habe in der Zelle F4 einen Dateipfad angegeben, der dann die entsprechende Datei meiner Mail anfügt. Mein Problem ist das hinzufügen weiterer Anhänge. Ich möchte maximal 5 Anhänge hinzufügen.
'attachments hinzufügen
Attachments.Add Range("f4").Text
Attachments.Add Range("f5").Text
Attachments.Add Range("f6").Text
Attachments.Add Range("f7").Text
Attachments.Add Range("f8").Text
Wenn jetzt aber eine Zelle leer bleibt funktioniert nichts mehr. Ist es demnach möglich, für die Attachments einen separaten "on error resume next" einzubauen oder wie könnte ich das Problem lösen?
Hoffe die Problematik wurde deutlich. Ansonsten gerne nochmal nachfragen:)
VG Chris
|