Private Sub CommandButton1_Click()
yourMsg = MsgBox("Do you want to send the report", vbInformation + vbYesNo, "SUBMIT REPORT")
If response = vbYes Then
  ActiveDocument.Save
  Dim OutApp As Object
  Dim OutMail As Object
 
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
 
  On Error Resume Next
  With OutMail
    .To = "abc@gmail.com"
    .CC = ""
    .BCC = ""
    .Subject = "Sales Report"
    .Body = "Hi All!"
    .Attachments.Add ("C:\Users\aqhibj\Desktop\Formats\Sales report__V0.2.docx")
    .Display
  End With
  On Error GoTo 0
 
  Set OutMail = Nothing
  Set OutApp = Nothing
End If
End Sub