PC MAPI: Sample VB Code to Send a Message (140447)

MORE INFORMATION

• MAPILogOn function to initiate a mail session or run with an existing session if one exists.
• MAPIRecip structure to set up the recipients of the mail message.
• MAPIMessage structure to set up the content of the mail message.
• MAPISendMail function to send the message.
• MAPILogOff function to end the mail session.

'Example VB code of sending mail via Simple MAPI using MAPI.DLL:

'*********** Important ******************************
'make sure MAPILIB.BAS or a module that contains
'MAPI functions declaration is already included in the project

' *************************************************
'        Simple MAPI Declarations
' *************************************************
' Set up the message structure and recipient structures
Dim M As MAPIMessage      ' dimension new message structure
Dim Mo As MapiRecip      ' dimension originator structure
M.RecipCount = 1&      ' set RecipCount property of new message to
 be 1
M.FileCount = 0&      ' set FileCount property of new message to be
 0
MsgId$ = ""         ' set MsgID string to ""
MsgType$ = "IPM.Microsoft Mail.Note"   'set MsgType string to default MS
 Mail type
M.Reserved = 0&      ' set Reserved property of new message to be 0&
M.MessageType = MsgType$   ' set MessageType property of new message to
 be MsgType$
M.DateReceived = ""      ' set DateReceived property of new message to
 be ""
M.Flags = 0&         ' set Flags property of new message to be 0&
ReDim mr(0 To 0) As MapiRecip   ' dimension recipient array structure for 1
 recipient only
ReDim MF(0 To 0) As MapiFile   ' dimension file attachment array structure
MF(0).Reserved = 0&      ' set Reserved property of file structure to
 be 0&
MF(0).Flags = 0&      ' set Flags property of file structure to be
 0&
MF(0).Position = -1      ' set Position property of file structure to
 be -1
MF(0).FileType = ""      ' set FileType property of file structure to
 be ""
'You may not need this if a session already is established
'i.e. Mail or S+ is running.
' **************************************************
' Login and start the MAPI Session
' **************************************************
rc& = MAPILogon(Form1.hWnd, "", "", MAPI_LOGON_UI, 0&, lhSession&)
If rc& <> SUCCESS_SUCCESS Then
     MsgBox "Error logging in"
     End
End If
' you can replace InputBoxes with strings of text to eliminate the need of
 user-interface
M.Subject = InputBox("Enter a subject line:")
M.NoteText = InputBox("Enter some body text:")
aPathName$ = InputBox("Enter a file to attach:")
If Trim(aPathName$) <> "" Then
    MF(0).PathName = aPathName$
    MF(0).FileName = InputBox("Enter the file name to include as:")
    M.FileCount = 1
Else
    MF(0).PathName = ""
    MF(0).FileName = ""
    M.FileCount = 0
End If

'You can replace the InputBox with a full name
who = InputBox("Enter a recipient's alias: ")
If Not IsEmpty(who) Then
    mr(0).Name = who
    mr(0).RecipClass = MAPI_TO
    X = MAPIResolveName(lhSession&, 0, mr(0).Name, MAPI_DIALOG, 0, mr(0))
    X = SUCCESS_SUCCESS
    If X <> SUCCESS_SUCCESS Then
        MsgBox ("The address for this message is not valid.")
        Screen.MousePointer = 0
        rc& = MAPILogoff(lhSession&, 0&, 0&, 0&)
        If rc& <> SUCCESS_SUCCESS Then MsgBox "Error logging off """
    Else
        rc& = MAPISendmail(lhSession&, Form1.hWnd, M, mr(0), MF(0),
 MAPI_DIALOG, 0&)
        If rc& <> SUCCESS_SUCCESS Then MsgBox "Error sending message"
        rc& = MAPILogoff(lhSession&, 0&, 0&, 0&)
        If rc& <> SUCCESS_SUCCESS Then MsgBox "Error logging off """
    End If
Else
        rc& = MAPILogoff(lhSession&, 0&, 0&, 0&)
        If rc& <> SUCCESS_SUCCESS Then MsgBox "Error logging off """
End If
End