Send multiple PDF attachments via Outlook instead of single.

[NTDIR82]

Hi all,

Sorry for the code below and all the quotes: It seems to keep putting them in upon submission.

I have been developing our system at work for some months now and it's working brilliantly - Access is great!

We basically test samples and send the reports out daily to our customers via email. At this time I have put together a system which when you select "issue report" it opens the report by the correct ID, opens outlook and creates the email and adds the single PDF attachment.

A lot of the time we can have 5 - 20 PDF reports which have to go to the same client which are all sent individually at this time by clicking issue report next to each one. As you can imagine it would be so much better if I could select all of them for that company and all the PDF's go on the same email instead of single emails. I know you have to open a report in order to select the ID - Is is possible to attach multiple in one go?

I have looked and looked for solutions - Any help will be so very greatly appreciated

Many thanks all if you can help.

I have posted the code we currently use below:

Private Sub btnEmailReport_Click()   
Dim Filename As String 
Dim Filepath As String  
Dim oOutlook As Outlook.Application  
Dim oEmailItem As MailItem    

CompanyName = Me.CompanyName 

If Dir(\\Server\\Reports\TestReports\ & CompanyName, vbDirectory) =  Then

MkDir Path:="\\server\Reports\Test Reports\" & CompanyName    

MsgBox "A new report storage folder has been setup for " & CompanyName & " as one didn't exist""" Else     'MsgBox "

End If  

Filename = "Test Report" & " " & Me.ReportID Filepath = "\\server\Reports\Test Reports\" & CompanyName & "\" & Filename & ".pdf"  If Me.CompanyName = "CompanyA" 

Then    

DoCmd.OpenReport "RptSingleReportCompanyA", acViewPreview, , "SampleID = " & SampleID    
DoCmd.OutputTo acOutputReport, "RptSingleReportOmegaSW", acFormatPDF, Filepath    
DoCmd.Close acReport, "RptSingleReportCompanyA" Else    DoCmd.OpenReport "RptSingleReport", acViewPreview, , "SampleID = " & SampleID    DoCmd.OutputTo acOutputReport, "RptSingleReport", acFormatPDF, Filepath    DoCmd.Close acReport, "RptSingleReport" End If  If oOutlook Is Nothing Then 

Set oOutlook = New Outlook.Application End If Set oEmailItem = oOutlook.CreateItem(olMailItem) With oEmailItem

If 

IsNull(Me.PrimaryEmail) Then
.To = No email address in the system! Please enter one under Companies!
Else
.To = Me.PrimaryEmail End If  If IsNull(Me.CCEmail)
Then 
.CC = ""
Else
.CC = Me.CCEmail
End If
.BCC = ""
<br />.Subject = "Your Report No: " &  Me.ReportID
<br />.Body = "Message";  
<br /><br />.Attachments.Add Filepath 
<br /><br />.Display End With Set emailitem = Nothing Set oOutlook = Nothing   
<br /><br />
<br />Me.ReportedCheckbox.Value = True 
<br />Me.FldReportedDate = Date 
<br />Me.FldReportedTime = Time()   
<br /><br />DoCmd.RunCommand acCmdSaveRecord 
<br />[Forms]![MainPanel]![NavigationSubform].Requery  
<br /><br /> 'delete temporary file  
<br />'Kill Filepath    
<br /><br />End Sub

 

[Ranman256]

i answered on other board