vbscript - 本文がテキスト ファイルの内容である Outlook メールを送信する

Question

VBScript を使用して Outlook メールを送信したいと考えています。電子メールの本文には、テキスト ファイルの内容が含まれている必要がありますsha.txt。以下は私が使用しているコードですが、このエラーが発生しています:

実行時エラー '287': アプリケーション定義またはオブジェクト定義のエラー

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 = "user@user.com"    
    .Subject = "Testmail"    
    .Body = strFileText    
    .Send    
  End With    

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