I want to add a hyperlink to an out going email, but I get an error when I try to add it to my code
Code:
Private Sub Email_Click()
On Error GoTo Err_Email_Click
Me.Refresh
If IsNull(Me![RequestforQuotesID]) Then
MsgBox "Enter Request for Quotes information before previewing."
Else
DoCmd.SendObject acSendReport, "RequestForQuotes_Converted", "PDFFormat(*.pdf)", "", "", "", "Request for Quote", "Vendor, We are looking for vendors that have the ability to accomplish the attached request. Please review and respond as soon as possible with a cost and estimated completion date. Please note: In order to view the attached detail drawings you may need to download Lucent Viewer Enable. This is a free trusted program that can be downloaded at this link http://www.ecedi.com/download123/download.htm Thank you for your time, Marianna Airmotive" 'Send out the E-mail
End If
Exit_Email_Click:
Exit Sub
Err_Email_Click:
If Err <> 2501 And Err <> 2465 Then
MsgBox Err.Description
End If
Resume Exit_Email_Click
End Sub