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.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Enviar un correo electronico o SMTP
-
- Mensajes: 3
- Registrado: Mié Dic 02, 2020 9:11 am
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Enviar un correo electronico o SMTP
Hola,
Via CDO:
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
-
- Mensajes: 3
- Registrado: Mié Dic 02, 2020 9:11 am
Re: Enviar un correo electronico o SMTP
Mil gracias.