Email com Anexo em PDF

Bom dia Amigos,

Como posso adaptar o código abaixo para anexar o relatório em pdf e enviar ao cliente?
Localizei muitos, mas não consegui adaptar.

Segue código abaixo:

Private Sub Comando357_Click()
'Enviar email
'Macro para enviar email, necessita habilitar referencia
'Na janela VBA --> Ferramentas --> Referências --> Microsoft CDO for Windows

Dim vMensagem As String, vDestinatario As String, vTitulo As String
Dim lobj_cdomsg As CDO.Message
Dim vNetwork As Object

Dim rs As DAO.Recordset

vDestinatario = [email]

Set vNetwork = CreateObject("WScript.Network")
vLogado = vNetwork.UserName

   Set lobj_cdomsg = New CDO.Message '
   With lobj_cdomsg.Configuration
       .Fields(cdoSendUserName) = DLookup("cdoSendUserName", "TBL_CONFIGEMAIL") 'Aqui vai o endereço de e-mail que será responsável pelo envio
       .Fields(cdoSendPassword) = DLookup("cdoSendPassword", "TBL_CONFIGEMAIL") 'Aqui vai a senha do e-mail
       .Fields(cdoSMTPAuthenticate) = cdoBasic
       .Fields(cdoSMTPServer) = DLookup("cdoSMTPServer", "TBL_CONFIGEMAIL") 'Nome do servidor SMTP
       .Fields(cdoSMTPConnectionTimeout) = DLookup("cdoSMTPConnectionTimeout", "TBL_CONFIGEMAIL") 'Porta
       .Fields(cdoSMTPServerPort) = DLookup("cdoSMTPServerPort", "TBL_CONFIGEMAIL") 'Porta
       .Fields(cdoSendUsingMethod) = cdoSendUsingPort
       .Fields.Update
   vMensagem = "Aviso de abertura de Reclamação de Clientes" & Chr(13) & Chr(13)   'chr siginifica nova linhaou linhas em branco
   vMensagem = vMensagem & "Número do Protocolo: " & [Protocolo] & "" & Chr(13)
   vMensagem = vMensagem & "Cliente: " & [Cliente] & "" & Chr(13)
   vMensagem = vMensagem & "Aberto por: " & vLogado & Chr(13)
   vMensagem = vMensagem & "Data da Abertura do Protocolo: " & [DataCadastro] & "" & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13)
   vMensagem = vMensagem & DLookup("Padrao", "TBL_CONFIGEMAIL") & Chr(13)
   vMensagem = vMensagem & DLookup("Padrao1", "TBL_CONFIGEMAIL") & Chr(13)
   vMensagem = vMensagem & DLookup("Padrao2", "TBL_CONFIGEMAIL") & Chr(13)
   vMensagem = vMensagem & DLookup("Padrao3", "TBL_CONFIGEMAIL") & Chr(13)
   vMensagem = vMensagem & DLookup("Padrao4", "TBL_CONFIGEMAIL") & Chr(13)
   End With
   'vMensagem = vMensagem & "Local dos arquivos: " & Forms!FRM_RECCLIENTES!fm_OS_Sub!Arquivo_OSsub
   If Status = "Em Aberto" Then
       vTitulo = "Reclamação de Clientes  Sob o Protocolo Nº - " & [Protocolo] & "" 'Assunto
   Else
       vTitulo = "Resposta sobre a Reclamação de Clientes  Sob o Protocolo Nº - " & [Protocolo] & ""         'Assunto
   End If
   
   With lobj_cdomsg
       .To = vDestinatario
       .From = DLookup("cdoSendUserName", "TBL_CONFIGEMAIL") 'Endereço remetente (o mesmo da conexão q vc fez )
       .Subject = vTitulo 'Assunto
       .TextBody = vMensagem
       .Send
   End With
End Sub

Desde já agradeço amigos, e espero poder ser ajudado.

Att,

valdenir

Boa noite,
Vá dando sequência às dúvidas que recebeu resposta e não informou evolução
https://www.maximoaccess.com/t22833-calcular-media#165485
https://www.maximoaccess.com/t23409-soma-com-dois-criterios#168733

As dúvidas que não obtenha resposta, pode relembrar, conforme regras do fórum

Boa noite Alexandre,

Minha dúvida é somente como faço com este código abaixo para anexar em pdf o relatório.
Gostei deste código, porém queria somente adaptá-lo o anexo a este código.

Att,

Valdenir

Mas não deve pedir ajuda e não responder aos que tentam ajudar na sua resolução.
Até por respeito a quem se esforçou por ajudar
Mesmo as dúvidas que não obtém resposta satisfatória, pode fazer actualização após 24 horas, de forma a sinalizar o interesse, caso contrário será interpretado como tendo resolvido sem retribuir esse conhecimento a quem tentou ajudar ou dá a ideia que a dúvida não era importante e tornou-se desnecessária

Leia as regras e siga-as
Retorne sempre se deu certo, esse retorno é muito importante.
Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!

Obrigado pela Dica Alexandre,

Todas as dúvidas anteriores já foram devidamente resolvidas.
Por falta de conhecimento acabei não finalizando.
Mas agora já alterei e todas as perguntas foram resolvidas.

Estou somente com esta pergunta para resolver mesmo.
Espero que possa me ajudar.

Att,

Valdenir

Acrescente ao código
.AddAttachment "EnderecoCompletoDoFicheiro"