v7: Зависает 1с при отправке ROM-mail-ом

//-----------------------------------------------------------------------------
var cdoAutoPromoteBodyParts,
        cdoFlushBuffersOnWrite,
        cdoHTTPCookies,
        cdoLanguageCode,
        cdoNNTPAccountName,
        cdoNNTPAuthenticate,
        cdoNNTPConnectionTimeout,
        cdoNNTPServer,
        cdoNNTPServerPickupDirectory,
        cdoNNTPServerPort,
        cdoNNTPUseSSL,
        cdoPostEmailAddress,
        cdoPostPassword,
        cdoPostUserName,
        cdoPostUserReplyEmailAddress,
        cdoPostUsingMethod,
        cdoSaveSentItems,
        cdoSendEmailAddress,
        cdoSendPassword,
        cdoSendUserName,
        cdoSendUserReplyEmailAddress,
        cdoSendUsingMethod,
        cdoSMTPAccountName,
        cdoSMTPAuthenticate,
        cdoSMTPConnectionTimeout,
        cdoSMTPServer,
        cdoSMTPServerPickupDirectory,
        cdoSMTPServerPort,
        cdoSMTPUseSSL,
        cdoURLGetLatestVersion,
        cdoURLProxyBypass,
        cdoURLProxyServer,
        cdoUseMessageResponseText,
        Контрагент, вклУдаление;
//-----------------------------------------------------------------------------
procedure sendMsg()

    sFrom ="<[email protected]>";

    iConf = createObject("CDO.Configuration");

    iConf.fields(cdoSendUsingMethod).value = 2;
    iConf.fields(cdoSMTPServer).value         = "s.m.ru";
    iConf.fields(cdoSMTPServerPort).value     = 587; //465 TLS
    iConf.fields(cdoSMTPAuthenticate).value   = 1;
    iConf.fields(cdoSendUserName).value       = "[email protected]";  //логин
    iConf.fields(CdoSendPassword).value       = "mmm"; //пароль
    iConf.fields(cdoSendEmailAddress).value   = """M"" <[email protected]>";
    iConf.fields(cdoSMTPUseSSL).value         = 0;  //Secure Sockets Layer
    iConf.fields.update();

    iMsg=createObject("CDO.Message");
    iMsg.configuration = iConf;

    iMsg.to=sTo;
    iMsg.from=sFrom;
    iMsg.subject=sSubject;

    iMsg.textBody=sBody;
    iMsg.textBodypart.charset="iso-8859-5";

    iMsg.send();
    message("Сообщение отправлено.");

endProcedure
//-----------------------------------------------------------------------------
Процедура ПриОткрытии()

    Если ТипЗначения(Форма.Параметр)=100 Тогда
        sTo             = Форма.Параметр.ПолучитьЗначение(1); //email
        sSubject         = Форма.Параметр.ПолучитьЗначение(2); //Заголовок
        sBody            = Форма.Параметр.ПолучитьЗначение(3); //Текст письма
        sAttach         = Форма.Параметр.ПолучитьЗначение(4); //Вложение
        вклУдаление     = Форма.Параметр.ПолучитьЗначение(5); //Анкета
        Контрагент        = Форма.Параметр.ПолучитьЗначение(6); //Контрагент

        Если ПустоеЗначение(Контрагент.Кому) = 0 Тогда
            sBody = СокрЛП(Контрагент.Кому) + РазделительСтрок + РазделительСтрок + sBody;
        КонецЕсли;
        //sendMsg();
    Иначе
        Предупреждение("Эта обработка используется в системных целях!",6);
        СтатусВозврата(0); Возврат;
    КонецЕсли;


КонецПроцедуры;
//-----------------------------------------------------------------------------
cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword";;
cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress";;
cdoAutoPromoteBodyParts      = "http://schemas.microsoft.com/cdo/configuration/autopromotebodyparts"; ;
cdoFlushBuffersOnWrite       = "http://schemas.microsoft.com/cdo/configuration/flushbufferson;write"; ;
cdoHTTPCookies               = "http://schemas.microsoft.com/cdo/configuration/httpcookies"; ;
cdoLanguageCode              = "http://schemas.microsoft.com/cdo/configuration/languagecode"; ;
cdoNNTPAccountName           = "http://schemas.microsoft.com/cdo/configuration/nntpaccountname"; ;
cdoNNTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/nntpauthenticate"; ;
cdoNNTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/nntpconnectiontimeout"; ;
cdoNNTPServer                = "http://schemas.microsoft.com/cdo/configuration/nntpserver"; ;
cdoNNTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/nntpserverpickupdirectory"; ;
cdoNNTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/nntpserverport"; ;
cdoNNTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/nntpusessl"; ;
cdoPostEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/postemailaddress"; ;
cdoPostPassword              = "http://schemas.microsoft.com/cdo/configuration/postpassword"; ;
cdoPostUserName              = "http://schemas.microsoft.com/cdo/configuration/postusername"; ;
cdoPostUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress"; ;
cdoPostUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/postusing"; ;
cdoSaveSentItems             = "http://schemas.microsoft.com/cdo/configuration/savesentitems"; ;
cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress"; ;
cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword"; ;
cdoSendUserName              = "http://schemas.microsoft.com/cdo/configuration/sendusername"; ;
cdoSendUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress"; ;
cdoSendUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/sendusing"; ;
cdoSMTPAccountName           = "http://schemas.microsoft.com/cdo/configuration/smtpaccountname"; ;
cdoSMTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"; ;
cdoSMTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"; ;
cdoSMTPServer                = "http://schemas.microsoft.com/cdo/configuration/smtpserver";;
cdoSMTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory";;
cdoSMTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";;
cdoSMTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";;
cdoURLGetLatestVersion       = "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion";;
cdoURLProxyBypass            = "http://schemas.microsoft.com/cdo/configuration/urlproxybypass";;
cdoURLProxyServer            = "http://schemas.microsoft.com/cdo/configuration/urlproxyserver";;
cdoUseMessageResponseText    = "http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext";;