Use DoCmd.SendObject
The SendObject method carries out the SendObject action in Visual Basic.
DoCmd.SendObject(ObjectType, ObjectName, OutputFormat, To, Cc, Bcc, Subject, MessageText, EditMessage, TemplateFile)
ObjectType - Optional AcSendObjectType.
AcSendObjectType - Can be one of these constants.
acSendDataAccessPage
acSendForm
acSendModule
acSendNoObject default
acSendQuery
acSendReport
acSendTable
ObjectName - An optional string variant expression that's the valid name of an object of the type selected by the objecttype argument.
New! Download Access example of the Sendobject Method
If you want to include the active object in the Email message, specify the object's type with the objecttype argument and leave this argument blank. If you leave both the objecttype and objectname arguments blank (the default constant, acSendNoObject, is assumed for the objecttype argument), Microsoft Access sends a message to the Email application without an included database object. If you run Visual Basic code containing the SendObject method in a library database, Microsoft Access looks for the object with this name first in the library database, then in the current database.
OutputFormat - Optional Variant.
To - An optional string expression that lists the recipients whose names you want to put on the To line in the E-mail message. Separate the recipient names you specify in this argument and in the cc and bcc arguments with a semicolon (;) or with the list separator set on the Number tab of the Regional Settings Properties dialog box in Windows Control Panel. If the recipient names aren't recognized by the Email application, the message isn't sent and an error occurs. If you leave this argument blank, Microsoft Access prompts you for the recipients.
Cc - An optional string expression that lists the recipients whose names you want to put on the Cc line in the mail message. If you leave this argument blank, the Cc line in the mail message is blank.
Bcc - An optional string expression that lists the recipients whose names you want to put on the Bcc line in the mail message. If you leave this argument blank, the Bcc line in the mail message is blank.
Subject - An optional string expression containing the text you want to put on the Subject line in the mail message. If you leave this argument blank, the Subject line in the mail message is blank.
MessageText - An optional string expression containing the text you want to include in the body of the mail message, after the object. If you leave this argument blank, the object is all that's included in the body of the mail message.
EditMessage - Optional - use True (–1) to open the electronic mail application immediately with the message loaded, so the message can be edited. Use False (0) to send the message without editing it. If you leave this argument blank, the default (True) is assumed.
TemplateFile - Optional string expression that's the full name, including the path, of the file you want to use as a template for an HTML file.
Ex:
DoCmd.SendObject acSendReport , "Sales By Order", acFormatRTF , "To@gmail.com", "Cc@gmail.com", "Bcc@gmail.com","Subject", "Message", False
The SendObject method provides a way to send a MAPI mail message programmatically in Microsoft Access. However, the SendObject method does not give you access to complete mail functionality, such as the ability to attach an external file or set message importance. The example that follows uses Automation to create and send a mail message that you can use to take advantage of many features in Microsoft Outlook that are not available with the SendObject method.
Use Oulook
Add a reference to the vb project:
- On the Tools menu, click References.
- In the References box, click the Microsoft Outlook 10.0 Object Model and then click OK.
Private Sub UsingOutLook()
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
'***creates an instance of Outlook
Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(olMailItem)
Dim toEmail As String
Dim Content As String
Content = "Hi, How Are You?"
toEmail = "lakshmidupati@utdgroup.com"
'***creates and sends email
With objEmail
.To = toEmail
.subject = "Mail From MS Access"
‘.Body = “Anything” ‘Use this if body doesnt contain any html tags.
.BodyFormat = olFormatHTML
.HTMLBody = "<html><br/>Hi<br/>Your Message</html>"
.Send 'sends the email in Outlook. Change to DISPLAY if you want to be able to
'modify or see what you have created before sending the email
End With
'**closes outlook
objOutlook.Quit
Set objEmail = Nothing
End Sub
Use SMTP
Dim myMail As New MailMessage()
myMail.From = "from@gmail.com"
myMail.To = "to@gmail.com"
myMail.Subject = "SMTP Mail"
myMail.Priority = MailPriority.Low
myMail.BodyFormat = MailFormat.Html
myMail.Body = "<html><body>SMTP Mail- success</body></html>"
Dim myAttachment As New MailAttachment("c:\attach\attach1.txt", MailEncoding.Base64)
myMail.Attachments.Add(myAttachment)
SmtpMail.SmtpServer = "MyMailServer"
SmtpMail.Send(myMail)
