OL-MailItem aus Filesystem Öffnen

...
Dim OLApp = New Microsoft.Office.Interop.Outlook.Application
Dim itemMsg As Microsoft.Office.Interop.Outlook.MailItem

itemMsg = OLApp.CreateItemFromTemplate(strMailSpeicherOrtMailOrdnerAnlagenOrdner & "\" & _  
                                                        strMSGFileNameOhneExt & ".msg")  

MailAlsPDFSpeichern(itemMsg)
...

Public Sub MailAlsPDFSpeichern(ByRef itmZuSpeicherndesMailItemLokalPDF As Object)
            
                itmZuSpeicherndesMailItemLokalPDF.SaveAs(strMailSpeicherPfad1, OlSaveAsType.olDoc)

                WordToPDF(strMailSpeicherPfad2, strMailSpeicherPfadPDF)

                IO.File.Delete(strMailSpeicherPfad1)
                IO.File.Delete(strMailSpeicherPfad2)

              
        Next
End Sub