VB projects - MAPI (reading mailbox)

Description: reading messages in mailbox, using MS MAPI controls
Minimum requirements: VB6
Download: source code
Screenshot:
VB projects - MAPI (reading mailbox)

Project: EXE
Controls: TextBox txt (MultiLine = -1 'True, ScrollBars = 3 'Both), ListBox lst, MAPIMessages MAPIMessages1, MAPISession MAPISession1
Additional references: none
Code:

Option Explicit

Private Sub Form_Load()
  Dim i As Integer
  
  With MAPISession1
    .UserName = InputBox("Enter your login", "Login")
    .Password = InputBox("Enter your password", "Password")
    .SignOn
  End With
  With MAPIMessages1
    .SessionID = MAPISession1.SessionID
    .Fetch
    For i = 0 To .MsgCount - 1
      .MsgIndex = i
      lst.AddItem .MsgSubject
      lst.ItemData(lst.NewIndex) = i
    Next
  End With
End Sub

Private Sub lst_Click()
  With MAPIMessages1
    .MsgIndex = lst.ItemData(lst.ListIndex)
    txt = .MsgNoteText
  End With
End Sub