Как в тело письма считать текстовый файл? - VB

Формулировка задачи:

Задача считать в

HTMLBody

сгенерированный ранее текствый файл. Вроди бы это можно сделать как то с помощью LoadFromFile??? только не пойму как именно. Спасибо.

Решение задачи: «Как в тело письма считать текстовый файл?»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> Outlook <font color="blue">As</font> Outlook.Application
<font color="blue">Dim</font> AttachmentPath
<font color="blue">Dim</font> TemplateFile <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> objOutlookAttach
<font color="blue">Dim</font> Mail <font color="blue">As</font> MailItem, DestFolder <font color="blue">As</font> MAPIFolder

<font color="blue">Set</font> Outlook = <font color="blue">New</font> Outlook.Application
<font color="blue">Set</font> DestFolder = Outlook.GetNamespace(<font color="teal">"MAPI"</font>).GetDefaultFolder(olFolderDrafts)
<font color="blue">Set</font> Mail = CreateItem(olMailItem)

<font color="blue">With</font> Mail
.<font color="blue">To</font> = <font color="teal">"test@test.ru"</font>
.Subject = <font color="teal">"test"</font>
<font color="00AA00">'Сюда нужно считать файл (MyTest.txt): </font>
.HTMLBody = <font color="teal">""</font>
.FlagStatus = olFlagMarked
.Importance = olImportanceHigh  <font color="00AA00">'Высокая важность</font>
<font color="00AA00">' вложение файла.</font>
AttachmentPath = <font color="teal">"U:\OutputReport\Заказ1.snp"</font>
<font color="blue">If</font> <font color="blue">Not</font> IsMissing(AttachmentPath) <font color="blue">Then</font>
<font color="blue">Set</font> objOutlookAttach = .Attachments.Add(AttachmentPath)
<font color="blue">End</font> <font color="blue">If</font>
AttachmentPath = <font color="teal">"U:\OutputReport\Заказ2.snp"</font>
<font color="blue">If</font> <font color="blue">Not</font> IsMissing(AttachmentPath) <font color="blue">Then</font>
<font color="blue">Set</font> objOutlookAttach = .Attachments.Add(AttachmentPath)
<font color="blue">End</font> <font color="blue">If</font>
.Display
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">Set</font> Outlook = <font color="blue">Nothing</font>
                        