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.