Split same report and attached to Email (1 Viewer)


Registered User.
Local time
Today, 09:04
Dec 6, 2015
hi my friends
I have a report include 3 Pages
I need to make a bottom when I click on it , auto generate an outlook mail with 3 attached ( Page 1 - Page 2 - Page 3 ) as a PDF

I use the following code

Private Sub cmdEmail_Click()
Dim strpath As String
Dim arr() As Variant
strfile = strpath & "\Query1.pdf"
If Dir(strfile) <> "" Then
arr = ExpandArray(arr)
arr(UBound(arr)) = strfile
End If

CreateEmailWithOutlook "xxxx@gmail.com", "yyy.gmail.com", "This is your test data", "For your perusal", arr

End Sub
Last edited:

Users who are viewing this thread

Top Bottom