Problemas al enviar email's

Problemas al enviar email's

Postby jmua » Wed Oct 19, 2005 7:54 am

: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
User avatar
jmua
 
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 20 guests