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.