Отправка электронной почты Outlook с телом как содержимое текстового файла

Question

Я хочу отправить Outlook-письмо с помощью VBScript. Тело письма должно содержать содержимое текстового файла, скажем sha.txt. Ниже приведен код, я использую, но это дает мне эту ошибку:

Run Time error '287': Application-defined or Object defined error

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 

Answer 1

'I didn't look into the particular issue with your file reading. 
    'Below my example, just tested it works. 
    'Good luck mate :) 

     Sub CatchMe() 

      Dim outobj, mailobj 
      Dim strFileText 
      Dim objFileToRead 

      Set outobj = CreateObject("Outlook.Application") 
      Set mailobj = outobj.CreateItem(0) 
      strFileText = GetText("C:\Share\1.txt") 

      With mailobj 
      .To = "user@user.com" 
      .Subject = "Testmail" 
      .Body = strFileText 
      .Display 
      End With 

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

     End Sub 

     Function GetText(sFile As String) As String 
      Dim nSourceFile As Integer, sText As String 
      nSourceFile = FreeFile 
      'Write the entire file to sText 
      Open sFile For Input As #nSourceFile 
      sText = Input$(LOF(1), 1) 
      Close 
      GetText = sText 
     End Function