email desde preview falta el cuerpo del email.

[Garbi]

Hola cuando envio un email desde preview que aparece el outllook automáticamente con el fichero adjunto en pdf. Cuando le pongo una firma o escribo algo y lo envío.
Solamente llega el fichero, el cuerpo del email no. Si me deja poner la firma y escribir, pero no lo envía.

¿Tenéis alguna idea de porque puede suceder esto?

[karinha]

En RPREVIEW.PRG

Code: Select all  Expand view

METHOD SendEmail() CLASS TPreview

   local oMail, cName, cFile

   cName := If( ::oReport != nil, ::oReport:cName, ::oDevice:cDocument )
   cFile := cFilePath( ::oDevice:aMeta[ 1 ] ) + StrTran( cName, '.', '' ) + ;
            Left( HB_TToS( HB_DateTime() ), 14 ) + ".pdf"

   CursorWait()
   cFile := ::SaveAs( .t., cFile, .f. )
   CursorArrow()

   if ! File( cFile )
      MsgInfo( FWString( "PDF not saved to send Email" ), FWString( "Information" ) )
   elseif ::bEmail != nil
      Eval( ::bEmail, Self, cName, cFile )
   else
      DEFINE MAIL oMail ;
         SUBJECT cName ;
         TEXT "Cuerpo del email" ;
         FILES cFile, cFile ;
         FROM USER

      ACTIVATE MAIL oMail

      // MsgInfo( oMail:nRetCode )  check the returned code!
   endif

   ::oMeta1:SetFocus()

return nil
 



[Garbi]

Funciona. Ahora si que me envía el documento tenia puesto : TEXT ""

Ahora el problema es que me convierte el formato de HTML a formato texto sin formato y tengo que ir en cada email y ponerlo en formato HTML. En el outlook tengo definido que enviar un correo es en formato HTML pero al cambiar el parámetro de TEXT " Cuerpo del email" lo cambia a texto sin formato y claro las firmas son HTML y tengo que ir a cambiarlo para poder poner correctamente la firma.

¿Alguna sugerencia?

Gracias.

[karinha]

Lo siento, no comprendo perfecto... Mira se ayuda:

Code: Select all  Expand view

#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\VoNfeUtil2G.Log"
   cSndFile2 := "C:\FWH1306\SAMPLES\ERROR.Log"

   // Texto do Corpo do Email
   cText    := "Favor Verificar Erros da Nota Fiscal Eletrônica - Arquivo Anexo"

   // Titulo do Email
   cSubj    := "Erros da Nota Fiscal Eletrônica"

   //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

      MsgInfo( OemToAnsi( "NÆo Foi Possivel Enviar a Mensagem de Erro" )+CRLF+;
               OemToAnsi( "Por Favor Verifique se o Enviador de Email" )+CRLF+;
               OemToAnsi( "OutLook Express ou Windows Live Mail,     " )+CRLF+;
               OemToAnsi( "Est  Definido Como Enviador PadrÆo, nas   " )+CRLF+;
               OemToAnsi( "Op‡äes da Internet - Internet Explorer.   " ),     ;
               OemToAnsi( "NÆo Foi Possivel Enviar a Mensagem de Erro" ) )

   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
*/

*/

// FIM DO PROGRAMA
 



[Garbi]

Ele funciona. Agora, se você me enviar o documento estava usando: TEXT ""

Agora o problema é que eu converter o formato HTML para o formato de texto simples e tem que ir em cada e-mail e colocá-lo em formato HTML. Na visão que tenho definido que o envio de um e-mail está no formato HTML, mas alterando o parâmetro TEXT "Corpo do e-mail" muda para texto simples e assinaturas claras são HTML e tem que ir para mudar para colocar a assinatura corretamente.

Alguma sugestão?

Obrigado.

[karinha]

Algo asi?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31908

http://fivewin.com.br/index.php?/topic/24453-email-com-assinatura-eletronica-e-logotipo/#comment-273025

Saludos.