ich muss Mails von einer bestimmten Mailbox (als Absender) versenden. Aktuell verwende ich folgenden Code, um die in Outlook vorhandenen Mailboxen zu ermitteln/prüfen:
Public Function CheckMailAccountOutlookVerbunden(strMailaccount As String) As Long
Dim OutApp As Object
' Set olApp = CreateObject("Outlook.Application")
Dim i As Long
Set OutApp = CreateObject("Outlook.Application") ' _
Neues Outlook Application-Objekt
For i = 1 To OutApp.Session.Accounts.Count 'Alle _
_
_
Konten durchlaufen
If StrComp(strMailaccount, OutApp.Session.Accounts.Item(i), vbTextCompare) = 0 Then
CheckMailAccountOutlookVerbunden = i
Exit Function
End If
Next i
CheckMailAccountOutlookVerbunden = 0
End Function
Der Absenderaccount wird dann über folgende Zeile festgelegt:
olMail.SendUsingAccount = OlApp.Session.Accounts.Item(lngAccountNumber)
Im Outlook sind beide Accounts zu sehen, allerdings ermittelt diese FUnktion nur die erste (persönliche) Mailbox. Die zusätzlich verbundene Non-Personal-Mailbox wird nicht erkannt.
Hat jemand eine Idee wo der Fehler liegt?