DOCUMENT:Q185171  11-JAN-2001  [vbwin]
TITLE   :HOWTO: How to Send/Receive E-Mail Messages with Visual Basic
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:
OPER/SYS:
KEYWORDS:kbGrpDSVBDB

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

 - Microsoft Visual Basic Professional Edition for Windows, versions 5.0, 6.0 
 - Microsoft Visual Basic Enterprise Edition for Windows, versions 5.0, 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

This article shows how to create a simple MAPI client program. The article also
demonstrates how to display existing messages and how to create and send new
messages.

MORE INFORMATION
================

Through the use of MAPI controls in Visual Basic, it is relatively easy to
create a MAPI Client. The following instructions and code show you how:

1. Start up Visual Basic and select a Standard EXE project. On the Project menu,
   click Components, and select Microsoft MAPI Controls. There are two new icons
   displayed on the toolbar. Both icons have envelopes; one with a key, the
   other with a paperclip. These are your MAPI controls.

2. Add these MAPI controls to your form.

3. Add the following items to the form:

      Four Labels
      Four CommandButtons
      Four TextBoxes

   The label captions are as follows:

      Label1.Caption = "To:"
      Label2.Caption = "SUBJECT:"
      Label3.Caption = "FROM:"
      Label4.Caption = "MESSAGE:"

4. Place the TextBoxes in numerical sequence with these labels (side-by- side
   for labels 1 thru 3, and below for label 4).

5. Label the CommandButtons as follows:

    
      Command1.Caption = "<<"
      Command2.Caption = ">>"
      Command3.Caption = "Connect"
      Command4.Caption = "Send"
      Command5.Caption = "Close Session"
 

6. Add the following code to your form:

         Option Explicit
         Dim X As Long

         Private Sub Command1_Click()

           If X - 1 < 0 Then
             Else
           X = X - 1
           MAPIMessages1.MsgIndex = X
           Text1.Text = MAPIMessages1.RecipDisplayName
           Text2.Text = MAPIMessages1.MsgSubject
           Text3.Text = MAPIMessages1.MsgOrigDisplayName
           Text4.Text = MAPIMessages1.MsgNoteText
           End If

         End Sub

         Private Sub Command2_Click()

           If X + 1 > MAPIMessages1.MsgCount Then
           X = MAPIMessages1.MsgCount
             Else
           X = X + 1
           MAPIMessages1.MsgIndex = X
           Text1.Text = MAPIMessages1.RecipDisplayName
           Text2.Text = MAPIMessages1.MsgSubject
           Text3.Text = MAPIMessages1.MsgOrigDisplayName
           Text4.Text = MAPIMessages1.MsgNoteText
           End If

         End Sub

         Private Sub Command3_Click()
           MAPISession1.SignOn
           MAPIMessages1.SessionID = MAPISession1.SessionID
           MAPIMessages1.Fetch
             If MAPIMessages1.MsgCount > 0 Then
               Text1.Text = MAPIMessages1.RecipDisplayName
               Text2.Text = MAPIMessages1.MsgSubject
               Text3.Text = MAPIMessages1.MsgOrigDisplayName
               Text4.Text = MAPIMessages1.MsgNoteText
               Command4.Enabled = True
             Else
               MsgBox "No messages to fetch"
               MAPISession1.SignOff
               Command4.Enabled = False
             End If

         End Sub

         Private Sub Command4_Click()

           MAPIMessages1.Compose
           MAPIMessages1.RecipDisplayName = Text1.Text
           MAPIMessages1.MsgSubject = Text2.Text
           MAPIMessages1.MsgNoteText = Text4.Text
           MAPIMessages1.ResolveName
           MAPIMessages1.Send

         End Sub

         Private Sub Command5_Click()

           MAPISession1.SignOff
           Unload Me

         End Sub

Additional query words: kbDSupport kbdse kbvbp500 kbVBp600 kbMAPI kbVBp

======================================================================
Keywords          : kbGrpDSVBDB 
Technology        : kbVBSearch kbAudDeveloper kbZNotKeyword6 kbZNotKeyword2 kbVB500Search kbVB600Search kbVBA500 kbVBA600 kbVB500 kbVB600
Issue type        : kbhowto

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

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 2001.