Emailing From Outlook | Microsoft Access Sample Code

Function for Emailing From Outlook

Sending Emails from Microsoft Access Using Outlook Automation

A frequent requirement for Microsoft Access users is the ability to send emails directly from within an Access application. While Access provides a built-in SendObject function that can handle basic emailing needs, it may not suffice for more complex scenarios, such as attaching multiple files or customizing email properties. For these advanced needs, Outlook Automation offers a powerful solution by allowing you to interact directly with Microsoft Outlook through VBA (Visual Basic for Applications).

Outlook Automation unlocks advanced features that are not available with the native Access functions. It enables you to attach files, customize recipients, preview emails before sending, and even handle rich text or HTML email bodies. Below, you’ll find a VBA function, doEmailOutlook, that demonstrates how to send an email using Outlook as the mail client.

VBA Function for Sending Emails with Outlook Automation

The following VBA code provides a comprehensive way to send emails from Access using Outlook:

Public Sub doEmailOutlook(sTo As String, sSubject As String, sBody As String, sFile As String, Optional bFileAttach As Boolean = False, Optional bPreview As Boolean = False)
On Error GoTo doEmailOutlookErr

    Dim strEmail As String
    Dim strMsg As String
    Dim oLook As Object
    Dim oMail As Object

    Set oLook = CreateObject("Outlook.Application")
    Set oMail = oLook.createitem(0)
    With oMail
        .ReplyRecipients.Add "YourEmail@YourDomain.com"
        .to = sTo
        '.body = sBody
        .htmlbody = sBody
        .Subject = sSubject
        If sFile <> "" Then
            .Attachments.Add (sFile)
        End If
        If bFileAttach = True Then
            .Attachments.Add (CurrentProject.path & "\YourFile.pdf")
        End If
        If bPreview = True Then
            .display
        Else
            .Send
        End If
    End With

    If bPreview = False Then
        Set oMail = Nothing
        Set oLook = Nothing
    End If
    Exit Sub

doEmailOutlookErrExit:
    Exit Sub

doEmailOutlookErr:
    MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
    Resume doEmailOutlookErrExit
End Sub

Key Features of the doEmailOutlook Function

• Supports sending HTML-formatted emails for better presentation and customization.
• Allows file attachments, including dynamically generated files such as reports.
• Includes an option to preview the email before sending (bPreview parameter).
• Integrates seamlessly with Microsoft Outlook to manage email sending and delivery.

Additional Resources: Microsoft Access Email Database Template

If you are looking for a pre-built solution to manage email functionality within your Access database, consider the Microsoft Access Email template database. This template includes examples and workflows for automating email tasks, such as sending reports and notifications. It can be customized to meet your specific requirements. If the template doesn’t meet your needs fully, contact us for a quote to develop the custom features you need.

Main Menu

Main Form

Main Menu Form

Main Menu - Modern Look (Access 2010/2013)

Previous Next

$24.99 - this allows you to use this database template however you wish within your organization.

$49.99 for unlimited developer use - this allows you to use this database template however you wish for any applications you develop and distribute.