MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Como enviar uma imagem no corpo do email utilizando o cdosys

    avatar
    LIMA RAIMUNDO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 25/11/2020

    Como enviar uma imagem no corpo do email utilizando o cdosys Empty Como enviar uma imagem no corpo do email utilizando o cdosys

    Mensagem  LIMA RAIMUNDO 12/7/2022, 22:03

    olá,

    Como enviar uma imagem no corpo do email utilizando o cdosys?

    Estou tentando enviar uma imagem do computador local, por exemplo um arquivo .jpeg que está numa determinada pasta, no corpo do email (não atachado) através do cdosys.

    Já estou conseguindo enviar dados variáveis tipo txt, mas, imagem não.

    Estou montando o código assim:

    Set .Configuration = w_config
       .From = "xxx"
       .Sender = "xxx@xxx"
       .Subject = "xxx - " & Me.F1_ID_CHAMA
       .HTMLBody = "xxx - " & Me.F1_ID_CHAMA & "
    " & "
    " & _
       "campo a: " & "" & w_ambie_opera & "" & "
    " & _
       "campo b: " & "" & w_grupo_chama & "" & "
    " & _
       "campo c: " & "" & w_nome_item & "" & "
    " & _
       "campo d: " & "" & w_descr_item & "" & "
    " & _

      "" & _

       "campo e: " & "" & w_descr_probl & ""

    Os dados txt chegam ok no email destino, mas, no lugar da imagem aparece somente um 'desenho parecido com um ícone', sem exibir o conteúdo da imagem.

    Por favor, caso alguém possa me esclarecer a causa do problema e me passar uma dica, será de grande ajuda.

    obrigado
    avatar
    osmarnadalon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 05/04/2013

    Como enviar uma imagem no corpo do email utilizando o cdosys Empty Re: Como enviar uma imagem no corpo do email utilizando o cdosys

    Mensagem  osmarnadalon 18/7/2022, 12:20

    Bom dia

    Tenho alguns bancos de dados aqui que uso para envio de e-mails como notas fiscais, solicitação de coleta, boletos e outros.

    no final tem a assinatura do usuário que está mandando e está um pouco diferente do seu.

    o correto é  
    Código:
    <img src="c:\imagem\x.jpg"
    avatar
    LIMA RAIMUNDO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 25/11/2020

    Como enviar uma imagem no corpo do email utilizando o cdosys Empty Re: Como enviar uma imagem no corpo do email utilizando o cdosys

    Mensagem  LIMA RAIMUNDO 18/7/2022, 19:02

    boa tarde Osmar,


    obrigado pela sua atenção...
    mas, ainda não obtive sucesso...

    por favor, vc poderia me enviar o trecho inteiro do seu código, desde "With..." até "End With" ?
    desta forma eu poderei fazer uma comparação melhor, principalmente na parte ".HTMLBody"...

    a linha em questão é esta:
    "<p><img src='c:\imagem\x.jpg'></p>" & _ ' IMAGEM

    a construção utilizando (") e (') é por causa da montagem do ".HTMLBody",
    que parece exigir uma montagem deste tipo:
    .HTMLBody = "xxx"


    o meu trecho inteiro está assim:

    Set w_config = New CDO.Configuration

    With w_config
    'gmail
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.Update
    End With

    Set w_msg = New CDO.Message

    With w_msg

    Set .Configuration = w_config
    .From = "xxx"
    .Sender = "xxx@gmail.com"
    .Subject = "xxx"
    .HTMLBody = "xxx" & Me.F1_ID_CHAMA & "<br>" & "<br>" & _
    "campo a: " & "<b>" & w_ambie_opera & "</b>" & "<br>" & _
    "campo b: " & "<b>" & w_grupo_chama & "</b>" & "<br>" & _
    "campo c: " & "<b>" & w_nome_item & "</b>" & "<br>" & _
    "campo d: " & "<b>" & w_descr_item & "</b>" & "<br>" & _

    "<p><img src='c:\imagem\x.jpg'></p>" & _ ' IMAGEM

    "campo e: " & "<b>" & w_descr_probl & "</b>"

    .To = "xxx@hotmail.com" '
    .Send

    End With


    avatar
    osmarnadalon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 05/04/2013

    Como enviar uma imagem no corpo do email utilizando o cdosys Empty Re: Como enviar uma imagem no corpo do email utilizando o cdosys

    Mensagem  osmarnadalon 19/7/2022, 12:50

    Ola, Bom dia Lima

    Bom, extrai de um banco de dados que tenho aqui para envio de boletos, está meio improvisado, mais dá pra ter uma noção de como fazer.

    Anexo banco de dados e código abaixo caso não tenha interesse de usar tabela.

    Código:
    <style>
    .azul {
    font-family:Calibri;
    font-size:14,0px;
    color:#17365D;
    padding-left:10px
     }
    </style>
    <div class="azul"><strong>A/C Depto. financeiro</strong><br/><strong></strong><br/><strong>Bom dia!!</strong><br/><strong></strong><br/><strong>Você está recebendo uma cópia da nota fiscal e boletos</strong><br/></strong><br/>Cliente: cliente1 - CNPJ : 00.000.000/0001-90</strong><br/>Nota fiscal : 55555 do dia 19/07/2022</strong><br/>Valor total: R$ 10.000,00</strong><br/></strong><br/></strong><br/>
              <tbody>
              </Style>
    </strong><br/>
    <strong>Atenciosamente,</strong><br/>
                <img src="c:\image\x.png" border="0" />
              </a>
        </tr>
    </style>
    Anexos
    Como enviar uma imagem no corpo do email utilizando o cdosys AttachmentFormataçãoEmails.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 10 vez(es)
    avatar
    LIMA RAIMUNDO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 25/11/2020

    Como enviar uma imagem no corpo do email utilizando o cdosys Empty Re: Como enviar uma imagem no corpo do email utilizando o cdosys

    Mensagem  LIMA RAIMUNDO 19/7/2022, 21:18

    boa tarde Osmar,

    Pelo que entendi na sua solução, o e-mail é enviado através do 'client Outlook'.

    Na solução que estou trabalhando, o e-mail é enviado através do cdosys, que independe de 'client de e-mail'. Sei que funciona se a imagem estiver num link da internet (<'img src=//http...'>), mas, pegando de uma pasta local (<'img src=c:\imagem\x.jpg'>), não está funcionando).

    Então, devido a essa diferença, não vi como resolver a questão.

    Mesmo assim, muito obrigado pela sua ajuda, pois, quando eu tiver que enviar e-mails através do 'Outlook', poderei consultar a sua solução.

    obrigado
    avatar
    osmarnadalon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 05/04/2013

    Como enviar uma imagem no corpo do email utilizando o cdosys Empty Re: Como enviar uma imagem no corpo do email utilizando o cdosys

    Mensagem  osmarnadalon 19/7/2022, 23:57

    Voce não entendeu

    Eu sei que são métodos diferentes porem a linguagem html é usado em ambos os métodos.

    a única coisa que você vai fazer é adaptar essa linguagem html que postei no seu HTMLBody.

    01 - Crie uma caixa de texto com nome "codigohtml" conforme fiz no formulário com os códigos html (recomendo que você importe a minha tabela com os códigos já feitos, e puxe as informações dela)
    02 - Coloque os campos que deseja enviar no corpo do e-mail conforme exemplo que deixei em anexo, e coloque esse campo "codigohtml" no seu HTMLbody.


    ASSIM:
    Código:
    HTMLbody = forms!nomedoformulario!codigohtml
    avatar
    LIMA RAIMUNDO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 25/11/2020

    Como enviar uma imagem no corpo do email utilizando o cdosys Empty Re: Como enviar uma imagem no corpo do email utilizando o cdosys

    Mensagem  LIMA RAIMUNDO 27/7/2022, 16:25

    bom dia Osmar,


    obrigado pela ajuda

    vou estudar a sua solução para entendê-la melhor


    até mais

      Data/hora atual: 25/9/2022, 14:33