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

    Enviar assinatura no corpo do e-mail

    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 70
    Registrado : 07/11/2011

    Enviar assinatura no corpo do e-mail Empty Enviar assinatura no corpo do e-mail

    Mensagem  Zeusangel 1/2/2022, 14:45

    Bom dia Colegas, gostaria de incomodá-los novamente, pretendo enviar além dos e-mails e a descrição do e-mail, enviar a assinatura no corpo do e-mail, mas a assinatura é uma imagem, como poderia adicioná-la?

    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(olMailItem)
    With oMail
               .To = Me.txtUsuario
               .CC = Me.emailS
               .Subject = Nz(Me.Asunto, "")
               .Body = Nz(Me.Body, "")
               .Send
       End With

    Muito obrigado desde já pela atenção e ajuda. Enviar assinatura no corpo do e-mail 1f615

    Tenho feito testes com esse código mas ele só me envia a string, não exibe a imagem da assinatura do corpo.

    Dim oApp As Outlook.Application
    Dim oMail As Outlook.MailItem
    Const pathImage As String = "C:\Users\usuario\Downloads\Emails\Image\firma.jpeg"

       If Me.emailUsuario <> "" Then
           Set oApp = CreateObject("Outlook.Application")
           Set oMail = oApp.CreateItem(olMailItem)
           With oMail
               .To = Me.emailUsuario
               .CC = Me.email_super
               .Subject = Nz(Me.Asunto, "")
               .Body = Nz(Me.Body, "")
    Arrow   .HTMLBody = .HTMLBody & pathImage
               .Display
               .Send
       End With
           
           Set oApp = Nothing
           EnvioEmail = True
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    Enviar assinatura no corpo do e-mail Empty Re: Enviar assinatura no corpo do e-mail

    Mensagem  Alvaro Teixeira 6/2/2022, 11:44


      Data/hora atual: 24/9/2022, 19:48