Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "цукацукацука";
Профиль.ПортSMTP = 465;
Профиль.POP3ПередSMTP = ложь;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
Профиль.ИспользоватьSSLSMTP = ложь;
Профиль.ТолькоЗащищеннаяАутентификацияSMTP = ложь;
Профиль.Пользователь = "vуцкацука1-Noreply@укацукацука.ru";
Профиль.Пароль = "Hцукацукаg";
Профиль.ПользовательSMTP = "vцукауцкаly@цукацука.ru";
Профиль.ПарольSMTP = "укацукацу";
//Профиль.Таймаут = 60;
Почта = Новый ИнтернетПочта;
Сообщить("Проверка cоединения..");
Попытка
Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);
Сообщить("POP3: соединение ОК");
Сообщить("SMTP: соединение ОК");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Подключиться(Профиль);
Письмо = Новый ИнтернетПочтовоеСообщение;
Письмо.Тема = Заголовок;
// формируем адрес получателя
Получатель = Письмо.Получатели.Добавить(Кому);
Получатель.ОтображаемоеИмя = Кому;
// добавляем к письму имя отправителя
Письмо.ИмяОтправителя = "Сцукауцкания";
Письмо.Отправитель.ОтображаемоеИмя = "Сцукаувцукацукания";
сообщить(константы.СК_Почта_Отправитель.Получить());
Письмо.Отправитель.Адрес = "noreply@цукаука.ru";
// добавляем текст
Текст = Письмо.Тексты.Добавить(Тело);
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Почта.Послать(Письмо, , ПротоколИнтернетПочты.SMTP);
Сообщить("SMTP: посылка ОК");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;