PC MAPI: Visual Basic Example for C Code in Tech Reference (122998)


The information in this article applies to:

  • Microsoft Mail for PC Networks 3.0
  • Microsoft Mail for PC Networks 3.2
This article was previously published under Q122998

SUMMARY

The Microsoft Mail for PC Networks "Technical Reference" includes a Microsoft C programming language source code example for sending a mail message and attachment using MAPI. However, no such code is provided for Visual Basic.

MORE INFORMATION

The following code is the Visual Basic equivalent of the C code example found in the Technical Reference guide. 
' ***************************************************
' Visual Basic equivalent of the C programming language
' sample found in the Microsoft Mail Technical Reference
' ***************************************************
Dim M As MapiMessage
Dim Mo As MapiRecip
ReDim R(0 To 1) As MapiRecip
ReDim F(0 To 0) As MapiFile
NL = Chr(10)

F(0).Reserved = 0&
F(0).Flags = 0&
F(0).Position = -1
F(0).PathName = "C:\budget17.wk3"
F(0).FileName = "budget17.wk3"
F(0).FileType = ""

Msg1$ = "Attached is the budget proposal. "
Msg2$ = "See you Monday."

M.Subject = Msg1$ + Msg2$
M.MessageType = ""
M.RecipCount = 2
M.FileCount = 1

R(0).Reserved = 0&
R(0).RecipClass = MAPI_To
R(0).Name = "Sally Jones"
R(0).EIDSize = 0&
R(0).EntryID = ""

R(1).Reserved = 0&
R(1).RecipClass = MAPI_To
R(1).Name = "Marketing"
R(1).EIDSize = 0&
R(1).EntryID = ""

rc& = MAPILogon(0&, "admin", "password", 0&, 0&, lhSession&)

rc& = MAPISendMail(0&, 0&, M, R(0), F(0), 0&, 0&)
If rc& <> SUCCESS_SUCCESS Then MsgBox "Unable to send the message."

rc& = MAPILogoff(lhSession&, 0&, 0&, 0&)
End
' ****************************
' End of source code
' ****************************
To get the code to work, MAPILogon and MAPILogoff function calls have been included in the source code.
Modification Type:MajorLast Reviewed:10/27/1999
Keywords:KB122998
©2002 Microsoft Corporation. All rights reserved.