Enviar un correo electronico o SMTP

[Diego Euri Almanzar]

Saludos,

soy nuevo usando el foro, y usando Xailer, por lo que aun no estoy muy familiarizado. He programado en otros lenguajes Xbase.
He usado la búsqueda, de este foro, para obtener temas sobre enviar correos electrónicos o SMTP. No he encontrado algún tema relacionado.
¿Como envío un SMPT o correo usando funciones de Xailer, alguien me puede ceder un programa fuente con dichas funciones?

Un cordial saludo.

[ignacio]

Hola,

Via CDO:

Código: Seleccionar todo

 WITH OBJECT TCDOGMail():New( Self ) // Si no usa GMail simplemente use TCDOMail

      :cUser      := "usuario@example.com"
      :cPassword  := "?????"
      :cFrom      := "no-reply@example.com"
      :cTO        := "sales@xailer.com"
      :cSubject   := "Pedido de Xailer :-)"
      :cMessage   := "..."
      :lHTML      := .T. // o no
      :Create()

      IF :lInstalled
         Application:lBusy := .t.
         IF !:Send()
            Application:lBusy := .f.
            MsgInfo( "Error al enviar Correo, revise los datos de la configuración de envio." )
         ELSE
            Application:lBusy := .f.
            Msginfo( "Correo enviado con éxito" )
         ENDIF
      ELSE
         MsgInfo( "Servidor de Correo no Instalado imposible enviar email desde el programa." )
      ENDIF

      :End()

 END WITH 

[Diego Euri Almanzar]

Mil gracias.