Sub emailrequest()
    Call OrderRequest.Workbook_BeforeSave(True, False)
Dim OutApp As Object
Dim OutMail As Object
Dim signature As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    
    With OutMail
        .To = "xxx@xxx.xxx"
        .Subject = "Order Request"
        .Attachments.Add ActiveWorkbook.FullName
        .display
    End With
 
    signature = OutMail.body
    With OutMail
        .CC = ""
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub