Problemas al enviar email's

Post Reply
User avatar
jmua
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am
Contact:

Problemas al enviar email's

Post by jmua »

:D Hola Chicos:
Tengo una aplicación en la que mando email's.
Este es el código:

Static Function EnviaMensage(oDlg)
Local oMail,CorreoElectronico := AllTrim(Emp->C_EMAIL)
DEFINE MAIL oMail ;
SUBJECT "Envio de email..." ;
TEXT "Esto es un mensaje de prueba" ;
FROM USER ;
FILES "c:\fwh26\samples\testmail.prg", "testmail.prg" ;
TO (CorreoElectronico),(CorreoElectronico) ;
RECEIPT
ACTIVATE MAIL oMail
Return nil

Cuando accedo a esta funcion me sale la ventana de Outlook y todo va bien, pero
cuando pincho en enviar, me deberia de salir la ventana de conexion de Outlook
indicando el porcentaje de salida del mensaje.
Sin embargo me sale una ventana en la que no se ve nada.
El caso es que el mensaje si que lo envia y luego vuelve a la ventana anterior.
Vuelvo a repetir lo mismo y sigue saliendo esta ventana sin ver nada.
Alguien puede decirme que pasa?
:?: Por cierto: ¿Alguien puede decirme como adjunto una imagen?

Muchas gracias
José Martin Uriarte
jmuarg@yahoo.es
Post Reply