есть мнение, чтоооо... "не думай... о секундах.... свысока... (пам-пам-пам-пам)" (с)
Функция ПопробуемПочту(Почта,тПараметр="",тОшибка="")
Перем тВопрос,тРезультат,СчПопыток;
СчПопыток=1; тРезультат=""; тВопрос="";
Если ПустоеЗначение(тПараметр)+ПустоеЗначение(тОшибка)<>0 Тогда тПараметр="SMTP"; тОшибка="Не получилось"; КонецЕсли;
Сообщить("<"+ТекущееВремя()+"> с параметром """+тПараметр+""" - попытка номер "+СчПопыток,"");
Пока Почта.Подключиться("SMTP")<>1 Цикл
Если ПустоеЗначение(тВопрос)<>1 Тогда Если Найти("Нет,Отмена",Вопрос(тВопрос,"Да+Нет+Отмена",1))<>0
Тогда тРезультат="Не получилось"; Прервать; КонецЕсли; КонецЕсли;
тВопрос="Попробовать с параметром ""SMTP"" ешшо разок ("+СчПопыток+"-ый), ммм?..";
СчПопыток=СчПопыток+1; Сообщить("<"+ТекущееВремя()+"> с параметром ""SMTP"" - попытка номер "+СчПопыток,"");
КонецЦикла;
Если ПустоеЗначение(тРезультат)<>1 Тогда
Сообщить(тРезультат+", попыток = "+СчПопыток+" (потом - надоело).","!!!");
Если Найти("Нет,Отмена",Вопрос("Попробовать с параметром ""Отправка""?..","Да+Нет+Отмена",12))<>0
Тогда Возврат(тРезультат) Иначе Возврат(ПопробуемПочту(Почта,"Отправка","Просто капец")) КонецЕсли;
КонецЕсли;
КонецФункции //ПопробуемПочту
// ПРИМЕР использования:
// Если ПустоеЗначение(ПопробуемПочту(Почта))<>0
// Тогда тРезультат="Уря!!! Получилось!!!!!!!"; Сообщить(тРезультат,"i"); Предупреждение(тРезультат,12); КонецЕсли;
// // ну и рассказать нам - что там в окне сообщений...
Ну типа того.