Hi adcz250,
We can use outlook automation to implement this. Please refer to the following code:
Option Explicit
Sub SendMessage(DisplayMsg As Boolean)
DoCmd.OutputTo acOutputReport, "rptBook", "PDFFormat(*.pdf)", "D:\rptBook.pdf", False
DoCmd.OutputTo acOutputReport, "rptReport", "PDFFormat(*.pdf)", "D:\rptReport.pdf", False
Dim objOutlook As Outlook.Application
Dim olNs As Outlook.Namespace
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
Set olNs = objOutlook.GetNamespace("MAPI")
olNs.Logon
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("v-yoyj@microsoft.com")
objOutlookRecip.Type = olTo
' Set the Subject, Body, and Importance of the message.
.Subject = "This is an Automation test with Microsoft Outlook"
.Body = "This is the body of the message." & vbCrLf & vbCrLf
.Importance = olImportanceHigh 'High importance
' Add attachments to the message.
.Attachments.Add ("D:\rptBook.pdf")
.Attachments.Add ("D:\rptReport.pdf")
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
' Should we display the message before sending?
If DisplayMsg Then
.Display
Else
.Save
.Send
End If
End With
olNs.Logoff
Set objOutlook = Nothing
End Sub
Have a nice day.
Yoyo Jiang[MSFT]
MSDN Community Support | Feedback to us
Develop and promote your apps in Windows Store
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
