title: Sending mail using Outlook where the Send method fails
body: <p>I use this code to send email from Excel:</p>
  
  <pre><code>Sub Mail_workbook_Outlook_1()
  'Working in Excel 2000-2013
  'This example send the last saved version of the Activeworkbook
  'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
      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 = "ron@debruin.nl"
          .CC = ""
          .BCC = ""
          .Subject = "This is the Subject line"
          .Body = "Hi there"
          .Attachments.Add ActiveWorkbook.FullName
          'You can add other files also like this
          '.Attachments.Add ("C:\test.txt")
          .Send ' &lt;--------------------------------This is causing troubble
      End With
      On Error GoTo 0
  
      Set OutMail = Nothing
      Set OutApp = Nothing
  End Sub
  </code></pre>
  
  <p>The problem is that <code>.Send</code> is not recognized as an object (or method).</p>
  
  <p>Other commands are working (i.e. Display, Save).</p>
  
  <p>I believe this error exists because of security systems at my work. I have even tried using CDO and it is not working ether.</p>