Function GetFromAddress(objMsg As Outlook.MailItem) As String
    Dim objCDOMsg As MAPI.Message
    Dim strEntryID As String
    Dim strStoreID As String
    Dim strAddress As String
 
    ' start CDO session
    Set objSession = New Session 'CreateObject("MAPI.Session")
    objSession.Logon , , False, False
 
    ' pass message to CDO
    strEntryID = objMsg.EntryID
    strStoreID = objMsg.Parent.StoreID
    Set objCDOMsg = objSession.GetMessage(strEntryID, strStoreID)
 
    ' get sender address
    On Error Resume Next
    strAddress = objCDOMsg.Sender.Address
 
    GetFromAddress = strAddress
 
 
    On Error GoTo 0
    Set objCDOMsg = Nothing
    objSession.Logoff
 
End Function

Public objSession As MAPI.Session

Zitat:

Hallo Leute, ich komme bei Folgendem Problem überhaupt nicht weiter: Also mittels Access werden aus Outlook Emails in einen selbst erstellten Ordner kopiert (FUNZT). Diese Emails werden dann eingelesen und mit einer Datenbank (deswegen Access) abgeglichen. Soweit funktioniert das alles super, nur bekomme ich die Emailadresse der eingehenden Nachrichten nicht! Die Ausgänge bekomme ich ganz einfach so: MailItem.To Bei den Eingängen,..... keine Ahnung. Ich krieg nur den Absendernamen: MailItem.SenderName Der hilft mir aber nichts, da ich die Emailadresse brauche. Naheliegend wäre MailItem.From , aber das gibts nicht. Gibt es noch "versteckte" Eigenschaften, oder wie komme ich an die Adresse ran????? Vielen, vielen Dank schonmal für alle Antworten.