Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 19:22

Ошибка при работе с почтовым сервером

Автор dimalf, 07 ноя 2012, 18:13

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

dimalf

Добрый день!

Бухгалтерия предприятия 2.0
При нажатии в форме документа кнопки печати, формируются файлы для отправки и идёт вызов процедуры:

&НаКлиенте
Процедура Рассылка(Команда,Путь, ИмФ, ЭА)

ПочтовоеСообщение=Новый ПочтовоеСообщение; // собственно сообщение
ПочтовоеСообщение.Тема = "СЧЁТ-ФАКТУРА и ТОРГ12";
ПочтовоеСообщение.Отправитель = Справочники.ФизическиеЛица.НайтиПоНаименованию(ИмяПользователя()).ИмяЭлектронногоАдреса + "@ИМЯ_СЕРВЕРА.ru";
ПочтовоеСообщение.Получатели.Добавить(СокрЛП(ЭА));
ПочтовоеСообщение.Вложения.Добавить(Путь + ИмФ, );

Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "mail. ИМЯ_СЕРВЕРА .ru";
Профиль.АдресСервераPOP3 = "mail. ИМЯ_СЕРВЕРА .ru";
Профиль.ПортSMTP = 25;
Профиль.ПортPOP3 = 110;
Профиль.Пользователь = СокрЛП( ИмяПользователя());

Почта = Новый Почта;
Почта.Подключиться();
Почта.Послать(ПочтовоеСообщение);
Почта.Отключиться();

УдалитьФайлы(Путь + ИмФ);

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

Вместо отправки письма формируется ошибка:

Подскажите, что не так? Учётная запись пользователя на сервере существует.

MuI_I_Ika

Почтовый сервер через который вы пытаетесь отправить письмо говорит вам, что такой учетной записи нет.

Очевидно проблема в том, что вот в этом куске кода:

Почта = Новый Почта;
Почта.Подключиться();


отсутствует блок авторизации, то есть либо у вас неправильный профиль по-умолчанию, либо его вообще нет.

Причем профиль вы создаете для интернет почты, а отправлять пытаетесь через MAPI

dimalf

То есть надо написать

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

так?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск