Problema con el envio de correo desde programa

[José Luis Sánchez]

Hola a todos,

Voy a contar lo que me está sucediendo con el envio de correos desde uno de mis programas. Hasta ahora nunca me ha funcionado bien el envio de correos desde programa, resulta que tenía la clase RPreview tuneada desde hace muchos años y nunca había utlizado el preview de FWH 19.05 que es la versión que utilizo.

El caso es que comencé a usar el RPreview de FWH 19.05 y comprobé que desde el preview se podía enviar perfectamente correos. Estuve mirando el código y comencé a utilizar el mismo sistema que la clase SendMail de Rpreview. Para programar utilizo un PC de sobremesa donde tengo instalado MailBird que es un software de correo que compré hace años y donde tengo configuradas multiples cuentas de correo. En ese PC todo funcionaba perfectamente. Se me ocurrió probar el envio de correos desde un portátil que utilizo ocasionalmente y cuenta con el programa de Correo de Windows10. Pues ahí el envio de correos desde el preview no funciona. Al intentar enviar un correo me aparece un mensaje diciendo: 'No hay ningun programa de correo electronico asociado para realizar la acción requerida'. El tema es que el portátil sí tiene cofigurado la aplicación Correo como programa predeterminado. Además, hay algunas opciones del programa donde envio correos con la siguiente instrucción:

Code: Select all  Expand view  RUN

Winexec( 'rundll32.exe url.dll,FileProtocolHandler mailto:' + RTrim( cEmail ) + '?subject= )

y en este caso en el portátil se abre la aplicación de Correo y me funciona correctamente.

Pero aún hay mas, en el sobremesa se me ha ocurrido poner como programa de correo predeterminado el Correo de Windows y no me ha funcionado el envio de correos con anexos. Lo he vuelto a cambiar a MailBird y tampoco me funciona. En fin, que Halloween se ha adelantado en mi casa.

¿ Alguna idea de como arreglar el desaguisado ?

Saludos,

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

Winexec( 'rundll32.exe url.dll,FileProtocolHandler mailto:' + RTrim( cEmail ) + '?subject= )

Try with:

Code: Select all  Expand view  RUN

SHELLEXECUTE( 0, 0, "mailto:" + RTrim( cEmail ) + "?subject=" + RTrim( cSubject ), 0, 0, 1 )

[karinha]

Code: Select all  Expand view  RUN

cUrl := ' mailto:' + RTrim( cEmail ) + 'subject= '

o

cUrl := RTrim( cEmail ) + 'subject= '

FUNCTION Internet( cUrl )

   Local cVersion := "Envio de Email"

   cUrl := IF( "@" $ cUrl, "mailto:" + cUrl, cUrl )

   IF Empty( cUrl )

       MsgInfo( "Introduza Algum Valor No Campo", cVersion )

    ELSE

       IF IsWinNT() .OR. isWin2000() // XP/2000/NT
          WinExec( "rundll32.exe url.dll, FileProtocolHandler " + cUrl, 0 )
       ELSE
          WinExec( "Start " + cUrl, 0 )
       ENDIF

   ENDIF

RETURN NIL
 

Regards, saludos.

[José Luis Sánchez]

Gracias por las respuestas, pero creo que no me he explicado bien.

El problema es que cuando intento enviar los correos haciendo lo siguiente:

Code: Select all  Expand view  RUN

              DEFINE MAIL oMail ;
                  SUBJECT cAsunto ;
                  TEXT cTexto ;
                  TO FiGetRepEmail(FI->FiRepresen) ;
                  FILES cFile, cFileNoPath( cFile ) ;
                  FROM USER
               ACTIVATE MAIL oMail

Obtengo el siguiente mensaje:


mientras que si utilizo el winexec(...) el mensaje se envia perfectamente.

SAludos,

[karinha]

Buen día. Debe decirle a WINDOWS cuál es el REMITENTE DE CORREO ELECTRÓNICO predeterminado. En programas estándar de Windows.

Good Morning. You must tell WINDOWS which is the default EMAILS SENDER. In Standard Windows Programs.

Por ejemplo: use el WINDOWS LIVE MAIL como predeterminado que funciona perfecto.

Regards, saludos.

[José Luis Sánchez]

He podido resolver el envio de correo instalando un nuevo cliente de correo, en mi caso BetterBird que es un fork de ThunderBird, y a partir de ahñi el tema me ha funcionado. Con la aplicación Correo que viene con Windows 10 no he sido capaz de hacerlo.

Saludos,