Saving a outlook item as pdf

[brkkrkmz112]

Hi everyone,

Im trying to open a outlook item through hyperlinks and saveas pdf file in a specific location. So far, I written something but can not achieve something works. Any help would be appreciated.
I get an error ""automation error library not registered"".

Sub burak()

Dim outapp As Object
Dim foldername As String
Dim Msg As outlook.MailItem

Set outapp = CreateObject("Outlook.Application")
foldername = Selection.Hyperlinks(1).Address

foldername = ThisWorkbook.Path + "\" + foldername

Set Msg = outapp.Session.OpenSharedItem(foldername)
Msg.Display

Msg.SaveAs "C:\Users\Administrator\Desktop\Mail1\REFPDF" & "\" & foldername & ".pdf", olMSG


     Msg.Close olDiscard
End Sub

 

[daverunt]

You can see .PDF isn't one of the SaveAs options if you manually save the .msg file so I doubt you have different options through VBA.

Save an Outlook message as a .eml file, a PDF file, or as a draft - Microsoft Support

Email messages that you receive can be saved as a file on your computer, or a message that you are composing can be saved as a draft and finished later.

support.office.com

You could look into using a PDF printer but you'd also need to look at setting the pdf printer as the default printer or changing it to the default in VBA at runtime.
You could also look at saving as .html, which will open in Word and then you can export as .PDF through Word.