Como enviar correos electronicos desde Fivewin
Posted: Wed Feb 21, 2007 6:27 pm
Hola amigos,
Primero de todo agradecer a Antonio el interés y la diligencia en contestar ami anterior pregunta. Gracias por el buén trabajo que realizas.
Ahora estoy trabado en el envío de correos electrónicos desde una aplicación, he estado trasteando la clase TSmtp, creo que es la apropiada para poder hacerlo.
Bien, he compilado un programa ejemplo que encontré y no me envia el correo, este es:
#INCLUDE "FIVEWIN.CH"
STATIC oWnd
FUNCTION MAIN
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd ON INIT EnviaMail()
RETURN
FUNCTION EnviaMail()
LOCAL oMail, cIp
// primera llamada en falso
oMail:=TSmtp():New(GETHOSTBYNAME("smtp.webcom.com"))
// esta es la buena:
oMail:=TSmtp():New(GETHOSTBYNAME("smtp.webcom.com"))
oMail:SendMail( "hola@servidor.com",; // De
{"otro_email@servidor.com.com", "otro_email@servidor.com"},; // Para (arreglo)
"Se notifica a todos: Aumento de sueldo !!!!",; // Mensaje
"Nuevos sueldos para todos",; // Asunto
{"c:\autoexec.bat", "c:\config.sys"} ) // Attachs (arreglo)
RETURN (.T.)
Por supuesto que cambié smtp.webcom.com por mi servidor smtp y las direcciones de correo por direcciones válidas.
Creo que en ningún lugar me pide mi identificación, es decir el remitente del correo, usuario y contraseña, que debe ser necesario ya que mi servidor lo pide, si no no envia los correos. No se que es lo que hago mal o que me falta por poner.
Espero que me podais ayudar, os agredezco de antemano vuestro interes.
Primero de todo agradecer a Antonio el interés y la diligencia en contestar ami anterior pregunta. Gracias por el buén trabajo que realizas.
Ahora estoy trabado en el envío de correos electrónicos desde una aplicación, he estado trasteando la clase TSmtp, creo que es la apropiada para poder hacerlo.
Bien, he compilado un programa ejemplo que encontré y no me envia el correo, este es:
#INCLUDE "FIVEWIN.CH"
STATIC oWnd
FUNCTION MAIN
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd ON INIT EnviaMail()
RETURN
FUNCTION EnviaMail()
LOCAL oMail, cIp
// primera llamada en falso
oMail:=TSmtp():New(GETHOSTBYNAME("smtp.webcom.com"))
// esta es la buena:
oMail:=TSmtp():New(GETHOSTBYNAME("smtp.webcom.com"))
oMail:SendMail( "hola@servidor.com",; // De
{"otro_email@servidor.com.com", "otro_email@servidor.com"},; // Para (arreglo)
"Se notifica a todos: Aumento de sueldo !!!!",; // Mensaje
"Nuevos sueldos para todos",; // Asunto
{"c:\autoexec.bat", "c:\config.sys"} ) // Attachs (arreglo)
RETURN (.T.)
Por supuesto que cambié smtp.webcom.com por mi servidor smtp y las direcciones de correo por direcciones válidas.
Creo que en ningún lugar me pide mi identificación, es decir el remitente del correo, usuario y contraseña, que debe ser necesario ya que mi servidor lo pide, si no no envia los correos. No se que es lo que hago mal o que me falta por poner.
Espero que me podais ayudar, os agredezco de antemano vuestro interes.