CommFort

dv, Помоги плиз, как это сделать в беларуси?? На МТСе (mts.by)

dv писал(а):

field писал(а):dv, Помоги плиз, как это сделать в беларуси?? На МТСе (mts.by)

нужно знать емаил-шлюз. - поищи в инете....
проверь - попробуй отправлять сообщения обычной почтовой проограммой (the bat, outglook и т.п.)
а потом уж скрипт ковыряй.

Я в емэйлах нуб)) и что за шлюз и т.д. я- хз!

dv писал(а):http://smeshok.com/main/useful/mobile/e ... 0001.shtml
http://dream-mobile.info/info/?id=7

Минск Solid Paging pager@solid.minsk.by xxxxxxx
Минск Белрадиопэйдж xxxxxxx@pager.radiopage.com.by
Минск Вессобел pager@vessobel.minsk.by xxxxxxx
Минск Мобилком pager@mobilcom.com.by xxxxxxx
вот эти походу, так что с ними делать?) у меня МТС и Велком есть..

dv, сделай пожалуйста программу плагин.

dv писал(а):

n1k1t0S писал(а):dv, сделай пожалуйста программу плагин.

начал еще летом. нет времени к сожалению. конец года - работы много..

Ну чем ыбстрее тем лучше, если найдёшь свободное время, сделай пожалуйста, будем очень благодарны)

Спасибо тебе dv за хорошую идею. Всё сделал, всё пашет как танк
Вот только сразу скажу что в версии крези комфорт новой 1.44 нет "выполнить vb скрипт" поэтому нужно 1.38 и версия чата соответственно 4.30. Тогда всё работать будет, а то я упорно сначала пытался каким то образом батником воплотить эту идею чтобы запускался он.

Вот мой скрипт может кому нужно будет. Оператор билайн.

im adresmail(0) 'количество маил адресов (начиная с 0)
adresmail(0)="7961984****@sms.beemail.ru" ' адрес 1, на который будет отсылаться письмо
'adresmail(1)="7961984****@sms.beemail.ru" ' адрес 2
'adresmail(2)="7961984****@sms.beemail.ru" ' адрес 3 => dim adresmail(2)
mail_my="******@mail.ru"
mail_pass="********"
mail_serv="smtp.mail.ru"
mail_port=25
Set Mess = CreateObject("CDO.Message")
Set Conf = Mess.Configuration.Fields
With Conf
'Впишите Ваш почтовый SMTP сервер - IP адрес или имя хоста
.Item("http://schemas.microsoft.com/cdo/config ... smtpserver") = mail_serv
.Item("http://schemas.microsoft.com/cdo/config ... ndusername")=mail_my
.Item("http://schemas.microsoft.com/cdo/config ... ndpassword")=mail_pass
.Item("http://schemas.microsoft.com/cdo/config ... thenticate")=1
.Item("http://schemas.microsoft.com/cdo/config ... serverport") = mail_port
.Item("http://schemas.microsoft.com/cdo/config ... nguagecode") = "ru"
.Item("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
.Update
End With
With Mess.BodyPart
.CharSet = "koi8-r"
.ContentTransferEncoding = "8bit"
End With
'Укажите адрес отправителя
Mess.From = mail_my
Mess.Subject = cp.EventUserName&" "&cp.EventUserIP
Mess.TextBody = cp.EventText ' можно использовать - "%text%"
For I = 0 To UBound(adresmail)
Mess.To=adresmail(i)
Mess.Send()
If Err.Number <> 0 Then
ErrN = Err.Number
' WScript.Echo "ВНИМАНИЕ! Ошибка исполнения № " & ErrN & "!!!"
' WScript.Echo " => " & Err.Description
Err.Clear
WScript.Quit(ErrN)
End If
' WScript.Echo "отправлено сообщение на e-mail:"
' Else
' WScript.Echo "сообщение не отправлено"
' End If
Next
Set Conf = Nothing
Set Mess = Nothing

Народ подскажите что за ошибка?? =(

dv писал(а):глянь, что у тебя в строке #30
или давай её сюда.

Вообще данная ошибка вылетает тогда когда мне приходит ответ на мое сообщение.
А так вот что в 30 строке For I = 0 To UBound(adresmail)

dv писал(а):

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

adresmail(0)="7914xxxxxx@sms.mtsdv.ru" ' адрес 1, на который будет отсылаться письмо
'adresmail(1)="7914xxxxxx@sms.mtsdv.ru" ' адрес 2
'adresmail(2)="7914xxxxxx@sms.mtsdv.ru" ' адрес 3 => dim adresmail(2)

если адрес только один, то должно => dim adresmail(0)
возможно в этом дело.

dv и еще проблемка, он почему то начинает отправлять сообщения не через 20 минут отсутствия меня за компом, а сразу и работает не долго потом перестает отправлять. Не подскажешь в чем проблема?

Так же после того как изменил dim adresmail(2) на dim adresmail(0) стала вылетать другая ошибка.