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
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: