Hola,
Lo haces mediante DEFINE MAIL... ???
Hay otra forma de hacerlo sin que te solicite confirmación. mediante TSmtp.
TSmtp requiere que se hagan 2 llamadas al constructor de la clase, el
primero es una llamada en falso y la segunda es sobre la cual se envia el
correo electronico, asi que el ejemplo podria quedar de la siguiente
manera:
#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( "
[email protected]",; // De
{"
[email protected]", "
[email protected]"},; // Para (arreglo)
"Se notifica a todos: Aumento de sueldo !!!!",; // Mensaje
"Nuevos sueldos",; // Asunto
{"c:\autoexec.bat", "c:\config.sys"} ) // Attachs (arreglo)
RETURN (.T.)
Como comprobarás hace falta incluir en el compilado en archivo Tsmtp.PRG
Si quieres te lo paso, en cualquier caso lo tienes en www.dbwide.com.ar
Suerte.