Mehrere Dateien aus Excel nach Lotus mailen

Ich versuche aus Excel per VBA eine Mail mit Anhang an Lotus Notes zu schicken. Anbei sende ich Euch den Part, mit dem er funktioniert

Attachment="C:\config.sys"
if attachment <>"" then
set AttachME=MailDoc.CREATERICHTEXTITEM("Attachment")
set EmbedObj=AttachME.EMBEDOBJECT(1454,"",Attachment,"Attachment")
MailDoc.CREATERICHTEXTITEM("Attachment")
end if

Dies funktioniert auch ohne Probleme. Wie kann ich aber mehrere Dateien auf einmal verschicken?
Wie bekomme ich vom MailServer eine Bestätigung über die geschickte Mail

Für die Bemühungen Danke im voraus