Пример процедуры

&НаСервере
Процедура ОтправитьНаСервере()
	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.Отключиться();  
КонецПроцедуры