Guten Abend,
ich habe, dank Ihrer aller Hilfe das Problem lösen können. Hier der korrekte Code, falls jemand auf ein ähnliches Problem stößt:
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objAccount As Outlook.Account
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
If Me.Absender <> "" Then
For Each objAccount In objOutlook.Session.Accounts
If objAccount.DisplayName = Me.Absender Then Exit For
Set objAccount = Nothing
Next objAccount
Else
Set objAccount = Nothing
End If
With objMail
If Not objAccount Is Nothing Then
.SendUsingAccount = objAccount
Else
MsgBox "Account ''" & Absender & "'' nicht gefunden.", vbCritical, "Hinweis"
End If
.Recipients.ADD Empfaenger(0)
If Empfaenger(1) <> "" Then .CC = Empfaenger(1)
If Empfaenger(2) <> "" Then .BCC = Empfaenger(2)
.Subject = Me.Subject
.BodyFormat = olFormatHTML
.HTMLBody = Me.Mail
.Display
End With
Interessant ist dabei, dass in .SendUsingAccout nicht die EMail-Adresse sondern die Bezeichnung des Kontos im Outlook steht.
Vielen Dank nochmals und eine besinnliche Weihnachtszeit.