Hvordan får jeg fat i afsender af e-mail i Outlook.

Det her er en måde t gøre det på

Private Sub Command1_Click()
    Dim Oapp As Outlook.Application, ind As MAPIFolder, indItems As Items, item As MailItem
    Set Oapp = New Outlook.Application
   
    Set ind = Oapp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
   
    Set indItems = ind.Items.Restrict("[SenderName]=Eksperten mailrobot")
   
    For Each item In indItems
        MsgBox item.SenderName
    Next
   
    Set Oapp = Nothing
End Sub

VH CK

Tak for det, men jeg vil gerne kunne få fat i og teste på afsenderens e-mail adresse. SenderName som du foreslår, giver navnet på afsenderen.

Ja det er rigtigt, men jeg kan ikke rigtigt få den til at give mig adressen. Jeg skal dog nok lige arbejde videre med det, så du kan få et ordentligt svar :-)

VH CK

Her kommer der en workaround på problemet...den holder nok ikke vand i byretten, men i en snæver vending kan det gå an :-)

Private Sub Command1_Click()
    Dim Oapp As Outlook.Application, ind As MAPIFolder, indItems As Items, item As MailItem
    Dim rep As MailItem
    Set Oapp = New Outlook.Application
   
    Set ind = Oapp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
   
    Set indItems = ind.Items.Restrict("[SenderName]=Eksperten mailrobot")
   
    For Each item In indItems
        Set rep = item.Reply
        MsgBox rep.Recipients(1).Address
        Set rep = Nothing
    Next
   
    Set Oapp = Nothing
End Sub

vh ck

Puha - her kommer der så et eller andet der efter ca. 2 timers slid på nettet, samt søgen rundt i Outlook/exchange hjælpe filer ser ud til at kunn løse dit problem.

Private Sub Command1_Click()
    Dim ses As MAPI.Session, fld As MAPI.Messages
    Dim rec As MAPI.Recipient
    Dim item As MAPI.Message
    Set ses = New MAPI.Session
   
    ses.Logon , , False, False
   
    Set fld = ses.GetDefaultFolder(1).Messages
   
    For Each item In fld
        If item.Sender.Address = "mailrobot@eksperten.dk" Then
            MsgBox item.Sender.Name
        End If
    Next
   
    ses.Logoff
End Sub

du skal for at dette virker have en reference til Microsoft CDO 1.21 library.

VH CK

Jeg ville helst have en løsning, som fungerer med Outlooks objekt model, da det skal kunne køre på klienter uden videre uden ekstra komponenter.
Tak for din indsats.

Det er meget simpelt for hvis du har Outlooks object model til rådighed så har du også automatisk CDO til rådighed. Det bliver installeret sammen med Outlook 2000 og derover.

VH CK