How do I add a new line in message body using the following vbscript : I have created a txt file to support the message body of the vbscript but it only reads the last line of the messagebody.txt

        WScript.Sleep 100
        
        Set WshShell=WScript.CreateObject("WScript.Shell")
        
        Set objShell=WScript.CreateObject("WScript.Shell")
        set objOutlook=CreateObject("Outlook.Application")
        Set objMail=CreateObject("CDO.Message")
    
    Set objMail=objOutlook.CreateItem(0)
    strDesktop = WshShell.SpecialFolders("Desktop")
    
    
    Set objFileToReadTo          = CreateObject("Scripting.FileSystemObject").OpenTextFile(strDesktop + "\\send email with attachment\List_To.txt",1)
    Set objFileToReadCC          = CreateObject("Scripting.FileSystemObject").OpenTextFile(strDesktop + "\\send email with attachment\List_CC.txt",1)
    Set objFileToReadSubject     = CreateObject("Scripting.FileSystemObject").OpenTextFile(strDesktop + "\\send email with attachment\List_Subject.txt",1)
    Set objFileToReadBody        = CreateObject("Scripting.FileSystemObject").OpenTextFile(strDesktop + "\\send email with attachment\Email Body.txt",1)
    Set objFileToReadAttachments = CreateObject("Scripting.FileSystemObject").OpenTextFile(strDesktop + "\\send email with attachment\List_Attachments_withFileExtension.txt",1)
    
    Dim strLineTo
    Dim strLineCC
    Dim strLineSubject
    Dim strLineBody
    Dim strLineAttachments
    
    objMail.Display
    
    WScript.Sleep 10
    
    do while not objFileToReadTo.AtEndOfStream
    strLineTo = objFileToReadTo.ReadLine()
    objMail.To=strLineTo
    loop
    objFileToReadTo.Close 
    
    WScript.Sleep 10
    do while not objFileToReadCC.AtEndOfStream
    strLineCC = objFileToReadCC.ReadLine()
    objMail.cc = strLineCC
    loop
    objFileToReadCC.Close 
    '41
    WScript.Sleep 10
    do while not objFileToReadSubject.AtEndOfStream
    strLineSubject = objFileToReadSubject.ReadLine()
    objMail.Subject = strLineSubject
    loop
    objFileToReadSubject.Close 
    '48
    WScript.Sleep 10
    do while not objFileToReadBody.AtEndOfStream
    strLineBody = objFileToReadBody.ReadLine()
    objMail.Body = strLineBody & vbCRLF  
    loop
    objFileToReadBody.Close 
    '55
    WScript.Sleep 10
    do while not objFileToReadAttachments.AtEndOfStream
    strLineAttachments = objFileToReadAttachments.ReadLine()
    objMail.Attachments.Add(strLineAttachments)
    loop
    objFileToReadAttachments.Close 
    '62
    
    'objShell.Sendkeys "%s"
    WScript.Sleep 40
    'objShell.SendKeys "{TAB}"
    'objShell.SendKeys "{UP}"
    'objShell.SendKeys "{Enter}"
    'set MyEmail=nothing
    'objOutlook.Quit
    'Set objMail = Nothing
    'Set objOutlook = Nothing

and here is my messagebody.txt 


Hi,

Testing vbscript

Regards,
abcd

It only reads the last ABCD and dispays the same on the oulook window.

How do I make the scipt understand multiple lines?

