E-Mail per VBA versenden mit unterschiedlichen Absenderadressen

Hallo,

ich habe in einer Access-Anwendung per VBA einen E-Mailversand eingerichtet. Was jetzt gemacht werden soll, ist dass bei unterschiedlichen E-Mails unterschiedliche Absenderadressen genutzt werden soll. Mein Problem liegt jetzt darin, dass ich nicht herausfinde, wie die Absenderadresse übermittelt wird.

Folgenden Code setze ich ein:

Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)l = oMailItem.Recipients.Add(EMail_to & " ", "MAIL", "")If Not EMail_cc = "" ThenoMailItem.CC.Add EMail_cc, " ", " "End IfoMailItem.Subject = Betreff

Mit diesem Code habe ich jetzt folgendes probiert, was leider nicht funktioniert (in EMail_FromTeam steht die E-Mailadresse):

oMailItem.From = EMail_FromTeam

Wer hat eine Lösung, die Absender-E-Mail auszuwählen???
Danke schon einmal für die Hilfe!

Viele Grüße
Florian

Hallo,

hast Du es hinbekommen?

Gruß Martin