Отправка почты с 1с

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. maksimov1c 7 02.01.15 17:21 Сейчас в теме

Ребят в чем дело может быть

{Форма.Форма.Форма(56)}: Ошибка при вызове метода контекста (Послать)
Почта.Послать(Сообщение);
по причине:
Неизвестная ошибка (SMTP error code 503)

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. maksimov1c 7 02.01.15 17:22 Сейчас в теме

[CODE пАдресПолучателя, пТемаСообщения, пТекстСообщения, пВложение,
пАдресОтправителя, пСерверSMTP, пПортSMTP, пПользовательSMTP, пПарольSMTP)

//Отправка сообщения
Попытка

//Создадим профиль подключения
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = пСерверSMTP;
Профиль.ПортSMTP = пПортSMTP;
Профиль.ПользовательSMTP = пПользовательSMTP;
Профиль.ПарольSMTP = пПарольSMTP;
Профиль.ВремяОжидания = 180;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

//Создадим сообщение для отправки
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Получатели.Добавить(пАдресПолучателя);
Сообщение.Отправитель = пАдресОтправителя; //.Адрес
Сообщение.Тема = пТемаСообщения;
Сообщение.Тексты.Добавить(пТекстСообщения);
Если ЗначениеЗаполнено(пВложение) Тогда
Сообщение.Вложения.Добавить(пВложение);
КонецЕсли;

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

Возврат Истина;

Исключение

Сообщить(ОписаниеОшибки());
Возврат Ложь;

КонецПопытки;][/1C-CODE]

3. maksimov1c 7 02.01.15 17:23 Сейчас в теме

	пАдресПолучателя, пТемаСообщения, пТекстСообщения, пВложение,
	пАдресОтправителя, пСерверSMTP, пПортSMTP, пПользовательSMTP, пПарольSMTP)
	
	//Отправка сообщения
	Попытка
		
		//Создадим профиль подключения
		Профиль = Новый ИнтернетПочтовыйПрофиль;
	    Профиль.АдресСервераSMTP   = пСерверSMTP;
		Профиль.ПортSMTP           = пПортSMTP;
		Профиль.ПользовательSMTP   = пПользовательSMTP;
		Профиль.ПарольSMTP         = пПарольSMTP;
	    Профиль.ВремяОжидания      = 180; 
   	    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
		
		//Создадим сообщение для отправки
	    Сообщение = Новый ИнтернетПочтовоеСообщение;
	    Сообщение.Получатели.Добавить(пАдресПолучателя);
	    Сообщение.Отправитель = пАдресОтправителя; //.Адрес
	    Сообщение.Тема = пТемаСообщения;
		Сообщение.Тексты.Добавить(пТекстСообщения);
		Если ЗначениеЗаполнено(пВложение) Тогда
			Сообщение.Вложения.Добавить(пВложение);
	    КонецЕсли;
		
		//Отправка сообщения
	    Почта = Новый ИнтернетПочта;
	    Почта.Подключиться(Профиль);
	    Почта.Послать(Сообщение);
	    Почта.Отключиться();
		
		Возврат Истина;
	
	Исключение
		
		Сообщить(ОписаниеОшибки());		
		Возврат Ложь;
		
	КонецПопытки;

Показать

4. deniseek77 86 02.01.15 17:42 Сейчас в теме

(3) maksimov1c, Обратите внимание на поставщика услуг. Там СМТП. Прочтите

5. maksimov1c 7 02.01.15 18:06 Сейчас в теме

Немного не понятно что вы щас имелли ввиду, можно поподробнее

6. Cooler 22 02.01.15 18:15 Сейчас в теме

(5) "Имели в виду" (пишется так) параметры SMTP, применяющиеся конкретным почтовым сервисом. Из вашего кода видно, что они берутся из профиля пользователя, но какие они - понять невозможно.

Например, недавно многие операторы перешли на защищенный режим получения и отправки почты (SSL), у вас это отражено?

7. maksimov1c 7 02.01.15 19:05 Сейчас в теме

(6) Cooler,

Функция ОтправитьСообщение(
	пАдресПолучателя, пТемаСообщения, пТекстСообщения, пВложение,
	пАдресОтправителя, пСерверSMTP, пПортSMTP, пПользовательSMTP, пПарольSMTP)
	
	//Отправка сообщения
	Попытка
		
		//Создадим профиль подключения
		Профиль = Новый ИнтернетПочтовыйПрофиль;
	    Профиль.АдресСервераSMTP   = пСерверSMTP;
		Профиль.ПортSMTP           = пПортSMTP;
		Профиль.ПользовательSMTP   = пПользовательSMTP;
		Профиль.ПарольSMTP         = пПарольSMTP;
	    Профиль.ВремяОжидания      = 180; 
   	    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
		Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина;
		Профиль.ТолькоЗащищеннаяАутентификацияPOP3 = Истина;
		Профиль.ИспользоватьSSLPOP3 = Истина;
		Профиль.ИспользоватьSSLSMTP = истина;
		//Создадим сообщение для отправки
	    Сообщение = Новый ИнтернетПочтовоеСообщение;
	    Сообщение.Получатели.Добавить(пАдресПолучателя);
	    Сообщение.Отправитель = пАдресОтправителя; //.Адрес
	    Сообщение.Тема = пТемаСообщения;
		Сообщение.Тексты.Добавить(пТекстСообщения);
		Если ЗначениеЗаполнено(пВложение) Тогда
			Сообщение.Вложения.Добавить(пВложение);
	    КонецЕсли;
		
		//Отправка сообщения
	    Почта = Новый ИнтернетПочта;
		
	    Почта.Подключиться(Профиль);
	    Почта.Послать(Сообщение);
	    Почта.Отключиться();
		
		Возврат Истина;
	
	Исключение
		
		Сообщить(ОписаниеОшибки());		
		Возврат Ложь;
		
	КонецПопытки;
	
КонецФункции

Показать

8. maksimov1c 7 02.01.15 19:06 Сейчас в теме

Порт 465 правльно? посмотрел у майла.. Платформа 8.3 конфа 2.0 БУх

9. deniseek77 86 03.01.15 05:09 Сейчас в теме

(8) maksimov1c, Яндекс уже разрулил

10. maksimov1c 7 04.01.15 00:02 Сейчас в теме

Какой то момент упускаю все ровно рурегатся.

Оставьте свое сообщение

E-mail: