Email

[Marianna_Air]

Auto populate “To” email field with email that’s associated with that reports recorded vendor

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.ec-edi.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

[pbaldy]

If it's on the form:

Me.EmailAddressField

in the appropriate position. If not, use a DLookup() or recordset to look it up.