VBA - Salvar e-mail em PDF na área de trabalho

Boa noite a todos! Meu nome é Jair. Estou precisando de uma ajuda. Com o código abaixo, inserido em um módulo no EXCEL VBA, eu consigo visualizar os e-mails da minha caixa de mensagens enviadas. Porém gostaria
de completar o código para que depois que abrisse o e-mail, ou seja, após o olItem.Display, eu salvasse
o corpo deste e-mail em PDF na área de trabalho. Alguém pode me ajudar? O unico código que achei imprimia a planilha ativa do excel, isso eu não quero, eu quero imprimir o e-mail. Desde já agradeço.


Sub AbrirEmail()

Dim appOutlook As Object
Dim olNS As Object
Dim olFolder As Object 'repartições dentro do outlook ex: mensagens enviadas
Dim olItem As Object 'representa cada email ex: enviado, recebido, etc


If (msgBox("Deseja visualizar agora?", vbYesNo, "Confirmação") = vbYes) Then
On Error Resume Next
   Set appOutlook = GetObject(, "Outlook.Application")
      If appOutlook Is Nothing Then
   Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olNS = appOutlook.GetNamespace("MAPI")
Set olFolder = olNS.Folders("meuemail@outlook.com").Folders("Mensagens Enviadas")
 
   For Each olItem In olFolder.Items

If olItem.Subject Like "*" & "Devolução " & "*" Then

olItem.Display

*Codigo a acrescentar para imprimir em pdf o e-mail que está sendo visualizado.?????*
       
       Set olItem = Nothing
       Set appOutlook = Nothing
       
End If
     Next olItem

End Sub

Amigão seja bem vindo ao forum.

Este é um fórum exclusivo de Ms Access, o seu tópico será movido para a sala Off-Topic.

jairdsmg,

Com a licença do amigo "JPaulo". Caso queira fazer uma adaptação, no link abaixo há várias referências.

google.com/search?hl=pt&as_q=&as_oq=salvar+pdf&as_sitesearch=www.maximoaccess.com

[Não são permitidos links extrnos, colocar desta forma]

Obrigado!. Vou tentar adaptar!