Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
12 Дек 2017, 15:45
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Как сделать в 1с 7.7 отправку почты  (Прочитано 5957 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн krasdok

  • *
  • Сообщений: 24
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-05-19
  • Сайт: 
  • Профессия: Программист 1С
Здравствуйте!
Нужно сделать в 1с 7.7 отправку бланков результатов анализов на почту пациента.
Пробую использовать ROM-Mail.dll, но она не хочет подключать меня к серверу.
Не удалось подключиться к почтовому серверу

//*******************************************
Процедура Сформировать()
   //Пытаемся подключить компоненту. она должна находится в каталоге программы или каталоге базы
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
Возврат;
Конецесли;




//Подключаемся к почте с указанными параметрами
Почта = СоздатьОбъект("AddIn.AddInMail");
//Почта.СерверОтправки = "94.100.180.160"; 
Почта.СерверОтправки = "smtp.mail.ru";
Почта.ПортОтправки = 25;
Почта.Логин = "andrey_krasdok@mail.ru"; //при необходимости
Почта.Пароль = "**********";//при необходимости   
 Почта.АутентификацияПриОтправке=1;




//Если подключение не удачное прерываем обработку
Если Почта.Соединение = 0 Тогда
Если Почта.Подключиться("Отправка")=0 Тогда //ТУТ ВСЕ ОСТАНАВЛИВАЕТСЯ
Сообщить("Не удалось подключиться к почтовому серверу","!");
Возврат;
Конецесли;
Конецесли;


//Формируем сообщение
Почта.Важность = 0;
Почта.Кодировка = "windows-1251";
Почта.ТипПисьма = 2;
Почта.АдресОтправителя = "com-servic@bk.ru";
Почта.ИмяОтправителя = "Вася";


//указываем получателей письма
Почта.ДобавитьАдрес("krasdok@yandex.ru","Петя","krasdok@yandex.ru");


//если необходимо добавляем вложения
//Почта.Вложения = ФайлВложения;


Почта.Тема = "Тема письма ";
Почта.Тело = "Текст письма";


//Пытаемся отправить
Если Почта.Соединение=0 Тогда
Сообщить("Соединение потеряно","!");
ИначеЕсли Почта.Отправить()=1 Тогда
Сообщить("Почтовое сообщение отправлено","i");
Иначе
Сообщить("Не удалось отправить сообщение","!");
Конецесли;


//Отключаемся
Почта.Отключиться();


КонецПроцедуры



Оффлайн дфтын

  • Могу решить ЛЮБУЮ задачу в 1С и не только.. С вопросами в личку:)
  • *****
  • Сообщений: 2720
  • РЕПУТАЦИЯ: 325
  • КПД: 12%
  • 1С наше все
  • Регистрация: 2014-04-29
    • Skype: Soprov1C
  • Компания: Корпорация зонтиков
  • Профессия: Разработчик 1С
Ошибку то напишите
Помог? Нажми - Спасибо :)
skype: Soprov1C

Оффлайн Herby

  • *****
  • Сообщений: 936
  • РЕПУТАЦИЯ: 164
  • КПД: 18%
  • Регистрация: 2010-08-31
  • Сайт: 
  • Профессия: Программист 7.7
может пароль/логин не верные?

можешь попробовать другую вк: DialMail.dll
Добавлено: 28 Окт 2014, 16:51

В гугле нашел, что MAIL.RU сейчас работает по протоколу SSL, и вот ROM-MAIL.DLL с этим протоколом не дружит.
Пользуйтесь DialMail.dll

Последний раз редактировалось: Herby; 28 Окт 2014, 16:51. Причина: Объединение сообщений

Оффлайн krasdok

  • *
  • Сообщений: 24
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-05-19
  • Сайт: 
  • Профессия: Программист 1С
Спасибо! Я уже понял что другую dll надо использовать...DialMail.dll
Добавлено: 29 Окт 2014, 11:34

:zebzdr: Спасибо!!! С DialMail.dll все заработало!!!

Последний раз редактировалось: krasdok; 29 Окт 2014, 11:34. Причина: Объединение сообщений


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
168 Сообщений
ilyay ilyay
75 Сообщений
oleg-x
55 Сообщений
alex0402
46 Сообщений
andron81_81
42 Сообщений
AIFrame
37 Сообщений
MuI_I_Ika MuI_I_Ika
32 Сообщений
BuhRust
30 Сообщений
Golickoff Golickoff
28 Сообщений
Dima Dddd Dima Dddd
26 Сообщений

* Кто онлайн

  • Точка Гостей: 880
  • Точка Скрытых: 0
  • Точка Пользователей: 15
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal