Quiero enviar un correo electrónico de Outlook utilizando VBScript. El cuerpo del correo electrónico debe contener el contenido de un archivo de texto, digamossha.txt. Abajo está el código que estoy usando pero me está dando este error:

Error de tiempo de ejecución '287': error definido por la aplicación o definido por el objeto

Sub email1()   
  Dim outobj, mailobj    
  Dim strFileText 
  Dim objFileToRead    

  Set outobj = CreateObject("Outlook.Application")    
  Set mailobj = outobj.CreateItem(0)    
  Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\sonu\Desktop\auto\sha.txt", 1)    
  strFileText = objFileToRead.ReadAll()
  objFileToRead.Close
  Set objFileToRead = Nothing    
  With mailobj    
    .To = "[email protected]"    
    .Subject = "Testmail"    
    .Body = strFileText    
    .Send    
  End With    

  'Clear the memory
  Set outobj = Nothing    
  Set mailobj = Nothing    
End Sub