Send Multiple Attachmen in one Email

[Skhaliq]

Hi, Below code is working good, but want to add one more code like



DoCmd.SendObject acSendTable, "SM_Main_Output", acFormatXLS, rs("Email Address"), rs("CC"), "", "SM Sales & Availability Report for " & rs("SM"), "Dear Sales Manager, Please find attached Sales and Availability Report. If you have any query regarding your Structure/Area Please contact your Sales coordination department", 0, False


Please help me on this. I want to send backup data as well.







Private Sub Command9_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim eml As String
Dim vOfficeID As String
Set db = CurrentDb
Set rs = db.OpenRecordset("SM_Email_List", dbOpenDynaset)
rs.MoveFirst
Do
vSMID = rs("SM")
DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT [SM_Main_Table].* INTO [SM_Main_Output] FROM [SM_Main_Table] WHERE ((([SM_Main_Table].SM)= '" & vSMID & "'))", -1
DoCmd.SendObject acSendReport, "SM_SALES_REPORT", acFormatPDF, rs("Email Address"), rs("CC"), "", "SM Sales & Availability Report for " & rs("SM"), "Dear Sales Manager, Please find attached Sales and Availability Report. If you have any query regarding your Structure/Area Please contact your Sales coordination department", 0, False

rs.MoveNext


Loop Until rs.EOF
rs.Close
db.Close
End Sub

[June7]

SELECT INTO will create a new table. Why would you create a new table every time this procedure runs?

What do you mean by 'send backup data'? Exactly what constitutes 'backup data'?

Cannot use SendObject to send multiple attachments with same email. Review
https://www.accessforums.net/import-...ail-53783.html
https://www.accessforums.net/access/...ect-17713.html

[Gina Maylone]

I use this to send multiple documents. Hopefully you can use it along with your code:

Dim stDocName As String
Dim MyPath As String
MyPath = "C:\yourdirectory\yoursubfolder\" & Me.reportname ‘(generated by a calculated control on contact form)
stDocName = "ConfirmationReport"
DoCmd.OutputTo acReport, stDocName, acFormatPDF, MyPath, True
 
Dim db As DAO.Database
Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Dim Subjectline As String
Dim BodyFile As String
Dim MyBody As String
Dim MyBodyText As String
 
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
 
Subjectline$ = "Your Subject Line"
Set db = CurrentDb()
 
.To = Forms![contacts form]!EmailAddress
.SentOnBehalfOfName = someone@somewhere.com ‘optional
 
If Me.EmailAddress2 <> "" Then ‘if there’s a second email address
.BCC = Forms![contacts form]!EmailAddress2
End If
 
.Subject = Subjectline$
 
.Attachments.Add ("c:\yourdirectory\yoursubfolder \YourDocument1.pdf")
.Attachments.Add ("c:\yourdirectory\yoursubfolder \ YourDocument2.pdf")
.Attachments.Add ("c:\yourdirectory\yoursubfolder \ YourDocument3.pdf")
.Attachments.Add MyPath
'("c:\ yourdirectory\yoursubfolder \" & Forms![contact form]!reportname)
 
.Display ‘view first before sending, change to .Send to just send it
End With