MAPISendMail - adjuntos

[VeRCE]

Buenos dias comunidad..
De regreso de manera un poco mas permanente por estos lugares.
Un antiguo cliente tiene un punto de venta en FiveWin, me pidió que le hiciera algunas modificaciones y corrección de algunos problemas.
Lo primero que me saltó fué que el envío de email con archivos adjuntos a través de MAPI está presentando errores, o mejor dicho, no lo hace como debiera hacerlo.

El código para enviar el email es:

Code: Select all | Expand

MAPISendMail( cSubject, cNoteText, , , , TRUE, TRUE, , aRecipients, aFiles );
 

Quiero aclarar que funciona excelente en Windows XP, en 7 tambien, pero en Windows 8 el adjunto no se agrega.
Revisando la version de FiveWin es la 13.07.

En windows 8 hay 5 cuentas de email configuradas, así que eso lo he descartado por completo.
Otra cosa, el cliente de correo no es Outlook es Incredimail, tendrá eso algo que ver ?

Gracias anticipadas...
un abrazo.

PD
Me estoy desempolvando, espero comprendan si es una pregunta muy obvia de resolver.

[karinha]

Code: Select all | Expand

#Include "FiveWin.ch"
#Include "Mail.ch"

FUNCTION Main()

   LOCAL MailTo, cSndFile, cSndFile2, cText, cSubj

   // Campo Para:
   MailTo   := "joao@pleno.com.br"

   // Arquivo a Anexar
   cSndFile  := "C:\FWH1306\SAMPLES\COMP.Log"
   cSndFile2 := "C:\FWH1306\SAMPLES\ERROR.Log"

   // Texto do Corpo do Email
   cText    := "Errores del Programa - Archivo Anexo"

   // Titulo do Email
   cSubj    := "Errores del Programaa "

   //LogOn in the mail system
   MAPILogOn()

   // Abre o OutLook Express ou o Windows Live Mail - Tem que estar padrao
   SendMail2( MailTo, cSndFile, cSndFile2, cText, cSubj )

   // LogOff from the mail system
   MAPILogOff()

RETURN NIL

// Envia o arquivo de erro do programa

FUNCTION SendMail2( MailTo, cSndFile, cSndFile2, cText, cSubj )

   LOCAL oMail

   DEFINE MAIL oMail                                 ;
      SUBJECT cSubj                                  ;
      TEXT cText                                     ;
      FILES cSndFile, cSndFile, cSndFile2, cSndFile2 ;
      FROM USER                                      ;
      TO MailTo

   ACTIVATE MAIL oMail

   IF ( oMail:nRetCode ) = 0

      // MsgInfo( "Mensagem Enviada com Sucesso", "Aviso" )
      // nada a fazer

   ELSE

      // use google translator..

      ? "Error... "

   ENDIF

RETURN( .T. )

/*
MAPI Mail Syntax:

DEFINE MAIL [ <oMail> ];
[ SUBJECT <cSubject> ];
[ TEXT <cText> ];
[ TYPE <cType> ];
[ DATE <dDate> ];
[ TIME <cTime> ];
[ CONVERSATION <cConversation> ]:
[ RECEIPT ];
[ FROM USER ];
[ FILES <cFilename1> ,<cDescript1>, <cFilenameN>, <cDescriptN> ] ];
[ ORIGIN <cOrigin> [ <cOriginAddress> ] ];
[ TO <cTarget1>, [ <cTargetAddress1> ] [ <cTargetN> [ <cTargetAddressN> ] ] ];

DEFINE MAIL...FILES cFilename1,,cFilename2,,Filename3

/*
DEFINE MAIL oMail ;
SUBJECT cxSUBJECT ;
FILES cRutafileA , cRutafileA , cRutafileB , cRutafileB ;
TEXT cTexto ;
TO cEmail, cEmail
ACTIVATE MAIL oMail
*/

*/

 

Saludos

[VeRCE]

Gracias Karina, probaré en la noche y te hago saber

[VeRCE]

No funcionó.... hay algo mas que pudiera hacer ?

[karinha]

Tienes que establecer Outlook Express o Windows Live Mail como el predeterminado (estándar).

Aquí y en los clientes funciona perfecto.

Saludos

[karinha]

¿Cuál es tu dirección de correo electrónico para una prueba?

[VeRCE]

jcsomac "@" me.com

[karinha]

enviado

[VeRCE]

Gracias Karina, llegó bien...
Dime algo, enviaste desde Windows 8 ?

El problema parece ser que mi cliente usa Incredimail .. no usa outlook ni windows live ni nada de eso.
Sin embargo, con otro programa hecho trambien por FiveWin ( RC-eXtended de Alfredo Arteaga ) si funciona... entonces estoy hecho loco.

[karinha]

Windows 7 32 bits home edition y windows live mail 2011.

El cliente necesita instalar el windows live mail de microsoft.

saludos.

[VeRCE]

Mi problema es con windows 8

[Francisco Horta]

Que tal JC,

Yo envio los correos con archivos adjuntos con CDO y me va bien.

No se mucho sobre esto del MAPI pero a ver si te da un oriente esto:

http://msdn.microsoft.com/en-us/library ... 75(v=vs.85).aspx

saludos
Paco

[VeRCE]

Paco.. tendrás algun ejemplo compilable que me puedas mostrar ?

[Francisco Horta]

como que no se ve, ahi va de nuevo

" http://msdn.microsoft.com/en-us/library ... 75(v=vs.85).aspx "
saludos

[VeRCE]

Sigue sin verse....