FiveTech Support Forums

#include "fivewin.ch"

function main()

  LOCAL loCfg, loMsg, oError, isError := .F.

  local cSMTP := "smtp.gmail.com", cPuerto := 465, cLogin := "lucasxxx@gmail.com", cPassword := "123444"
  local cRemitente := "demo@arsys.es", cDestino := "lucasxxx@gmail.com", cAsunto := "prueba con Gestión y acentós", cMensaje := "Cuerpo del mensaje"+CRLF+CRLF+CRLF
  local cSSL := .T., cAuth := .T.
  local cFichero := nil


  HB_LangSelect("ES") 
  HB_CDPSELECT("ESWIN")



  // Control autentificación via SSL
  IF alltrim( cSMTP ) = "smtp.live.com"
     cSSL := .T.
  ELSEIF alltrim( cSMTP ) = "smtp.gmail.com"
     cSSL := .T.
  ENDIF






  //  Internet
  TRY

    loCfg := CREATEOBJECT( "CDO.Configuration" )
    WITH OBJECT loCfg:Fields
      :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cSMTP  // "smtp.gmail.com"
      :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := cPuerto  //465
      :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
      :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := cAuth //.T.
      :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := cSSL  //  .T.
      :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := cLogin     //tu cuenta de correo de salida
      :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := cPassword   //"" //con tu clave gmail. en este caso
      :Update()
    END WITH




    loMsg := CREATEOBJECT ( "CDO.Message" )
    WITH OBJECT loMsg
       :Configuration = loCfg
       :From = cRemitente
       :To = cDestino       
       :Subject =  cAsunto
       :TextBody = cMensaje
       :AddAttachment( cFichero )
       :Send()
    ENDWITH




  CATCH oError
   isError := .T.


  END




  msgalert(cAsunto)

  IF isError = .F.
     MsgInfo( "Mensaje enviado correctamente", " A V I S O " )
  ELSE
     MsgStop("ERROR: Se ha producido un error al enviar un mensaje al buzón "+cDestino+CRLF+CRLF+"Descripción del Error: "+oError:Description, " E R R O R ")
  ENDIF


return nil