Page 1 of 2

MAPISendMail - adjuntos

Posted: Tue Aug 26, 2014 2:02 pm
by 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

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.

Re: MAPISendMail - adjuntos

Posted: Tue Aug 26, 2014 2:55 pm
by karinha

Code: Select all

#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

Re: MAPISendMail - adjuntos

Posted: Tue Aug 26, 2014 5:51 pm
by VeRCE
Gracias Karina, probaré en la noche y te hago saber :)

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 4:24 pm
by VeRCE
No funcionó.... hay algo mas que pudiera hacer ?

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 5:41 pm
by karinha
Tienes que establecer Outlook Express o Windows Live Mail como el predeterminado (estándar).

Aquí y en los clientes funciona perfecto.

Saludos

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 5:43 pm
by karinha
¿Cuál es tu dirección de correo electrónico para una prueba?

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 5:52 pm
by VeRCE
jcsomac "@" me.com

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 6:18 pm
by karinha
enviado

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 6:20 pm
by 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.

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 6:23 pm
by karinha
Windows 7 32 bits home edition y windows live mail 2011.

El cliente necesita instalar el windows live mail de microsoft.

saludos.

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 9:58 pm
by VeRCE
Mi problema es con windows 8

:(

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 10:21 pm
by 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 ... s.85).aspx

saludos
Paco

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 10:23 pm
by VeRCE
Paco.. tendrás algun ejemplo compilable que me puedas mostrar ?

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 10:24 pm
by Francisco Horta
como que no se ve, ahi va de nuevo

" http://msdn.microsoft.com/en-us/library ... s.85).aspx "
saludos

Re: MAPISendMail - adjuntos

Posted: Thu Aug 28, 2014 10:34 pm
by VeRCE
Sigue sin verse....