MAPI

Sub main()
  Dim ses As MAPI.Session
  Set ses = New MAPI.Session
  Dim fld As MAPI.folder
  Dim item As Message
 
 
  ses.Logon "Profil navn", "pasword"
 
  Set fld = ses.Inbox

    For Each item In fld.Messages
        MsgBox item.Subject
    Next
   
   
    ses.Logoff
    Set ses = Nothing
End Sub


Dette kode eksempel logger ind på den standard profil der er oprettet på min pc.

VH CK

Husk iøvrigt at sætte en reference til microsoft CDO 1.21 ellers virker det ikke :-)

Hvor sætter jeg den ref. ?

menuen project - references

Der kommer en fejl ved afvilkingen af koden linien.
ses As MAPI.Session

Så er det fordi du ikke har sat din reference rigtigt - har du Outlook installeret på din maskine? og har du sat reference til CDO 1.21

Den går bare kold under afviklingen af koden.

øhhh har du startet MS Outlook op samtidig? Hvis du ikke har det så kan den nemlig godt finde på at gå kold, så skal der lidt nogle andre ting til.

Det virker stadig ikke.
Den går bare kold.