Como colocar imagem no corpo do email DoCmd.SendObject

Olá amigos

Sou o responsavel por um sistema de monitorias em um call center. é um sistema access que puxa uma tabela do sharepoint, e com esses dados geramos um relatório e enviamos por email em pdf para os atendentes, a partir do ID do registro digitado em um form.

Em todos os envios, tinhamos que copiar e colar o nome dos atendentes, supervisores, assunto e mensagem, e eu consegui automatizar isso com o comando DoCmd.SendObject.

Acontece que a minha chefe quer que eu coloque o logo da empresa na mensagem, há alguma forma de fazer isso?

Segue o meu código:

Function Email()

Dim Codigo As String

Dim Operador As String

Dim Supervisor As String

Dim SuperMonitoria As String

Dim Assunto As String

Dim MensagemDia As String

Dim MensagemTarde As String

Dim FeedbackDia As String

Dim FeedbackTarde As String

Dim Nota As Integer







   If (Forms!QBF5_Form!radioSegPrev.Value = 1) Then

      SuperMonitoria = "Edilaine Ribeiro Silva"

   Else

      SuperMonitoria = "Priscila Regio Jesus"

   End If

   Codigo = Forms!QBF5_Form!Combinacao51.Value

   Operador = DLookup("[Oper#/Anal#]", "Laudo de Monitoria", "[ID] =" & Forms!QBF5_Form!Combinacao51)

   Supervisor = DLookup("[Superv#/Coord#]", "Laudo de Monitoria", "[ID] =" & Forms!QBF5_Form!Combinacao51)

   Assunto = "Certificado de Qualidade " & Codigo & " - " & Operador

   Nota = DLookup("[Bloco de Avaliação]", "Laudo de Monitoria", "[ID] =" & Forms!QBF5_Form!Combinacao51)

   Nota = Nota * 100

 

   If (Nota >= 60) Then

     If Time < #12:00:00 PM# Then

     MensagemDia = "Bom Dia," & vbCrLf & vbCrLf & "Segue o Certificado da Qualidade." & vbCrLf & vbCrLf & "Atenciosamente." & vbCrLf & vbCrLf & "Unidade de Gestão da Qualidade."

     DoCmd.SendObject acReport, "Certificado de Qualidade", "PDFFormat(*.pdf)", Operador, Supervisor, SuperMonitoria, Assunto, MensagemDia & Corpo, True, ""

     Else

     MensagemTarde = "Boa Tarde," & vbCrLf & vbCrLf & "Segue o Certificado da Qualidade." & vbCrLf & vbCrLf & "Atenciosamente." & vbCrLf & vbCrLf & "Unidade de Gestão da Qualidade."

     DoCmd.SendObject acReport, "Certificado de Qualidade", "PDFFormat(*.pdf)", Operador, Supervisor, SuperMonitoria, Assunto, MensagemTarde, True, ""

     End If

   End If

 

   

   If (Nota < 60) Then

     If Time < #12:00:00 PM# Then

     FeedbackDia = "Bom Dia," & vbCrLf & vbCrLf & "Segue o certificado de qualidade do operador " & Operador & vbCrLf & vbCrLf & "Orientamos a necessidade de um feedback, pois a nota da monitoria foi de " & Nota & "%." & vbCrLf & vbCrLf & "Solicitamos que nos posicione sobre o feedback aplicado, para que possamos reforçar alguns pontos nas próximas dicas dos Certificados." & vbCrLf & vbCrLf & "Se houver necessidade de alguma outra ação de desenvolvimento, estamos à disposição." & vbCrLf & vbCrLf & "Atenciosamente" & vbCrLf & vbCrLf & "Unidade de Monitoria"

     DoCmd.SendObject acReport, "Certificado de Qualidade", "PDFFormat(*.pdf)", Supervisor, "", SuperMonitoria, Assunto, FeedbackDia, True, ""

     Else

     FeedbackTarde = "Boa Tarde," & vbCrLf & vbCrLf & "Segue o certificado de qualidade do operador " & Operador & vbCrLf & vbCrLf & "Orientamos a necessidade de um feedback, pois a nota da monitoria foi de " & Nota & "%." & vbCrLf & vbCrLf & "Solicitamos que nos posicione sobre o feedback aplicado, para que possamos reforçar alguns pontos nas próximas dicas dos Certificados." & vbCrLf & vbCrLf & "Se houver necessidade de alguma outra ação de desenvolvimento, estamos à disposição." & vbCrLf & vbCrLf & "Atenciosamente" & vbCrLf & vbCrLf & "Unidade de Monitoria"

     DoCmd.SendObject acReport, "Certificado de Qualidade", "PDFFormat(*.pdf)", Supervisor, "", SuperMonitoria, Assunto, FeedbackTarde, True, ""
     End If

   End If

End Function


Obrigado

Caso você esteja usando outlook para enviar email , entre como você foi criar um email novo e você vai encontrar um botão opções e ao lado tem pic list que ao clicar apresentará uma lista e nesta lista você escolhe a opção assinatura de email e por esta opção você consegue incluir a imagem do logo e ira sair no rodapé de todos os mail que você enviar.