title: If there is no attachment file is present at path mail should not send
body: <p>If there is no attachment file is present at path mail should not send.</p>
  
  <p>Is there any possibility that mail should not be send if there is no attachment?</p>
  
  <pre><code>Dim OutApp As Object
  Dim OutMail As Object
  Dim strbody As String
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  strbody = " Hello"
  On Error Resume Next
  With OutMail
      .to = "test@gmail.com"
      .cc = "test1@gmail.com"
      .BCC = ""
      .Subject = "TRANSACTING : " &amp; Format(Date, "DD-MMM-YYYY")
      .HTMLBody = strbody
      'You can add an attachment like this
      .Attachments.Add ("E:\Auto Reports\test.xlsb")
      .send   'or use .Display
  End With
  On Error GoTo 0
  Set OutMail = Nothing
  Set OutApp = Nothing
  End Sub
  </code></pre>