send an email with 2 attachments pdf and excel

[taniko006]

I am trying to change somebodies code to sent 2 attachments in one email. Before it sent out each attachment in a separate email.
How would you do it? I was trying to change the DoCmd.SendObject acSendReport to DoCmd.OutputTo acOutputReport,The code looks like this:
If InStr(1, Me.Email.Value, "@") > 0 Then


DoCmd.SendObject acSendReport, "RPT_WO_ServPro", acFormatPDF, Me.Email.Value, , , _
"Open Work Order Report - " & Me.Serv_Pro.Value, _
Email_Body1, False

DoCmd.SendObject acSendQuery, "Open Work Orders - Service Provider", acFormatXLS, _
Me.Email.Value, , , "Open Work Order Report - " & Me.Serv_Pro.Value, _
Email_Body1, False

[ItsMe]

I believe the only way to do this is to automate Outlook and create an Attachments object. So something like this ...

'Reference Microsoft Outlook and
'use early binding
Dim objOutlook As New Outlook.Application
Dim objNewEmail As MailItem
Dim objAttachReport As Attachments
'Instantiate your objects
Set objNewEmail = objOutlook.CreateItem(olMailItem)
Set objAttachReport = objNewEmail.Attachments

[June7]

Can't use SendObject to include multiple attachments. Must use automation code, usually with Outlook objects.

Common topic, start with:
https://www.accessforums.net/access/...ail-53868.html
https://www.accessforums.net/program...ook-21903.html