не помогло

Добрый день, у меня такая проблема, PDF файл создается все нормально, потом запрашивает на какой эл.адрес отправить pdf файл, я указываю пишет, что идет соединение и зависает... если указываю порт 25 то выдает ошибку (Не удалось отправить сообщение из-за сбоев на почтовом сервере, а так же проверьте почт. адрес!)
помогите пожалуйста

    Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
        Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll. Почтовые сообщения не формируются !!!","!");
        Возврат;
    КонецЕсли;  
    Почта=СоздатьОбъект("AddIn.AddInMail");
    Почта.СерверОтправки="smtp.gmail.com";     
    Почта.ПортОтправки="465";
    Если Почта.Соединение = 0 Тогда
           Если Почта.Подключиться("Отправка")=0 Тогда
               Сообщить("Не удалось подключиться к почтовому серверу","!");
               Возврат;
        КонецЕсли;
    КонецЕсли;
    Почта.Важность=0;
    Почта.Кодировка="windows-1251";
    Почта.ТипПисьма=2;   
    Почта.АдресОтправителя="testtopik@gmail.com";
    Почта.Логин= "test";
    Почта.Пароль= "123456789";
    Почта.АдресПолучателя= АдрПчт;
        Почта.Вложения = КаталогИБ()+ "ExtForms\EOut\"+ Фл; 
    Почта.Тело = СокрЛП("Здравствуйте"+ПолноеИмяПользователя()+".");
    Если Почта.Соединение=0 Тогда
        Если Почта.Подключиться("Отправка")=0 Тогда
            Сообщить("Не удалось подключиться к почтовому серверу. ","!"); 
        КонецЕсли;
    КонецЕсли;  
    Если Почта.Соединение=0 Тогда
        Сообщить("Соединение потеряно","!");
    ИначеЕсли  Почта.Отправить()=1 Тогда
        Сообщить("Почтовое сообщение отправлено","i");
    ФС.УдалитьФайл(КаталогИБ()+ "ExtForms\EOut\"+Фл+".pdf");
            сообщить ("Успешно удален отправленный в "+ТекущееВремя()+" файл "+ Фл+".pdf");
            ВремяПисьма =СокрЛП(ТекущаяДата())+" в " +СокрЛП(ТекущееВремя())+ "/"+ СокрЛП(АдрПчт);
    Иначе
        Сообщить("Не удалось отправить сообщение возможно из-за сбоев на почтовом сервере.","!");
        Предупреждение("Не удалось отправить сообщение из-за сбоев на почтовом сервере, а так же проверьте почт. адрес!");
    КонецЕсли;
    ИмяФайлаКОтправке = "";
    Фл= "";
    АдрПчт="";
    //Отключаемся
        Почта.Отключиться();

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