PC Toledo

Código: Selecionar todos

CONFIG_MAIL(aFiles,cSubject,aQuem,cMsg,cServerIp,cFrom,cUser,cPass,vPORTSMTP,aCC,aBCC,lCONF,lSSL)

Return(Nil)


**********************************************************************************************************
Function Config_Mail(aFiles,cSubject,aQuem,cMsg,cServerIp,cFrom,cUser,cPass,vPORTSMTP,aCC,aBCC,lCONF,lSSL)
**********************************************************************************************************
Local lRet := .F.
Local oCfg, oError
Local lAut  := .T.

  Try
    oCfg := CREATEOBJECT( 'CDO.Configuration' )
      With Object oCfg:Fields
           :Item( 'http://schemas.microsoft.com/cdo/configuration/smtpserver'             ):Value := cServerIp
           :Item( 'http://schemas.microsoft.com/cdo/configuration/smtpserverport'         ):Value := vPORTSMTP
           :Item( 'http://schemas.microsoft.com/cdo/configuration/sendusing'              ):Value := 2
           :Item( 'http://schemas.microsoft.com/cdo/configuration/smtpauthenticate'       ):Value := lAut // .T.
           :Item( 'http://schemas.microsoft.com/cdo/configuration/smtpusessl'             ):Value := lSSL    //  .T.
           :Item( 'http://schemas.microsoft.com/cdo/configuration/sendusername'           ):Value := alltrim(cUser)
           :Item( 'http://schemas.microsoft.com/cdo/configuration/sendpassword'           ):Value := alltrim(cPass)
           //:Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout'  ):Value := 30
           :Update()
      End With
      lRet := .t.
  Catch oError
    Alert( 'NÆo Foi poss¡vel Enviar o e-mail!'                      +HB_OsNewLine()+ ;
             'Error: '     + Transform(oError:GenCode,   nil) + ';' +HB_OsNewLine()+ ;
             'SubC: '      + Transform(oError:SubCode,   nil) + ';' +HB_OsNewLine()+ ;
             'OSCode: '    + Transform(oError:OsCode,    nil) + ';' +HB_OsNewLine()+ ;
             'SubSystem: ' + Transform(oError:SubSystem, nil) + ';' +HB_OsNewLine()+ ;
             'Mensaje: '   + oError:Description, 'Aten‡Æo' )

  End
  //--> Fim das configura‡äes.

  If lRet
     lRet := Envia_Mail(oCfg,cFrom,aQuem,aFiles,cSubject,cMsg,aCC,aBCC,lCONF)
  EndIf

Return lRet

********************************************************************************
Function Envia_Mail(oCfg,cFrom,cDest,aFiles,cSubject,cMsg,aCC,aBCC,vEMAIL_CONF)
********************************************************************************
  local aTo := {}
  local lRet := .f.
  local nEle, oError

  aTo  := { cDest } //--> Para
  nEle := 1

   For i:=1 To Len(aTo)
       Try
         oMsg := CreateObject ( 'CDO.Message' )
           With Object oMsg
                :Configuration = oCfg
                :From = cFrom
                :To = aTo[i]
                :Cc = aCC
                :BCC = aBCC
                :Subject = cSubject
                :TextBody = cMsg
                For x := 1 To Len( aFiles )
                    :AddAttachment(AllTrim(aFiles[x]))
                Next
                If vEMAIL_CONF=.T.
                   :Fields( 'urn:schemas:mailheader:disposition-notification-to' ):Value := cFrom
                   :Fields:update()
                EndIf
                :Send()
           End With
           lRet := .T.
       Catch oError
           Alert('NÆo foi poss¡vel enviar,' +HB_OsNewLine()+;
                 'a Mensagem: '             +HB_OsNewLine()+;
                  cSubject                  +HB_OsNewLine()+;
                 'p/ o email: ' + aTo[i]    +HB_OsNewLine()+;
                 ' - Erro: ' + + oError:Description , "Aten‡Æo" )
           lRet := .F.
       End
   Next

Return lRet