Send Email from Access to Outlook

Download the Access Visual Basic Outlook API to open up an email message from an Access form.

You can use this VB code to automatically fill in the subject and body text of the email.  The download also demonstrates the ability to attach an external document to the Outlook email.

Here is a snapshot of the code contained in the database example download:

Private Sub Command20_Click()

Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
    .BodyFormat = olFormatRichText
    .To = Me.Email_Address
    .Subject = Me.Mess_Subject
    .HTMLBody = Me.Mess_Text
    If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
        .Attachments.Add (Me.Mail_Attachment_Path)
    End If
    '.DeleteAfterSubmit = True 'This would let Outlook send the note without storing
     it in your sent bin
    .Send
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
Resume Error_out
Error_out:
End Sub

Click here to download the Download Access 2000 Email Example.

To get rid of the annoying MS Outlook popup requesting you to verify that you want to send the email you can try out ClickYes software.