PC MAPI: Sample VB Code to Read a Microsoft Mail Message

MORE INFORMATION

The sample code below uses MAPILogon to log in the Mail system, MAPIFindNext to find the first message ID, loops MAPIReadmail and MAPIFindNext to access all messages, and uses MAPILogOff to log out.

' **************************************************
'        Simple MAPI Declarations
' **************************************************
Dim M As MAPIMessage
Dim Mo As MapiRecip
ReDim Mr(0 To 0) As mapirecip
ReDim mf(0 To 0) As mapifile
MsgType$ = ""      ' NULL default to IPM.Microsoft Mail.Note
m.MessageType = MsgType$   ' message type you want to download
NL = Chr(10)         ' a new line constant variable
' **********************************************************
' Login and start the MAPI Session, using the dialog box and
' download new mail if any exists
' **********************************************************
rc& = MAPILogon(main_form.hWnd, "", "", MAPI_LOGON_UI +
MAPI_FORCE_DOWNLOAD,

 0&, lhsession)
If rc& <> SUCCESS_SUCCESS Then
  MsgBox "Error logging in with error=" + Str(rc&)

Else

  MsgBox "Success logging in"
End If
rc& = MAPIFindNext(lhsession&, 0&, MsgType$, "", 0&, 0&, msgid$)
  If rc& <> SUCCESS_SUCCESS Then
    MsgBox "Error during message find or no messages in Inbox."
    rc& = MAPILogoff(lhsession&, 0&, 0&, 0&)
    End
  End If
  i = 0
  Do While (rc& = SUCCESS_SUCCESS)
        rc& = MAPIReadMail(lhsession&, 0&, msgid$, 0&, 0&, m, mo, Mr(),
mf())
        If rc& <> SUCCESS_SUCCESS Then
            MsgBox "Error during MAPIReadMail"
            Exit Do
        Else
            i = i + 1
   ' ************** accessing various fields of the message ************
            msg$ = "Message# " & Str(i)
            msg$ = msg$ & NL & "Subject: " & m.subject
            msg$ = msg$ & NL & "Sent by: " & mo.name
            msg$ = msg$ & NL & "Message type: " & m.MessageType
            If m.filecount <> 0 Then
                msg$ = msg$ & NL & "Message includes attachment"
            Else
                msg$ = msg$ & NL & "Message includes no attachment"
            End If
        End If
        MsgBox msg$
        rc& = MAPIFindNext(lhsession&, 0&, MsgType$, msgid$, 0&, 0&,
msgid$)

   Loop

rc& = MAPILogoff(lhsession, 0&, 0&, 0&)
If rc& <> SUCCESS_SUCCESS Then
MsgBox "Error logging off with error=" + Str(rc&)
Else
MsgBox "Success logging off"
End If
				

IMPORTANT NOTE: Make sure a MAPI declaration module, such as MAPILIB.BAS, is included in the project.