by Dino Roger (4 Submissions)
Category: Microsoft Office Apps/VBA
Compatability: VB Script
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(8 Votes)
To send an e-mail with outlook with an attachment. Very easy to understand instructions.
VBcoders'This is a simple way to use the Outlook reference to send an e-mail with an attachment
'Set the Boolean to true at the end of the SendMail function call to display the e-mail
'instead of automatically sending it.
'INSTRUCTIONS:
'* Click PROJECT - REFERENCES
'* Check the box next to "Microsoft Outlook ## Object Library
'* Copy the below code into a form
'
Function SendMail(EM_TO, Em_CC, EM_BCC, EM_Subject, EM_Body, EM_Attachment As String, Display As Boolean)
Dim objOA As Outlook.Application
Dim objMI As Outlook.MailItem
Dim obgAtt As Outlook.Attachments
Set objOA = New Outlook.Application
Set objMI = objOA.CreateItem(olMailItem)
If EM_TO <> "" Then objMI.To = EM_TO
If Em_CC <> "" Then objMI.CC = Em_CC
If EM_BCC <> "" Then objMI.BCC = EM_BCC
If EM_Subject <> "" Then objMI.Subject = EM_Subject
If EM_Body <> "" Then objMI.Body = EM_Body
If EM_Attachment <> "" Then objMI.Attachments.Add EM_Attachment, 1, , EM_Attachment
If Display Then
objMI.Display
Else
objMI.Send
End If
Set objOA = Nothing
Set objMI = Nothing
End Function
Private Sub Form_Load()
'How to call the SendMail function. If you do not want a function of the main just use two quotes and a comma
'instead of filling the string variable. Example of a call with a To only:
'SendMail "[email protected]", "", "", "", "", "", True
'The code represented here will error unless a real attachment path is specified.
SendMail "[email protected]", "[email protected]", "[email protected]", "SUBJECT", "BODY", "C:\Attachment.txt", False
End Sub
