[SIZE=3][/FONT][SIZE=3]Private Sub Command113_Click()[/FONT]
Dim filenanme As String
Dim filepath As String
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset
Dim recipientList As String
On Error GoTo errhandler

FileName = Me.PURCHASE_ORDER & "_" & Me.MATERIAL_SLIP_NUMBER & "_" & Me.VENDOR_NAME & "_Wait" & Me.wait & " Day"
filepath = "C:\Users\Public\" & FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "rptrequestorINVOICE", acFormatPDF, filepath
If oOutlook Is Nothing Then
    Set oOutlook = New Outlook.Application
End If
Set oEmailItem = oOutlook.createItem(olmailItem)
With oEmailItem
    
     .To = "a@a.com"
     .Subject = " µÔ´µÒÁ Invoice ¤§¤éÒ§ PO: " & Me.PURCHASE_ORDER
    .attachments.Add filepath
    .Display
End With
exit_errhandler:
Exit Sub
Set oEmailItem = Nothing
Set oOutlook = Nothing
Kill filepath
errhandler
MsgBox Err.DESCRIPTION, vbExclamation
Resume Next
End Sub