Imagem no corpo do email

jfaguiar · March 21, 2013

OlÃ¡ amigos.

Estou usando a classe Tmail e gostaria de saber como faÃ§o para colocar uma imagem html no corpo do email, tipo assinatura eletrÃ´nica. NÃ£o como anexo, mas direto no corpo do e-mail.

Se alguÃ©m tiver uma soluÃ§Ã£o para classe tmail ou para Rmail, por favor, passa pra mim.

AbraÃ§o

Kosmos_mail.html

kapiaba · March 21, 2013

OlÃ¡, esta resposta existia no forum antigo, mas... excafedeu-se. Ou entÃ£o, a busca deste forum nÃ£o estÃ¡ funcionando, pois nÃ£o achei a resposta, mas q existe, existe!!

Entre em contato com o Evandro via email, msn, sinal de fumaÃ§a ou tambor, que ele sabe a resposta, ou aguarde ele entrar.

abs,

jfaguiar · March 21, 2013

kkk vou aguardar.

Valeu Kapiaba.

jfaguiar · March 25, 2013

Bom dia amigos. SerÃ¡ que alguÃ©m pode me ajudar.

kapiaba · March 25, 2013

Fale com o Alexandre Pereira e peÃ§a o Email do Evandro.

msn: alexpdasilva6@hotmail.com

Belo Horizonte/MG

kapiaba · March 25, 2013

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

O cara e imortal mesmo... kkkkkkkkkkkkkkkk

evandro · March 25, 2013

OlÃ¡,

Eu nunca tentei usar este recurso. Por isso nÃ£o posso ajudar.

[]s,

Evandro G. de Paula

Curvelo - MG

kapiaba · March 25, 2013

Putz, me enganei entÃ£o...

Tente com este:

Wellington Vieira
UberlÃ¢ndia/MG

E-mail:

wellington_programador@hotmail.com

abs,

kapiaba · March 25, 2013

Veja se ajuda:

http://www.pctoledo.com.br/forum/viewtopic.php?t=3298

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=12140&start=15

kapiaba · March 26, 2013

Mira este ejemplo e ver se te ayuda,

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=13175&p=142073#p142073

Abs,

kapiaba · March 26, 2013

Muitos exemplos, guarde ahi, caso eu precise, vou chamÃ¡-lo.

http://www.portalfox.com/index.php?name=News&file=article&sid=2626&theme=Printer

abs,

kapiaba · March 26, 2013

Encerrando assunto:

FUNCTION Envia_Mail( oCfg,cFROM, cTo, cCC, cBCC, cMsg, cSubject )
 
  LOCAL cToken
  LOCAL lRet := .F.
 
  PUBLIC lNewAnexoVemdaNFe
 
  cTo   := Destinatarios( cTo )  //-> PARA
  cCC   := Destinatarios( cCC )  //-> COM COPIA
  cBCC  := Destinatarios( cBCC ) //-> COM COPIA OCULTA
 
  TRY
     oMsg := CREATEOBJECT ( "CDO.Message" )
 
     WITH OBJECT oMsg
 
          :Configuration = oCfg
          :FROM = cFROM
          :To = cTo
          :CC = cCC
          :BCC = cBCC
 
          :Subject = cSubject
          :TextBody = cMsg
 
          IF lNewAnexoVemdaNFe  // VEM DA NF-E, ENVIAR EMAIL +- LINHA 14192/200
 
             FOR x := 1 To Len( NewAnexo )  // Anexos dos Email aqui - NF-e
 
                SYSREFRESH()
 
                IF NewAnexo[x] <> NIL
                   :AddAttachment(ALLTRIM(NewAnexo[x]))
                ENDIF
 
             NEXT
 
             // Para Incorporar uma imagem no corpo do email.
             :HTMLBody = "<p><img src='cid:id_imagen10'></p>" +"<p>A Imagem Acima Esta Incorporada a Mensajem.</p>"
 
             loBP:=:AddRelatedBodyPart("c:\plenocbx\silco.bmp", "id_imagen10", 1)
 
             WITH OBJECT loBP:Fields
                :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"
                :Update()
             END WITH
 
          ELSE // VEM DAQUI MESMO - RMAIL.PRG - INICIO
 
             FOR x := 1 To Len( aAttach )  // Anexos dos Email aqui - LOCAL
 
                SYSREFRESH()
 
                IF aAttach[x] <> NIL
                   :AddAttachment(ALLTRIM(aAttach[x]))
                ENDIF
 
             NEXT
 
             // Para Incorporar uma imagem no corpo do email.
             :HTMLBody = "<p><img src='cid:id_imagen10'></p>" +"<p>A Imagem Acima Esta Incorporada a Mensajem.</p>"
 
             loBP:=:AddRelatedBodyPart("c:\plenocbx\silco.bmp", "id_imagen10", 1)
 
             WITH OBJECT loBP:Fields
                :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"
                :Update()
             END WITH
 
          ENDIF
 
          :Send()
 
     END WITH
 
     lRet := .T.
 
   CATCH
 
      IF lVemdeVariosEmails .AND. ; // := .F. // Para Checar Status do Email se Errado
         lTemEmaiLErrado            // := .F.
 
         MsgStop( OemToAnsi( "ATENâ‚¬Ã‡O USUÂµRIO:                      " )+CRLF+;
                  OemToAnsi( "O PROGRAMA JÂµ NÃ‡O AVISOU QUE TEM EMAIL" )+CRLF+;
                  OemToAnsi( "ERRADO NO CADASTRO DE CLIENTES?       " )+CRLF+;
                  OemToAnsi( "RETORNE PARA A LISTBOX DOS EMAILS E   " )+CRLF+;
                  OemToAnsi( "ANOTE OS CLIENTES COM EMAILS ERRADOS. " )+CRLF+;
                  OemToAnsi( "SAIA DA NOTA FISCAL ELETRÃ¢NICA E ENTRE" )+CRLF+;
                  OemToAnsi( "NO PLENO E CORRIJA OS EMAILS COM ERRO." )+CRLF+;
                  OemToAnsi( "PARA IMPRIMIR UMA LISTAGEM DOS EMAILS " )+CRLF+;
                  OemToAnsi( "DOS CLIENTES, ENTRE NO BOTÃ‡O:         " )+CRLF+;
                  OemToAnsi( "<Alterar Email do Cliente> e Imprima. " ),     ;
                  OemToAnsi( "Cadastro de Clientes Com Email Errado." ) )
 
      ELSE
 
         MsgInfo( "NÃ£o Foi PossÃvel Enviar o E-Mail. ERRO! "+CRLF+ ;
                  "Verifique o Remetente.                  "+CRLF+ ;
                  "Verifique o DestinatÃ¡rio.               "+CRLF+ ;
                  "Verifique o NÂº. da Porta do Servidor.   "+CRLF+ ;
                  "Se o Provedor For gmail, a Porta a Ser  "+CRLF+ ;
                  "Usada: Use a Porta 465 Para gmail.com.  "+CRLF+ ;
                  "Verifique se o Provedor Ã© Https.        "+CRLF+ ;
                  "Verifique a Sua Senha do Email.         "+CRLF+ ;
                  "Sua Senha Tem Que Ser Igual a Senha     "+CRLF+ ;
                  "Que Esta Cadastrada no Provedor.        "+CRLF+ ;
                  "Se Trocaram a Sua Senha no Provedor:    "+CRLF+ ;
                  "BotÃ£o:                                  "+CRLF+ ;
                  "<Configurar/Enviar Email(s)>            "+CRLF+ ;
                  "<Ferramentas> / <Provedores> / <Alterar>"+CRLF+ ;
                  "Cadastre a Senha Igual a do Provedor.   ",      ;
                  "NÃ£o Foi PossÃvel Enviar a Mensagem...   " )
 
      ENDIF
 
      lRet := .F.
 
   END
 
RETURN( lRet )

kapiaba · March 26, 2013

Exemplo em foxprÃ³ final quase igual a fivewin.



LOCAL loCfg, loMsg, lcFile, loErr

TRY

  loCfg = CREATEOBJECT("CDO.Configuration")

  WITH loCfg.Fields

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 && Ã³ 587

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "josefox@gmail.com"

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

    .Update

  ENDWITH

  loMsg = CREATEOBJECT ("CDO.Message")

  WITH loMsg

    .Configuration = loCfg

    *-- Remitenete y destinatarios

    .From = "Jose Fox <josefox@gmail.com>"

    .To = "Usuario Uno <user1@gmail.com>"

    .Cc = "Usuario Dos <user2@gmail.com>"

    *- NotificaciÃ³n de lectura

    .Fields("urn:schemas:mailheader:disposition-notification-to") = .From

    .Fields("urn:schemas:mailheader:return-receipt-to") = .From

    .Fields.Update

    *-- Tema

    .Subject = "Ejemplo del " + TTOC(DATETIME())

    *-- Formato HTML desde la Web

    .CreateMHTMLBody("http://www.portalfox.com/articulos/archivos/correo.htm", 0)

    *-- Archivo adjunto

    lcFile = GETFILE()

    IF NOT EMPTY(lcFile)

      .AddAttachment(lcFile)

    ENDIF

    *-- Envio el mensaje

    .Send()

  ENDWITH

CATCH TO loErr 

  MESSAGEBOX("No se pudo enviar el mensaje" + CHR(13) + ;

    "Error: " + TRANSFORM(loErr.ErrorNo) + CHR(13) + ;

    "Mensaje: " + loErr.Message , 16, "Error")

FINALLY

  loMsg = NULL

  loCfg = NULL

ENDTRY

kapiaba · March 26, 2013



          /*

          Solicitando confirmaciÃ³n de lectura

 

          WITH loMsg

         .From = "user@mail.com"

         .Fields("urn:schemas:mailheader:disposition-notification-to") = .From

         .Fields("urn:schemas:mailheader:return-receipt-to") = .From

         .Fields.Update

          ENDWITH

          */

 

         :Fields("urn:schemas:mailheader:disposition-notification-to") = :FROM

         :Fields("urn:schemas:mailheader:return-receipt-to")           = :FROM

Galera ajuda ahi:

Nao da erro, mas nao me pede a confirmacao do email, o que esta errado?

SAOliveira · March 26, 2013

:Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := ::cFrom

:Fields:update()

cFrom=Conta de saida.

kapiaba · March 26, 2013



    // Assim funcionou..

    :Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := cFrom

    :Fields:UpDate()

 

    //cFrom=Conta de saida. Quem envia o email

Abs,

Marca · May 16, 2013

Encerrando assunto:

FUNCTION Envia_Mail( oCfg,cFROM, cTo, cCC, cBCC, cMsg, cSubject )
 
  LOCAL cToken
  LOCAL lRet := .F.
 
  PUBLIC lNewAnexoVemdaNFe
 
  cTo   := Destinatarios( cTo )  //-> PARA
  cCC   := Destinatarios( cCC )  //-> COM COPIA
  cBCC  := Destinatarios( cBCC ) //-> COM COPIA OCULTA
 
  TRY
     oMsg := CREATEOBJECT ( "CDO.Message" )
 
     WITH OBJECT oMsg
 
          :Configuration = oCfg
          :FROM = cFROM
          :To = cTo
          :CC = cCC
          :BCC = cBCC
 
          :Subject = cSubject
          :TextBody = cMsg
 
          IF lNewAnexoVemdaNFe  // VEM DA NF-E, ENVIAR EMAIL +- LINHA 14192/200
 
             FOR x := 1 To Len( NewAnexo )  // Anexos dos Email aqui - NF-e
 
                SYSREFRESH()
 
                IF NewAnexo[x] <> NIL
                   :AddAttachment(ALLTRIM(NewAnexo[x]))
                ENDIF
 
             NEXT
 
             // Para Incorporar uma imagem no corpo do email.
             :HTMLBody = "<p><img src='cid:id_imagen10'></p>" +"<p>A Imagem Acima Esta Incorporada a Mensajem.</p>"
 
             loBP:=:AddRelatedBodyPart("c:\plenocbx\silco.bmp", "id_imagen10", 1)
 
             WITH OBJECT loBP:Fields
                :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"
                :Update()
             END WITH
 
          ELSE // VEM DAQUI MESMO - RMAIL.PRG - INICIO
 
             FOR x := 1 To Len( aAttach )  // Anexos dos Email aqui - LOCAL
 
                SYSREFRESH()
 
                IF aAttach[x] <> NIL
                   :AddAttachment(ALLTRIM(aAttach[x]))
                ENDIF
 
             NEXT
 
             // Para Incorporar uma imagem no corpo do email.
             :HTMLBody = "<p><img src='cid:id_imagen10'></p>" +"<p>A Imagem Acima Esta Incorporada a Mensajem.</p>"
 
             loBP:=:AddRelatedBodyPart("c:\plenocbx\silco.bmp", "id_imagen10", 1)
 
             WITH OBJECT loBP:Fields
                :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"
                :Update()
             END WITH
 
          ENDIF
 
          :Send()
 
     END WITH
 
     lRet := .T.
 
   CATCH
 
      IF lVemdeVariosEmails .AND. ; // := .F. // Para Checar Status do Email se Errado
         lTemEmaiLErrado            // := .F.
 
         MsgStop( OemToAnsi( "ATENâ‚¬Ã‡O USUÂµRIO:                      " )+CRLF+;
                  OemToAnsi( "O PROGRAMA JÂµ NÃ‡O AVISOU QUE TEM EMAIL" )+CRLF+;
                  OemToAnsi( "ERRADO NO CADASTRO DE CLIENTES?       " )+CRLF+;
                  OemToAnsi( "RETORNE PARA A LISTBOX DOS EMAILS E   " )+CRLF+;
                  OemToAnsi( "ANOTE OS CLIENTES COM EMAILS ERRADOS. " )+CRLF+;
                  OemToAnsi( "SAIA DA NOTA FISCAL ELETRÃ¢NICA E ENTRE" )+CRLF+;
                  OemToAnsi( "NO PLENO E CORRIJA OS EMAILS COM ERRO." )+CRLF+;
                  OemToAnsi( "PARA IMPRIMIR UMA LISTAGEM DOS EMAILS " )+CRLF+;
                  OemToAnsi( "DOS CLIENTES, ENTRE NO BOTÃ‡O:         " )+CRLF+;
                  OemToAnsi( "<Alterar Email do Cliente> e Imprima. " ),     ;
                  OemToAnsi( "Cadastro de Clientes Com Email Errado." ) )
 
      ELSE
 
         MsgInfo( "NÃ£o Foi PossÃvel Enviar o E-Mail. ERRO! "+CRLF+ ;
                  "Verifique o Remetente.                  "+CRLF+ ;
                  "Verifique o DestinatÃ¡rio.               "+CRLF+ ;
                  "Verifique o NÂº. da Porta do Servidor.   "+CRLF+ ;
                  "Se o Provedor For gmail, a Porta a Ser  "+CRLF+ ;
                  "Usada: Use a Porta 465 Para gmail.com.  "+CRLF+ ;
                  "Verifique se o Provedor Ã© Https.        "+CRLF+ ;
                  "Verifique a Sua Senha do Email.         "+CRLF+ ;
                  "Sua Senha Tem Que Ser Igual a Senha     "+CRLF+ ;
                  "Que Esta Cadastrada no Provedor.        "+CRLF+ ;
                  "Se Trocaram a Sua Senha no Provedor:    "+CRLF+ ;
                  "BotÃ£o:                                  "+CRLF+ ;
                  "<Configurar/Enviar Email(s)>            "+CRLF+ ;
                  "<Ferramentas> / <Provedores> / <Alterar>"+CRLF+ ;
                  "Cadastre a Senha Igual a do Provedor.   ",      ;
                  "NÃ£o Foi PossÃvel Enviar a Mensagem...   " )
 
      ENDIF
 
      lRet := .F.
 
   END
 
RETURN( lRet )

Bom dia a todos

Este exemplo postado nÃ£o esta funcionando

Caso inclua a imagem ele some com o texto do corpo do email enviando somente a imagem q. foi inserida

Alguem sabe como enviar o texto e a imagem ?

kapiaba · May 16, 2013

Mira si ayuda:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=13175&p=142165&hilit=imagen+en+el+email#p142165

abs,

Marca · May 16, 2013

kapiaba · May 16, 2013

abs.

Imagem no corpo do email

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation