Afsender-adresse i Outlook 2000

Rent faktisk tror jeg, at det er svært. Hvis du prøver at sammenkæde din indboks til Access, så vil du kunne se, at afsenderens email-adresse slet ikke fremgår blandt kolonnerne.

På en eller anden måde, må Outlook gemme denne oplysning et helt andet sted!

Løsningen blev lidt MAPI-programmering i stedet for Outlook...

Tilføj reference til "Microsoft MAPI Controls 6.0" og brug følgende kode:

Public Function CheckMail()
  Dim mpiSession As New MAPISession
  Dim mpiMessage As New MAPIMessages
  Dim lngIndex As Long
  mpiSession.SignOn
  With mpiMessage
    .SessionID = mpiSession.SessionID
    .Fetch
    For lngIndex=0 To .MsgCount - 1
      .MsgIndex = lngIndex
      If .MsgSubject = "Rapport" Then
        MsgBox .MsgNoteText, , .MsgOrigAddress
        .Delete mapMessageDelete
      End If
    Next
  End With
  mpiSession.SignOff
  Set mpiMessage = Nothing
  Set mpiSession = Nothing
End Function

Kan man ikke bare højreklikke på afsender og vælge egenskaber ??

Så får man vil den korrekte e-mail adresse ?? eller er det hvad afsender har sat som 'svar-adresse' ??

Problemet ligger i at "systemet" jeg er ved at lave i Access 2000, automatisk skal finde mailadressen, uden at jeg skal højre-klikke på hver eneste mail, som kommer ind i indbakken...

Mit ovenstående forslag er endda IKKE fyldestgørende nok, da "interne" mail's ikke kommer frem med mail-adresse, men derimod en lang Streng med afsenderinfo fra vores ExchangeServer...  ;0(

Jeg skal bruge mail-adressen til entydig identifikation (og validation af tilladelse) inden returnering af rapport udarbejdet i Access!

ok