Public Function GetMailboxInterface(emailAlias As String)
 
    On Error GoTo fehler
 
    Set m_iMailbox = Nothing
    Dim iPerson As New cdo.Person
 
    emailAlias = "mailto:" & emailAlias 'z.B. Administrator oder HansMueller
    iPerson.DataSource.Open emailAlias
 
    If Err.Number <> 0 Then
 
        Call Log.WriteLine(Err.Description, LOG_ERROR)
 
    Exit Function
    End If
 
    Set m_iMailbox = iPerson.GetInterface("IMailbox")
    Exit Function
 
fehler:
    Call Log.WriteLine("GMI - " & Err.Description, LOG_ERROR)
 
End Function
 
irgendwas Sub ()
Call GetMailboxInterface(lblUser)
 
If Not m_iMailbox Is Nothing Then
    Dim Recordset As New ADODB.Recordset
    Dim Record As New ADODB.Record
 
    Dim Flds As ADODB.Fields
 
    Set Flds = m_iConfiguration.Fields
    Flds(cdoMailboxURL) = m_iMailbox.BaseFolder
    Flds("CalendarLocation") = m_iMailbox.Inbox
    Flds(cdoSendUsingMethod) = cdoSendUsingExchange
    Flds(cdoSendEmailAddress) = Benutzer
    Flds(cdoSendUserName) = ""
 
    Flds.Update
 
    Set Flds = Nothing
 
 
    Record.Open m_iMailbox.Inbox
    Set Recordset.ActiveConnection = Record.ActiveConnection
 
    Recordset.Source = "SELECT ""DAV:href"" " & _
                       "FROM scope('shallow traversal of """ & m_iMailbox.Inbox _
                       & """') " & _
                       "WHERE ""DAV:ishidden"" = FALSE and " & _
                       """DAV:isfolder"" = FALSE"
 
    Recordset.Open
 
    If Recordset.RecordCount > 0 Then
        Recordset.MoveFirst
        Do Until Recordset.EOF
            Listbox.AddItem (Recordset.Fields("DAV:href").Value)
            Recordset.MoveNext
        Loop
 
    Else
 
      Listbox.Clear
 
 
    End If
end Sub