Attribute VB_Name = "modInfo" Option Explicit Sub OutlookInfo() With Application Debug.Print .DefaultProfileName Debug.Print .Explorers.Count Debug.Print .Inspectors.Count Debug.Print .Name Debug.Print .ProductCode Debug.Print .Version End With End Sub Sub OutlookActiveExplorer() Dim outExplorer As Explorer Dim outSelect As Selection Dim sText As String Dim iLoop As Integer sText = "Selektierte Einträge von: " Set outExplorer = Application.ActiveExplorer Set outSelect = outExplorer.Selection For iLoop = 1 To outSelect.Count sText = sText & vbCrLf & _ outSelect.Item(iLoop).SenderName Next iLoop Debug.Print sText Set outExplorer = Nothing Set outSelect = Nothing End Sub Sub OutlookActiveInspector() Dim outInspector As Inspector Dim outItem As MailItem Set outInspector = Application.ActiveInspector Set outItem = outInspector.CurrentItem Debug.Print outItem.Body outItem.Close olSave Set outInspector = Nothing Set outItem = Nothing End Sub Sub OutlookActiveWindow() Dim outWindow As Object Set outWindow = Application.ActiveWindow Debug.Print TypeName(outWindow) If TypeName(outWindow) = "Inspector" Then outWindow.WindowState = olMaximized End If Set outWindow = Nothing End Sub