DOCUMENT:Q140106  29-OCT-1999  [pcmail]
TITLE   :PC MAPI: Sample VB Code to Read a Microsoft Mail Message
PRODUCT :Microsoft Mail For PC Networks
PROD/VER:WINDOWS:3.0,3.2
OPER/SYS:
KEYWORDS:

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Mail for PC Networks, versions 3.0, 3.2 
-------------------------------------------------------------------------------

SUMMARY
=======

The simple Messaging Application Programming Interface (MAPI) includes functions
that allow developers to access mail programmatically. The following Visual
Basic code illustrates successful calls to these functions.

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.

Additional query words: 3.00 3.20 1.00 visual basic code

======================================================================
Keywords          :  
Technology        : kbMailSearch kbZNotKeyword3 kbMailPCN320 kbMailPCN300
Version           : WINDOWS:3.0,3.2

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1999.