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

    [Resolvido]Envio de email com assinatura

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Envio de email com assinatura Empty [Resolvido]Envio de email com assinatura

    Mensagem  maguim Ter 05 Set 2017, 2:40 pm

    amigos


    uma duvida, pesquisei bastante e não achei.


    eu estou com um formulário que consigo fazer o envio por dlookup porem, será possivel colocar um assinatura com imagem quando mandar o email ou usar sua propria assinatura do outlook?


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Envio de email com assinatura Empty Re: [Resolvido]Envio de email com assinatura

    Mensagem  maguim Ter 05 Set 2017, 3:20 pm

    queridos irmaos, resolvi!


    para poder fazer um email com cara de e-mail realmente nao tem segredo.

    vc tera que aprender a mexer com HTML

    o detalhe esta .HTMLBody onde chama a função html pro corpo de e-mail


    With olMail
    'On Error Resume Next
    .to = strDestinatarios
    '.CC = "teste@teste.com.br"
    .Subject = " - Pagamento Rejeitado" & " " & Me.contrato & " - " & Me.nomeprestador
    '.Attachments.Add ("c:\anexos\anexo.html") 'caso queira anexar algum arquivo

    Código:
    [b].HTMLBody = "<font size=3><font color=#000000><font face=tahoma>Caro Prestador: <b>" & Me.nomeprestador & "</b><br><br>Identificamos que existem pagamentos rejeitados com as informações abaixo.<br><br>Agência: <b>" & Me.agencia & "</b><br><br>Conta Corrente: <b> " & Me.conta & " </b><b></b><br><br>Motivo: <b> ESCREVER O MOTIVO </b><br><br><br><br> Atenciosamente, <br><br><br><br> Nathan Diogo </font></font></font> <br> Gestão de Rede </font></font></font> <br> Tel.: (11) </font></font></font> <br> endereço |  </font></font></font> <br>  </font></font></font> <br> Barueri-SP | CEP XXXXXX</font></font></font>"[/b]
    .Send 'Envia o email
    End With


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised

      Data/hora atual: Seg 05 Dez 2022, 3:30 pm