Add email to this piece of code

[MelonFuel]

Hi




Just some quick questions how could i add an email function to the code on another button on the report.

Private Sub CreatePDF_Click()


Dim strFileName  As String
Dim strDocName As String
    
    strFileName = "G:\Word Documents\ORDERS\" & Me.OrderID & ".pdf"
    strDocName = Me.Name
    
    DoCmd.Close acReport, strDocName
    DoCmd.OpenReport strDocName, acViewPreview, , , acHidden, -1
    DoCmd.OutputTo acOutputReport, strDocName, acFormatPDF, strFileName, True
    DoCmd.Close acReport, strDocName


End Sub

This code is on a button on a report.

This is what i would like to achieve with outlook.


1: get the newly saved document ( i.e. C10000 ) as an attachment in the email.


2: Send the email to one or more clients.


3: Include information from text fields ( i.e. OrderID, Seller Name, Address )


4: Bring up the main program (so Basically don't send it).


Thanks.

[June7]

Start with a review of https://www.accessforums.net/program...ook-21903.html