Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.Пользователь = "mylo@yandex.ru";
Профиль.ПользовательSMTP = "mylo@yandex.ru";
Профиль.Пароль = "12345";
Профиль.ПарольSMTP = "12345";
Профиль.АдресСервераSMTP = "
smtp.yandex.ru";
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
Профиль.ИспользоватьSSLSMTP = Истина;
ТекСообщение = Новый ИнтернетПочтовоеСообщение;
ТекСообщение.Тема = "Тестовое сообщение";
ТекСообщение.Получатели.Добавить("vasya@yandex.ru");
ТекСообщение.Отправитель = "mylo@yandex.ru";
ТекСообщение.Тексты.Добавить("Тестовое сообщение");
ТекПочта = Новый ИнтернетПочта();
ТекПочта.Подключиться(Профиль);
ТекПочта.Послать(ТекСообщение);