Имя: Пароль:
1C
1С v8
Работа с почтой 8.3
,
0 olegon7
 
01.06.16
14:13
Написал процедуру отправки файлов на почту


&НаКлиенте
Процедура Отправить(Команда)
    
    СерверSMTP="smtp.mail.ru";
    СерверPOP3="pop3.mail.ru";
    Пользователь="логин почты";
    Пароль="пароль от почты";
    ОтправительПочтовогоСообщения="полное имя ящика";
    ПочтовыйАдресОбмена="адресат";
    ИмяФайлаСообщения="d:\askue_GG.DBF";
    Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = СерверSMTP;
//Профиль.ПользовательSMTP = Пользователь;
//Профиль.ПарольSMTP = Пароль;
//Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;

Профиль.АдресСервераPOP3 = СерверPOP3;
Профиль.Пользователь = Пользователь;
Профиль.Пароль = Пароль;

// Формируем сообщение обмена
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Тема = "СООБЩЕНИЕ_ОБМЕНА: " + ИмяФайлаСообщения;
Сообщение.Отправитель = ОтправительПочтовогоСообщения;

Сообщение.Получатели.Добавить(ПочтовыйАдресОбмена);

Если ИмяФайлаСообщения <> "" Тогда
ФайлСообщения = Новый Файл(ИмяФайлаСообщения);
        //Создаем вложение с файлом обмена
Сообщение.Вложения.Добавить(ИмяФайлаСообщения, ФайлСообщения.Имя);
КонецЕсли;

Почта = Новый ИнтернетПочта;

Сообщ = Новый СообщениеПользователю();

Попытка
Почта.Подключиться(Профиль);
        // Отправляем сообщение с файлом обмена
Почта.Послать(Сообщение);
Исключение
   Сообщ.Текст = " - Ошибка при отправке файла: " + ИмяФайлаСообщения;
Сообщ.Сообщить();
Сообщ.Текст = ОписаниеОшибки();
Сообщ.Сообщить();
Возврат;
КонецПопытки;

Сообщ.Текст = " - Отправлен файл " + ИмяФайлаСообщения + " на адрес " + ПочтовыйАдресОбмена;
Сообщ.Сообщить();

Почта.Отключиться();
    
    
КонецПроцедуры





ругается на метод подключиться

ошибка при работе с smtp код ошибки 25 отказ в установлениии соединения со стороны сервера


что не так ?
1 ДенисЧ
 
01.06.16
14:14
А порты и ССЛ кто будет использовать?
Мейл давно без этого не работает.
2 sitex
 
naïve
01.06.16
14:17
(0) Ищи подключение через SSL , 100500 раз обсуждалось.
3 olegon7
 
01.06.16
14:43
добавил

Профиль.ИспользоватьSSLSMTP=Истина;
Профиль.ПортSMTP=465;


все равно не работает ошибка та же
4 richin
 
01.06.16
14:56
(0) скачать программу stunnel-5.31 и почитай факи по ней. Перенаправляет порты для подключение к серверам.
5 olegon7
 
01.06.16
15:01
(4) хотелось бы обойтись без стороннего по, тем более
в версии 8.3 это говорят можно реализовать в прораммном коде.
6 sitex
 
naïve
01.06.16
15:04
7 olegon7
 
02.06.16
10:47
пробывал различные варианты

все равно не работает все та же ошибка

СерверSMTP="smtp.mail.ru";
    СерверPOP3="pop3.mail.ru";
    Пользователь="***";
    Пароль="***";
    ОтправительПочтовогоСообщения="***";
    ПочтовыйАдресОбмена="***";
    ИмяФайлаСообщения="d:\askue_GG.DBF";
    
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = СерверSMTP;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
Профиль.АдресСервераPOP3 = СерверPOP3;
Профиль.Пользователь = Пользователь;
Профиль.Пароль = Пароль;
Профиль.ПользовательSMTP = Пользователь;
Профиль.ПарольSMTP = Пароль;
Профиль.ИспользоватьSSLSMTP=Истина;
Профиль.ИспользоватьSSLPOP3=Истина;
Профиль.ИспользоватьSSLIMAP=Истина;
Профиль.ПортSMTP=465;
Профиль.АутентификацияSMTP=СпособSMTPАутентификации.ПоУмолчанию;

// Формируем сообщение обмена
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Тема = "СООБЩЕНИЕ_ОБМЕНА: " + ИмяФайлаСообщения;
Сообщение.Отправитель = ОтправительПочтовогоСообщения;

Сообщение.Получатели.Добавить(ПочтовыйАдресОбмена);

Если ИмяФайлаСообщения <> "" Тогда
ФайлСообщения = Новый Файл(ИмяФайлаСообщения);
        //Создаем вложение с файлом обмена
Сообщение.Вложения.Добавить(ИмяФайлаСообщения, ФайлСообщения.Имя);
КонецЕсли;

Почта = Новый ИнтернетПочта;

Сообщ = Новый СообщениеПользователю();

Попытка
Почта.Подключиться(Профиль);
        // Отправляем сообщение с файлом обмена
Почта.Послать(Сообщение);
Исключение
   Сообщ.Текст = " - Ошибка при отправке файла: " + ИмяФайлаСообщения;
Сообщ.Сообщить();
Сообщ.Текст = ОписаниеОшибки();
Сообщ.Сообщить();
Возврат;
КонецПопытки;

Сообщ.Текст = " - Отправлен файл " + ИмяФайлаСообщения + " на адрес " + ПочтовыйАдресОбмена;
Сообщ.Сообщить();

Почта.Отключиться();
    
    
8 Dunemaster
 
02.06.16
10:54
А зачем POP3 настраивается? Лучше отключить все лишнее

АутентификацияSMTP - свойство устарело, лучше его не выставлять.

А другие программы у Вас работают с такими настройками?
9 olegon7
 
02.06.16
10:58
(8)конфа самописная , пишу для себя - для своего же удобства.

почтовых клиентов нет других.

может как-ть лог можно увидеть ?
10 olegon7
 
02.06.16
12:05
Вопрос был в корпоративной сети .
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.