Прочее

Пауза исполнения кода в секундах

Процедура Пауза(Секунды)

ВремяОкончания = ТекущаяДата() + Секунды;

Пока ТекущаяДата() <= ВремяОкончания Цикл

КонецЦикла;

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

Отправить электронное письмо программно, с вложением

&НаСервереПроцедура ОтправитьНаСервере() Email = Новый ИнтернетПочта; УчетнаяЗапись = Новый ИнтернетПочтовыйПрофиль; УчетнаяЗапись.ВремяОжидания = 120; ; УчетнаяЗапись.АдресСервераSMTP = "smtp.mail.ru"; УчетнаяЗапись.АдресСервераPOP3 = "pop.mail.ru"; УчетнаяЗапись.Пользователь = "infofront@bk.ru"; УчетнаяЗапись.ПользовательSMTP = "infofront@bk.ru"; УчетнаяЗапись.Пароль = "ВашПароль"; УчетнаяЗапись.ПарольSMTP = "ВашПароль"; УчетнаяЗапись.ПортSMTP = 465; УчетнаяЗапись.ИспользоватьSSLSMTP = Истина; УчетнаяЗапись.ПортPOP3 = 995; УчетнаяЗапись.ИспользоватьSSLPOP3 = Истина; УчетнаяЗапись.АутентификацияSMTP = СпособSMTPАутентификации.Login; Письмо = Новый ИнтернетПочтовоеСообщение; Письмо.Отправитель.Адрес = "infofront@bk.ru"; Письмо.Отправитель.ОтображаемоеИмя = "Робот"; Письмо.Вложения.Добавить("Адрес вложения, текст", "наименование файла вложения"); Письмо.Тема = "Отправка письма, тест"; Получатель = Письмо.Получатели.Добавить("skorpofeoga@gmail.com"); Попытка Email.Подключиться(УчетнаяЗапись); Исключение Сообщить("Ошибка авторизации, введите правильный логин и пароль" + ОписаниеОшибки(), СтатусСообщения.Важное); КонецПопытки; Текст = Письмо.Тексты.Добавить(); Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст; Текст.Текст = "Текст письма, тест"; Попытка Email.Послать(Письмо); ЭтаФорма.Доступность = Ложь; Сообщить("Успех"); Исключение Сообщить("Во время отправки письма возникла ошибка" + ОписаниеОшибки(), СтатусСообщения.Важное) КонецПопытки; Email.Отключиться(); КонецПроцедуры