Access Mail mit diversen Absendern

Hallo zusammen,

ich nutze Access zur Erstellung von Rechnungen. Zum versenden per E-Mail -Anhang nutze ich die Makro-Bordmittel von Access. Soweit ok …

Ich würde jetzt gerne die E-Mails von verschiedenen Absendern schicken, womit das Makro damit an seine Grenzen stößt, da ich das dann höchstens manuell in OL für jede einzelne Mail auswählen könnte.

Man könmte den Anhang sicher auch direkt per SMTP senden und die Parameter übergeben oder z.B per Thunderbird jeweils ein eigenes Profil aufrufen und so versenden. …

Da ich aber maximal der Makrobefehlsklicker bin, würde ich mich riesig über Hilfe freuen, damit ich das in Acces einbinden könnte 🤔

Danke und Grüsse

dim acc as Object, selAcc as Object, ol as Object
set ol = CreateObject("Outlook.Application")  
With ol.CreateItem(0)
    for each acc in ol.Session.Accounts
        if acc.SmtpAddress = "user@domain.tld" then set selAcc = acc  
    Next
    if not selAcc is Nothing then
       set .SendUsingAccount = selAcc
    End if
   .Subject  = "Blablub"  
   .To = "user@whatever.de"  
   .Attachments.Add "D:\file.txt"  
   .Send
   '.Display  
End with