Simple Email Send

Private 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