Attribute VB_Name = "modAnwendung" 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 olkExplor As Explorer Dim olkSelect As Selection Dim sText As String Dim iLoop As Integer sText = "Selektierte Einträge von: " Set olkExplor = Application.ActiveExplorer Set olkSelect = olkExplor.Selection For iLoop = 1 To olkSelect.Count sText = sText & vbCrLf & _ olkSelect.Item(iLoop).SenderName Next iLoop Debug.Print sText Set olkExplor = Nothing Set olkSelect = Nothing End Sub Sub OutlookActiveInspector() Dim olkInspec As Inspector Dim olkItem As MailItem Set olkInspec = Application.ActiveInspector Set olkItem = olkInspec.CurrentItem Debug.Print olkItem.Body olkItem.Close olSave Set olkInspec = Nothing Set olkItem = Nothing End Sub Sub OutlookActiveWindow() Dim olkWindow As Object Set olkWindow = Application.ActiveWindow Debug.Print TypeName(olkWindow) If TypeName(olkWindow) = "Inspector" Then olkWindow.WindowState = olMaximized End If Set olkWindow = Nothing End Sub