|
Отправка Почты 1С 7.7 | ☑ | ||
---|---|---|---|---|
0
nvhost
30.11.14
✎
23:21
|
Ребят подскажите, хочу реализовать след образом
ЗагрузитьВнешнююКомпоненту(“ROM-Mail.dll”); ВК = СоздатьОбъект(“AddIn.AddInMail”); ВК.СерверОтправки = “94.100.180.160”; ВК.ПортОтправки = “465”; ВК.Логин = “111”; ВК.Пароль = “111111111”; ВК.АутентификацияПриОтправке = 1; Если ВК.Подключиться(“Отправка”)=0 Тогда Предупреждение(“Не удалось подключиться к серверу!”); Возврат; КонецЕсли; ВК.АдресОтправителя = “[email protected]”; ВК.ИмяОтправителя = “1С:Предприятие 7.7”; ВК.АдресПолучателя = “[email protected]”; ВК.СкрытаяКопия = “[email protected]”; ВК.ТипПисьма = 2; ВК.Тема = “Тест”; ВК.Тело = “Тестю”; ВК.Вложения = “D:\Базы1С\Архив.zip”; ВК.Кодировка =“windows-1251”; ВК.НеКодироватьТему = 0; ВК.ПодтверждениеДоставки = 0; ВК.ПодтверждениеПрочтения = 0; Если ВК.Отправить() = 1 Тогда Предупреждение(“Письмо успешно отправлено получателю”); Иначе Предупреждение(“Не удалось отправить письмо!”); КонецЕсли; ВК.Отключиться(); |
|||
1
nvhost
30.11.14
✎
23:24
|
Пишет "Не удалось подключиться к серверу!"
|
|||
2
Тюря
30.11.14
✎
23:26
|
||||
3
Klesk666
30.11.14
✎
23:27
|
mail.ru наверно включил ssl
юзай dialmail |
|||
4
Тюря
30.11.14
✎
23:34
|
||||
5
Alexor
30.11.14
✎
23:38
|
Я, вот, пользуюсь.
Отлично работает. oMessage = CreateObject("CDO.Message"); //Кому oMessage.To = Кому; //От кого oMessage.From = Отправитель; //Заголовок сообщения oMessage.Subject = Тема; //Текст сообщения (может быть текстовым или в формате HTML) oMessage.TextBody = ТелоПисьма; //Добавляем вложение Если ТипЗначения(Вложение)=2 Тогда Если пустоеЗначение(Вложение)=0 Тогда oMessage.AddAttachment(Вложение); КонецЕсли; иначеЕсли ТипЗначения(Вложение)=100 Тогда для Сч=1 по Вложение.РазмерСписка() Цикл oMessage.AddAttachment(Вложение.ПолучитьЗначение(сч)); КонецЦикла; КонецЕсли; //Если возникает проблема с кодировками (обычно, если в системе не установлен русский язык), то можно перед отправкой добавить строку //вида: oMessage.TextBodyPart.Charset = "windows-1251"; oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").value = 2; //В этом параметре по умолчанию используется значение 1, которое означает использование каталог Pickup. //Указать почтовый сервер можно так: oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").value = Сервер; //Настройка режима аутентификации производится при помощи того же объекта CDO.Configuration: oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").value=1; //Значение 1 этого параметра означает, что используется базовая аутентификация, значение 0 - без аутентификации (анонимно), значение 2 //- аутентификация NTLM. //Имя пользователя и пароль можно передать точно так же: oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").value = Логин; oMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword").value = Пароль; //Иногда необходимо также определить использование специфического порта (отличного от 25), будет или нет использоваться SSL и время //тайм-аута: oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").value = 25; oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").value = 0; oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").value = 60; //После любых изменений, вносимых в конфигурацию, изменения нужно обязательно сохранить: oMessage.Configuration.Fields.Update(); //и только после вызывать метод Send(): Попытка oMessage.Send(); Исключение Сообщить(ОписаниеОшибки(), "!"); КонецПопытки; |
|||
6
Злопчинский
30.11.14
✎
23:55
|
Готовое решение по принципу взял и работает
http://infostart.ru/public/14131/ |
|||
7
DrZombi
гуру
01.12.14
✎
08:12
|
(0) Используй лучше DialMail, Ром-Майл конфликтует с некоторыми ВК. В общем оно уже устарело :)
|
|||
8
DrZombi
гуру
01.12.14
✎
08:19
|
(6) А Автор жадный и лукавит "CDO.Message", использует клиент ОутГлюка. Который кстати предустановлен в ОС-и Форточек :)
|
|||
9
Злопчинский
01.12.14
✎
12:36
|
Если чтото входит в состав оси то можно сказать что делается без внешних приблуд
А насчет жадности - ну да есть такое Кто жадный -пусть сидит и сам программирует если умеет ;-) |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |