Если НЕ ЗначениеЗаполнено(УчетнаяЗапись) Тогда  // УчетнаяЗаписьДляРассылки - справочник где хранятся параметры подключения
        УчетнаяЗапись = Константы.УчетнаяЗаписьДляРассылки.Получить();    
    КонецЕсли;
    
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    
    Профиль.АдресСервераPOP3 = УчетнаяЗапись.POP3Сервер;   // pop.gmail.com
    Профиль.АдресСервераSMTP = УчетнаяЗапись.SMTPСервер;   // smtp.gmail.com
    Если УчетнаяЗапись.ВремяОжиданияСервера > 0 Тогда
        Профиль.ВремяОжидания = УчетнаяЗапись.ВремяОжиданияСервера;  // таймаут в секундах, у меня было 30 (число)
    КонецЕсли; 
    Профиль.Пароль           = УчетнаяЗапись.Пароль;    // пароль от вашей почты с которой идет отправка
    Профиль.Пользователь     = УчетнаяЗапись.Логин;     // ваша почта с которой идет отправка
    Профиль.ПортPOP3         = УчетнаяЗапись.ПортPOP3;  // 995    
    Профиль.ПортSMTP         = УчетнаяЗапись.ПортSMTP;  // 465
    
    Профиль.ИспользоватьSSLSMTP = Истина;
    Профиль.ИспользоватьSSLPOP3 = Истина;
    
    Если УчетнаяЗапись.ТребуетсяSMTPАутентификация Тогда   // Истина
        Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
        Профиль.ПарольSMTP         = УчетнаяЗапись.ПарольSMTP;  // пароль от вашей почты с которой идет отправка
        Профиль.ПользовательSMTP   = УчетнаяЗапись.ЛогинSMTP;   // ваша почта с которой идет отправка
    Иначе
        Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
        Профиль.ПарольSMTP         = "";
        Профиль.ПользовательSMTP   = "";
    КонецЕсли;
    
    
    ИнтернетПочта = Новый ИнтернетПочта;
    Попытка
        ИнтернетПочта.Подключиться(Профиль);
    Исключение
        ТекстОшибок = ТекстОшибок + Символы.ПС + (Строка(УчетнаяЗапись) + ". " + ОписаниеОшибки());
        Возврат ТекстОшибок;
    КонецПопытки;

    
    ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
                            
    ПочтовоеСообщение.Кодировка       = "utf-8";
    ПочтовоеСообщение.ИмяОтправителя  = СокрЛП(УчетнаяЗапись.АдресЭлектроннойПочты);
    ПочтовоеСообщение.Отправитель     = СокрЛП(УчетнаяЗапись.АдресЭлектроннойПочты);
    ПочтовоеСообщение.Тема            = "Тест";
    
    Получатель = ПочтовоеСообщение.Получатели.Добавить();
    Получатель.Адрес           = СокрЛП(ПолучательПисьма); // email получателя
    Получатель.ОтображаемоеИмя = СокрЛП(ПолучательПисьма); // email получателя
    Получатель.Кодировка       = "utf-8";

    ТекстСообщения = ПочтовоеСообщение.Тексты.Добавить();
    ТекстСообщения.Кодировка = "utf-8";
    ТекстСообщения.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
    ТекстСообщения.Текст      = "Привет мир!";  
    
    Попытка
        ИнтернетПочта.Послать(ПочтовоеСообщение);
    Исключение
        ТекстОшибок = ТекстОшибок + Символы.ПС + (Строка(УчетнаяЗапись) + ". " + ОписаниеОшибки());
        Возврат ТекстОшибок;    
    КонецПопытки;