отправка писем по почте в 1с

Подскажите кое что. Есть код, который отправляет контрагентам счета на оплату в файле *.dbf
Код работает хорошо, если есть интернет. А если нет интернета, он пытается для каждого контрагента подключится к интернету (примерно 30 сек), а потом выдает сообщение, что не удалось подключится.
Есть ли способ программно уменьшить время подключения, например 10 сек

Профиль = новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "xxxxx@yandex.ru";
Профиль.Пользователь = "xxxxxx";
Профиль.ПарольSMTP = "yyyyy"; //
ПРофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = "xxxxx@yandex.ru";
Сообщение.Тема = "Счет на оплату";
Сообщение.Получатели.Добавить(почта);    //email
Сообщение.Тексты.Добавить(Контрагент.Наименование);  // имя контрагента
Сообщение.Вложения.Добавить(АдресА);   //адрес к файлу, который отправляем
Почта = Новый ИнтернетПочта;
Попытка
    Состояние("Отправка почтового сообщения...");
    Почта.Подключиться(Профиль);
    Почта.Послать(Сообщение);
    Сообщить("контрагенту " + Контрагент + " успешно отправлен счет");
Исключение
    Сообщить("Ошибка соединения с сервером.",СтатусСообщения.ОченьВажное);
    Сообщить(""+ОписаниеОшибки());
КонецПопытки;