Emailing From Outlook | Microsoft Access Sample Code

Function for Emailing From Outlook

A common request from Access users is to send emails from within your Access Application. Access has some very easy ways of doing this, including a built in SendObject function that works nicely in simple situations. However, if you find yourself with more complex needs, such as attaching files, you will need a different solution, such as Outlook Automation. Outlook Automation allows you to interact directly with the Outlook object from within your Access code. This tool provides you some very valuable features that the built in Access functions do not provide. This Microsoft Access function will allow you to send an email from within your Access program using Microsoft Outlook as the mail client and the delivery by way of Outlook Automation.

Have an interest in emailing reports in your database? If so, check out our Microsoft Access Email Database Template. To get more information on this template database.

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

Live Demonstration: To experience a more interactive and personalized demonstration of this WSI template, we invite you to contact WSI and schedule a live demonstration with one of our team members. This opportunity allows you to engage directly with us, either as an alternative to or in conjunction with downloading and exploring the demo version of the template at your leisure. Please note that downloading Microsoft Office files, including Microsoft Access database files, might trigger a security warning on your computer. To avoid this and get a comprehensive overview, you have the option of viewing the template through a virtual meeting on Teams or Zoom with a WSI representative.
Once you purchase the database template, you will receive the full version of the database in a standard Access Database file. The purchased database will have full access to the database window, all design objects, the visual basic project code, and you will be able to modify or add to the design in any way you wish (this does not apply to the run-time/compiled versions). If you lack the time to integrate this database into your system, please Contact Us and we will be glad to help with your integration process. If you like the basics of what you see in the database, but need enhancements to make the system functional for your business, please Contact Us and we will develop a quote for you to implement the additional features and enhancements that you require.

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.