Вставить текст из буфера обмена в тело письма Outlook

[buysite]

Всем привет!

Пытаюсь в VBScript коде вставить тест письма, раннее скопированного из Word документа
но вылетает ошибка... Object required

насколько я понимаю, что просто не там вызываю этот метод...
скрипт следующий:

Код: Выделить всё

Set mailApp = CreateObject("Outlook.Application")
Set objMail = mailApp.CreateItem(olMailItem)
With objMail
    Set objOutlookRecip = .Recipients.Add("test@mail.ru")
    .Subject = "Коммерческое предложение от Васи пупкина"
    Rem А вот тут как раз и грабли
    .Selection.PasteAndFormat 0
    Set objOutlookAttach = .Attachments.Add("c:\s1\Doc1.doc")
End With
objMail.Display


Уважаемые Гуру!
Подскажите пожалуйства, как вставить текст письма из буера обмена в бади аутлука?

[RayShade]

У MailItem нет такой проперти как Selection. Есть только Body. И HtmlBody. Куда из них писать тело письма зависит от BodyFormat.
Чтоб из VBS получить текст из буфера, надо сделать вот так:

Код: Выделить всё

set clipboard = createobject("WshExtra.Clipboard")
text = clipboard.paste()


И потом уже в твоем коде, сделать .Body = text и .BodyFormat = olFormatPlain