Re: SMS Sender [клиенский плагин]
Добавлено: 07:24, 17.08.2011
Номер телефона. без пробелов
форум поддержки
https://www.commfort.com/ru/forum/
могу показать пример реализации на VB для нескольких шлюзов.Cilvay писал(а):есть те у кого хоть на один номер отправилось? и есть ли тогда смысл развивать, делать поддержку нескольких шлюзов?
....могу показать пример реализации на VB для нескольких шлюзов.
Скинь плиз как VB сделать )leonbratsk писал(а):могу показать пример реализации на VB для нескольких шлюзов.Cilvay писал(а):есть те у кого хоть на один номер отправилось? и есть ли тогда смысл развивать, делать поддержку нескольких шлюзов?
вот так прям весь код вылаживать не буду, но подумать можно и доделаешь( бесплатный труд только в мышеловке )Adidas писал(а):Скинь плиз как VB сделать )leonbratsk писал(а):могу показать пример реализации на VB для нескольких шлюзов.Cilvay писал(а):есть те у кого хоть на один номер отправилось? и есть ли тогда смысл развивать, делать поддержку нескольких шлюзов?
Отправка почты на VBmail_my="адрес почты"
mail_pass="пароль к почте"
mail_serv="смтп сервер"
mail_port=25 ' порт для смтп сервера
Set Mess = CreateObject("CDO.Message")
Set Conf = Mess.Configuration.Fields
With Conf
.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
.Item("http://schemas.microsoft.com/cdo/config ... smtpusessl")=true
.Update
End With
With Mess.BodyPart
.CharSet = "koi8-r"
.ContentTransferEncoding = "8bit"
End With
Mess.From = mail_my
Mess.TextBody = " текст сообщения "
Mess.To=adresmail
Mess.Send()
Set Conf = Nothing
Set Mess = Nothing