Подскажите кое что. Есть код, который отправляет контрагентам счета на оплату в файле *.dbf
Код работает хорошо, если есть интернет. А если нет интернета, он пытается для каждого контрагента подключится к интернету (примерно 30 сек), а потом выдает сообщение, что не удалось подключится.
Есть ли способ программно уменьшить время подключения, например 10 сек
Профиль = новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "
[email protected]";
Профиль.Пользователь = "xxxxxx";
Профиль.ПарольSMTP = "yyyyy"; //
ПРофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = "
[email protected]";
Сообщение.Тема = "Счет на оплату";
Сообщение.Получатели.Добавить(почта); //email
Сообщение.Тексты.Добавить(Контрагент.Наименование); // имя контрагента
Сообщение.Вложения.Добавить(АдресА); //адрес к файлу, который отправляем
Почта = Новый ИнтернетПочта;
Попытка
Состояние("Отправка почтового сообщения...");
Почта.Подключиться(Профиль);
Почта.Послать(Сообщение);
Сообщить("контрагенту " + Контрагент + " успешно отправлен счет");
Исключение
Сообщить("Ошибка соединения с сервером.",СтатусСообщения.ОченьВажное);
Сообщить(""+ОписаниеОшибки());
КонецПопытки;