Outlook ActiveInspector

Public Sub msgDateioeffnen()
On Error GoTo Fehler1
Dim objApp As Object   'Outlook.Application
Dim objitem As Object  'Outlook.MailItem
Set objApp = CreateObject("Outlook.Application")
Set objitem = objApp.Session.OpenSharedItem(PfadAktuell)
objitem.display
Set objApp = Nothing
Set objitem = Nothing
Exit Sub
Fehler1:
MsgBox "Mail ist schon geöffnet"
End Sub

Public Sub Mailschliessen(aktMail)
Dim objApp As Object                                       'AktMail As Object,
Set objApp = CreateObject("Outlook.Application")       'OutlookVerweis
If Not objApp.activeinspector Is Nothing Then      'Pruefung auf offene Mail
With objApp.activeinspector.CurrentItem()
.Close False                              'Aktuelle Mail schliessen
End With
Else
MsgBox "Die Mail ist nicht mehr geöffnet"
End If
Set objApp = Nothing
End Sub