by Matmonk (2 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
While browsing through the files on this site, I noticed that most listings that dealt with sending e-mail using VB used the Winsock Control. I recently wrote a small demo for a customer that reads a database file, and then sends it to an email address. This code requires that you use the MAPISession Control as well the MAPIMessage control. You must also have a mail service installed on your system (Exchange,Outlook, ect.). Other than those requirements, the code is very easy to understand.
Inputs
Mail Users Name, email address, and any file attachments you wish to include.
Assumes
Make sure that you have the MAPISession control and the MAPIMessages control on the tool box and on the form.
' ************ Edited 11/08/1999 by Matmonk *************
I have received a few questions asking how to send the email to multiple addresses at one time. The simplest way that I know of is when you assign a value to the "TO:" string, simply separate the multiple address with a semicolon ";". This is the microsoft standard way that works in Outlook and seems to work in other email system. An example: strToString = "smtp:[email protected];smtp:[email protected];smtp:[email protected]". I hope this helps those of you who have raised this question. I do not yet have an answer on how to send multiple file attachments, but if I come across one, I will post it here. Cheers.
***************** Edited 11/08/1999 by Matmonk ***********************
Code Returns
nothing
Side Effects
None that I have found yet.
VBcodersPrivate Sub cmdSendSummary_Click()
' this command button is used to start a MAPI session, log on the the
' mail service, attach the created check summary text file to a new
' message, send the message and then close the session
' declare local variables here
Dim strUserId As String
Dim strPassword As String
Dim strFileName As String
Dim strFilePath As String
' set the mouse pointer to indicate the app is busy
Screen.MousePointer = vbHourglass
' set the values for the file name and the file path
strFileName = "" ' this is where you would put any file attachments
strFilePath = App.Path & "\"
' set the user name and password properties on the session control
mapiLogOn.UserName = "JJones" ' network user name and password !
mapiLogOn.Password = "******"
' start a new email session
mapiLogOn.SignOn
Do While mapiLogOn.SessionID = 0
DoEvents ' need to wait until the new session is created
Loop
'create a new message and address it
MAPIMessages1.SessionID = mapiLogOn.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = "Jones,John"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.RecipAddress = "smtp:[email protected]"
' note that I prefixed the address with "smtp". This is required by exchange
' server, or it does not know what service to use for outgoing mail.
MAPIMessages1.MsgSubject = "Test of the Email function"
MAPIMessages1.MsgNoteText = " This is a test of the email function, if you" _
& "receive this then the program has worked successfully." & vbCrLf
' attaching the file
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText) - 1
' the line above places the attachment at the end of the text.
MAPIMessages1.AttachmentPathName = strFilePath & strFileName
' now send the message
MAPIMessages1.Send False
mapiLogOn.SignOff
MsgBox "File sent to specified receiptent."
' now set the mouse pointer back to normal
Screen.MousePointer = vbNormal
End Sub