УС Лэнд:ЕГАИС – 2017. Обсуждение программы, предложения, замечания, вопросы : КИС Lack & УС Land

Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
    .To = "zhso--mail.ru" 'куда отправляем
    .From = "Андрей <poseyd---ndexru>" 'имя отправителя + Email
    .Subject = "Тема письма"
    .TextBody = "Body. Line 1" & VbCrLf & "Body. Line 2" & VbCrLf & "Body. Line 3" 'Сообщение  .AddAttachment "Check_auto.txt" 'Прикрепить файл
    .TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
    .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
    .Item(v_Conf & "smtpserver") = "smandex.ru" 'Адрес SMTP-сервера
    .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
    .Item(v_Conf & "sendusername") = "poseydon20so-x.ru" 'здесь имя пользователя
    .Item(v_Conf & "sendpassword") = "Sol---14" 'пароль
    .Item(v_Conf & "smtpserverport") = 25 'порт (альтернативный - 465)
    .Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованое подключение SSL
    .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
    .Update
End With
    .send
End With
Set o_Mess = Nothing

*   Параметры:
*       cTo         Адрес почты куда посылаем письмо
*       cFrom       Адрес отправителя на почтовом сервисе
*       cSub        Тема письма
*       cBody       Тело письма - текст на строки разбивается входящим форматированием
*       cSmpt       Адрес SMTP-сервера
*       cUser       Имя адреса отправителя
*       cPass       Пароль на сервисе отправителя
*       lSSL       Использовать ли шифрованое подключение SSL
PROC pzSendMail(cTo,cFrom,cSub,cBody,cSmpt,cUser,cPass,lSSL)
    LOCA nT:=0, nI:=0, cStr:="", cbd:=cBody
    PRIV cFile:="SMTPMess.vbs"
    
    //  Преобразую cBody, если в нём имеются символы перевода строк CRLF в формат VBS
    nT      := NumToken(cBody,CRLF)
    IF nT > 0
        cBd     := Token(cBody,CRLF,1)
        FOR nI := 2 TO nT DO cBd += [" & VbCrLf & "]+Token(cBody,CRLF,nI)
    ENDI
    
    //  Формирую текствовую строку в досовой кодировке
    cStr    += [Dim oMes, v_Conf]+CRLF
    cStr    += [v_Conf = "http://schemas.microsoft.com/cdo/configuration/"]+CRLF
    cStr    += [Set oMes = CreateObject("CDO.Message")]+CRLF
    cStr    += [With oMes]+CRLF+Spac(3)
    cStr    += [.To = "]+Alltrim(cTo)+["]+CRLF+Spac(3)                              //  куда отправляем
    cStr    += [.From = "]+Alltrim(cFrom)+["]+CRLF+Spac(3)                          //  имя отправителя + Email
    cStr    += [.Subject = "]+Alltrim(cSub)+["]+CRLF+Spac(3)                        //  Тема письма
    cStr    += [.TextBody = "]+cBd+["]+CRLF+Spac(3)                                 //  Сообщение - тело письма

*   Какие-то проблемы были с прикрплением файлов - пока не делаю .AddAttachment = "Check_auto.txt" 'Прикрепить файл
    cStr    += [.TextBodyPart.Charset = "windows-1251"]+CRLF+Spac(3)                //  По умолчанию - русская кодировка
    cStr    += [With .Configuration.Fields]+CRLF+Spac(6)
    cStr    += [.Item(v_Conf & "sendusing") = 2]+CRLF+Spac(6)                       //  без использования каталога Server Exchange
    cStr    += [.Item(v_Conf & "smtpserver") = "]+Alltrim(cSmpt)+["]+CRLF+Spac(6)   //  Адрес SMTP-сервера
    cStr    += [.Item(v_Conf & "smtpauthenticate") = 1]+CRLF+Spac(6)                //  Тип авторизации
    cStr    += [.Item(v_Conf & "sendusername") = "]+Alltrim(cUser)+["]+CRLF+Spac(6) //  Имя пользователя - отправителя
    cStr    += [.Item(v_Conf & "sendpassword") = "]+Alltrim(cPass)+["]+CRLF+Spac(6) //  пароль
    cStr    += [.Item(v_Conf & "smtpserverport") = 25]+CRLF+Spac(6)                 //  порт (альтернативный - 465)
    cStr    += [.Item(v_Conf & "smtpusessl") = ]+IF(lSSL,"True","False")+CRLF+Spac(6)   //  использовать ли шифрованое подключение SSL
    cStr    += [.Item(v_Conf & "smtpconnectiontimeout") = 60]+CRLF+Spac(6)          //  Время до завершения повторных попыток подключения
    cStr    += [.Update]+CRLF+Spac(6)
    cStr    += [End With]+CRLF+Spac(3)
    cStr    += [.send]+CRLF
    cStr    += [End With]+CRLF
    cStr    += [Set o_Mess = Nothing]
    
    //  Сохраняю строку в файле с заданным именем в Windows кодировке
    MemoWrit( cFile, HB_OEMTOANSI(cStr) )
    RUN &cFile
    
    //  Удаляю за собой скрипт
    fErase(cFile)
    RETU