Set File = FSO.GetFile("C:\tmp.txt")

Это к чему — не понятно. К тому же, зачем что-то писать в файл, затем в том же скрипте его читать? Всё это можно заменить обычной переменной:

strText = "bla-bla-bla"
strText = strText & "bla-bla-bla"
…
Message.TextBody = strText

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.CreateTextFile("C:\tmp.txt")
Set File = FSO.GetFile("C:\tmp.txt")
....
Message.TextBody = TextStream.ReadAll()

Подскажите! Я сначала в цикле пишу несколько строчек текста в файл, а затем вне цикла читаю этот файл в качестве тела письма.

Возможно нужно делать это (операции с промежуточным файлом tmp.txt) по другому, как!?