Sub ContactItem_Properties()

  Dim myNamespace As Outlook.NameSpace
  Dim myFolder As Outlook.MAPIFolder
  Dim oContactItem As ContactItem
  Dim i%
  Dim objProperty As Object
  Set myNamespace = GetNamespace("MAPI")
  Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
  
  Set oContactItem = myFolder.Items(1)
  
  'alle Eigenschaften per Debug.Print in den Direktbereich ausgeben
  '
  With oContactItem
    '----------------------------------------------------------------
    ' Schreib-Lese Berechtigung
    '----------------------------------------------------------------
    Debug.Print "Account : "; .Account
    Debug.Print "Anniversary : "; .Anniversary
    Debug.Print "AssistantName : "; .AssistantName
    Debug.Print "AssistantTelephoneNumber : "; .AssistantTelephoneNumber
    Debug.Print "BillingInformation : "; .BillingInformation
    Debug.Print "Birthday : "; .Birthday '(Geburtstag)
    Debug.Print "Business2TelephoneNumber : "; .Business2TelephoneNumber
    Debug.Print "BusinessAddress : "; .BusinessAddress
    Debug.Print "BusinessAddressCity : "; .BusinessAddressCity
    Debug.Print "BusinessAddressCountry : "; .BusinessAddressCountry
    Debug.Print "BusinessAddressPostalCode : "; .BusinessAddressPostalCode
    Debug.Print "BusinessAddressPostOfficeBox : "; .BusinessAddressPostOfficeBox
    Debug.Print "BusinessAddressState : "; .BusinessAddressState
    Debug.Print "BusinessFaxNumber : "; .BusinessAddressStreet
    Debug.Print "BusinessFaxNumber : "; .BusinessFaxNumber
    Debug.Print "BusinessHomePage : "; .BusinessHomePage
    Debug.Print "CallbackTelephoneNumber : "; .CallbackTelephoneNumber
    Debug.Print "CarTelephoneNumber : "; .CarTelephoneNumber
    Debug.Print "Categories : "; .Categories
    Debug.Print "Children : "; .Children
    Debug.Print "companies : "; .companies
    Debug.Print "CompanyMainTelephoneNumber : "; .CompanyMainTelephoneNumber
    Debug.Print "CompanyName : "; .CompanyName
    Debug.Print "ComputerNetworkName : "; .ComputerNetworkName
    Debug.Print "CustomerID : "; .CustomerID
    Debug.Print "Department : "; .Department
    Debug.Print "FileAs : "; .FileAs '(Speichern als -> meist Nachname, Vorname)
    Debug.Print "FirstName : "; .FirstName
    Debug.Print "FormDescription : "; .FormDescription
    Debug.Print "FTPSite : "; .FTPSite
    Debug.Print "FullName : "; .FullName
    Debug.Print "Gender : "; .Gender 'Geschlecht Register Alle Felder ->Persönliche Felder ->Geschlecht Eingabe nur m (männlich) oder w (weiblich) k (Keine Angabe)
    Debug.Print "GovernmentIDNumber : "; .GovernmentIDNumber
    Debug.Print "Hobby : "; .Hobby
    Debug.Print "Home2TelephoneNumber : "; .Home2TelephoneNumber
    Debug.Print "HomeAddress : "; .HomeAddress
    Debug.Print "HomeAddressCity : "; .HomeAddressCity
    Debug.Print "HomeAddressCountry : "; .HomeAddressCountry
    Debug.Print "HomeAddressPostalCode : "; .HomeAddressPostalCode
    Debug.Print "HomeAddressPostOfficeBox : "; .HomeAddressPostOfficeBox
    Debug.Print "HomeAddressState : "; .HomeAddressState
    Debug.Print "HomeAddressStreet : "; .HomeAddressStreet
    Debug.Print "HomeFaxNumber : "; .HomeFaxNumber
    Debug.Print "HomeTelephoneNumber : "; .HomeTelephoneNumber 'Privat...
    Debug.Print "Importance : "; .Importance
    Debug.Print "Initials : "; .Initials
    Debug.Print "InternetFreeBusyAddress : "; .InternetFreeBusyAddress
    Debug.Print "ISDNNumber : "; .ISDNNumber
    Debug.Print "JobTitle : "; .JobTitle
    Debug.Print "Journal : "; .Journal
    Debug.Print "Language : "; .Language
    Debug.Print "LastName : "; .LastName
    Debug.Print "MailingAddress : "; .MailingAddress
    Debug.Print "MailingAddressCity : "; .MailingAddressCity
    Debug.Print "MailingAddressCountry : "; .MailingAddressCountry
    Debug.Print "MailingAddressPostalCode : "; .MailingAddressPostalCode
    Debug.Print "MailingAddressPostOfficeBox : "; .MailingAddressPostOfficeBox
    Debug.Print "MailingAddressState : "; .MailingAddressState
    Debug.Print "MailingAddressStreet : "; .MailingAddressStreet
    Debug.Print "ManagerName : "; .ManagerName
    Debug.Print "MessageClass : "; .MessageClass
    Debug.Print "MiddleName : "; .MiddleName
    Debug.Print "MiddleName : "; .Mileage
    Debug.Print "MobileTelephoneNumber : "; .MobileTelephoneNumber
    Debug.Print "NetMeetingServer : "; .NetMeetingServer
    Debug.Print "NickName : "; .NickName 'Spitzname
    Debug.Print "NoAging : "; .NoAging
    Debug.Print "OfficeLocation : "; .OfficeLocation
    Debug.Print "OrganizationalIDNumber : "; .OrganizationalIDNumber
    Debug.Print "OtherAddress : "; .OtherAddress
    Debug.Print "OtherAddressCity : "; .OtherAddressCity
    Debug.Print "OtherAddressCountry : "; .OtherAddressCountry
    Debug.Print "OtherAddressPostalCode : "; .OtherAddressPostalCode
    Debug.Print "OtherAddressPostOfficeBox : "; .OtherAddressPostOfficeBox
    Debug.Print "OtherAddressState : "; .OtherAddressState
    Debug.Print "OtherAddressStreet : "; .OtherAddressStreet
    Debug.Print "OtherFaxNumber : "; .OtherFaxNumber
    Debug.Print "OtherTelephoneNumber : "; .OtherTelephoneNumber
    Debug.Print "PagerNumber : "; .PagerNumber
    Debug.Print "PersonalHomePage : "; .PersonalHomePage
    Debug.Print "PrimaryTelephoneNumber : "; .PrimaryTelephoneNumber
    Debug.Print "Profession : "; .Profession
    Debug.Print "RadioTelephoneNumber : "; .RadioTelephoneNumber
    Debug.Print "SelectedMailingAddress : "; .SelectedMailingAddress
    Debug.Print "Sensitivity : "; .Sensitivity
    Debug.Print "Spouse : "; .Spouse 'Namen des Partners
    Debug.Print "Subject : "; .Subject
    Debug.Print "Suffix : "; .Suffix
    Debug.Print "TelexNumber : "; .TelexNumber
    Debug.Print "Title : "; .Title 'Anrede
    Debug.Print "TTYTDDTelephoneNumber : "; .TTYTDDTelephoneNumber
    Debug.Print "UnRead : "; .UnRead
    Debug.Print "User1 : "; .User1
    Debug.Print "User2 : "; .User2
    Debug.Print "User3 : "; .User3
    Debug.Print "User4 : "; .User4
    Debug.Print "UserCertificate : "; .UserCertificate
    Debug.Print "WebPage : "; .WebPage
    Debug.Print "YomiCompanyName : "; .YomiCompanyName
    Debug.Print "YomiFirstName : "; .YomiFirstName
    Debug.Print "YomiLastName : "; .YomiLastName
    '----------------------------------------------------------------
    'Zugriffsbeschränkung durch Outlooksicherung
    '----------------------------------------------------------------
    Debug.Print "Body : "; .Body 'InfoFeld
    Debug.Print "Email1Address : "; .Email1Address
    Debug.Print "Email1AddressType : "; .Email1AddressType
    Debug.Print "Email1DisplayName : "; .Email1DisplayName
    Debug.Print "Email2Address : "; .Email2Address
    Debug.Print "Email2AddressType : "; .Email2AddressType
    Debug.Print "Email2DisplayName : "; .Email2DisplayName
    Debug.Print "Email3Address : "; .Email3Address
    Debug.Print "Email3AddressType : "; .Email3AddressType
    Debug.Print "Email3DisplayName : "; .Email3DisplayName
    Debug.Print "IMAddress : "; .IMAddress
    Debug.Print "NetMeetingAlias : "; .NetMeetingAlias
    Debug.Print "ReferredBy : "; .ReferredBy
    '----------------------------------------------------------------
    ' Nur Leseberechtigung
    '----------------------------------------------------------------
    Debug.Print "Class : "; .Class
    Debug.Print "CompanyAndFullName : "; .CompanyAndFullName
    Debug.Print "CompanyLastFirstNoSpace : "; .CompanyLastFirstNoSpace
    Debug.Print "CompanyLastFirstSpaceOnly : "; .CompanyLastFirstSpaceOnly
    Debug.Print "ConversationIndex : "; .ConversationIndex
    Debug.Print "ConversationTopic : "; .ConversationTopic
    Debug.Print "CreationTime : "; .CreationTime
    Debug.Print "Email1EntryID : "; .Email1EntryID
    Debug.Print "Email2EntryID : "; .Email2EntryID
    Debug.Print "Email3EntryID : "; .Email3EntryID
    Debug.Print "EntryID : "; .EntryID
    Debug.Print "FullNameAndCompany : "; .FullNameAndCompany
    Debug.Print "HasPicture : "; .HasPicture
    Debug.Print "IsConflict : "; .IsConflict
    Debug.Print "LastFirstAndSuffix : "; .LastFirstAndSuffix
    Debug.Print "LastFirstNoSpace : "; .LastFirstNoSpace
    Debug.Print "LastFirstNoSpaceAndSuffix : "; .LastFirstNoSpaceAndSuffix
    Debug.Print "LastFirstNoSpaceCompany : "; .LastFirstNoSpaceCompany
    Debug.Print "LastFirstSpaceOnly : "; .LastFirstSpaceOnly
    Debug.Print "LastFirstSpaceOnlyCompany : "; .LastFirstSpaceOnlyCompany
    Debug.Print "LastModificationTime : "; .LastModificationTime
    Debug.Print "LastNameAndFirstName : "; .LastNameAndFirstName
    For i = 1 To .Links.Count
      Debug.Print "Links " & i & " : "; .Links.Item(i).Name 'Verknüpfung yu Kontakten
    Next
    Debug.Print "MarkForDownload : "; .MarkForDownload
    Debug.Print "OutlookInternalVersion : "; .OutlookInternalVersion
    Debug.Print "OutlookVersion : "; .OutlookVersion
    Debug.Print "Parent : "; .Parent
    Debug.Print "Session : "; .Session
    Debug.Print "Size : "; .Size
    '----------------------------------------------------------------
    ' Verweis auf ein Objekt
    '----------------------------------------------------------------
    'Set oInspector = .GetInspector 'ist der Kontakt nicht in einem eigenen Fenster auf
    For i = 1 To .Conflicts.Count
      Debug.Print "Conflicts " & i & " : "; .Conflicts.Item(i)
    Next
    'UserProperties -> benutzerdefinierte Eigenschaft
    For i = 1 To .UserProperties.Count
      Set objProperty = .UserProperties.Item(i)
      Debug.Print "UserProperties " & i & " " & objProperty.Name & " : "; objProperty.Value
    Next
    
    Stop
    'jetzt noch die Liste der benutzerdefinierten Eigenschaften ausgeben
    
    On Error Resume Next
    For i = 1 To .ItemProperties.Count
      Debug.Print "ItemProperties " & Format(i, "000") & " : "; .ItemProperties.Item(i)
    Next
  End With
End Sub

Sub MailItem_Properties()
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim oMailItem As MailItem
Dim i%
Dim objProperty As Object

Set myNamespace = GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

Set oMailItem = myFolder.Items(1)

'alle Eigenschaften per Debug.Print in den Direktbereich ausgeben
With oMailItem

  Debug.Print "AlternateRecipientAllowed : "; .AlternateRecipientAllowed
  For i = 1 To .Attachments.Count
    Debug.Print "Attachments " & i & " : "; .Attachments.Item(i).DisplayName & " " & .Attachments.Item(i).DisplayName
  Next
  Debug.Print "AutoForwarded : "; .AutoForwarded
  Debug.Print "BillingInformation : "; .BillingInformation
  Debug.Print "BodyFormat : "; .BodyFormat
  Debug.Print "Categories : "; .Categories
  Debug.Print "companies : "; .companies
  Debug.Print "ConversationIndex : "; .ConversationIndex 'Index des Unterhaltungsfadens
  Debug.Print "DeferredDeliveryTime : "; .DeferredDeliveryTime 'vorgesehenen ÜbermittlungsZeit
  Debug.Print "DeleteAfterSubmit : "; .DeleteAfterSubmit 'true-> keine Kopie gespeichert
  Debug.Print "EnableSharedAttachments : "; .EnableSharedAttachments '?
  Debug.Print "ExpiryTime : "; .ExpiryTime
  Debug.Print "FlagDueBy : "; .FlagDueBy
  Debug.Print "FlagIcon : "; .FlagIcon
  Debug.Print "FlagRequest : "; .FlagRequest
  Debug.Print "FlagStatus : "; .FlagStatus
  Debug.Print "FormDescription : "; .FormDescription
  Debug.Print "HasCoverSheet : "; .HasCoverSheet
  Debug.Print "Importance : "; .Importance
  Debug.Print "InternetCodepage : "; .InternetCodepage
  Debug.Print "IsIPFax : "; .IsIPFax
  Debug.Print "LastModificationTime : "; .LastModificationTime
  For i = 1 To .Links.Count
    Debug.Print "Links " & i & " : "; .Links.Item(i).Name 'Verknüpfung zu Kontakten
  Next
  Debug.Print "MarkForDownload : "; .MarkForDownload
  Debug.Print "Mileage : "; .Mileage
  Debug.Print "NoAging : "; .NoAging
  Debug.Print "OriginatorDeliveryReportRequested : "; .OriginatorDeliveryReportRequested
  Debug.Print "Permission : "; .Permission
  Debug.Print "ReadReceiptRequested : "; .ReadReceiptRequested
  Debug.Print "RecipientReassignmentProhibited : "; .RecipientReassignmentProhibited
  Debug.Print "ReminderOverrideDefault : "; .ReminderOverrideDefault
  Debug.Print "ReminderPlaySound : "; .ReminderPlaySound
  Debug.Print "ReminderSet : "; .ReminderSet
  Debug.Print "ReminderSoundFile : "; .ReminderSoundFile
  Debug.Print "ReminderTime : "; .ReminderTime
  Debug.Print "RemoteStatus : "; .RemoteStatus
  Debug.Print "Sensitivity : "; .Sensitivity '(Vertraulichkeit) =olConfidential, olNormal, olPersonal, olPrivate
  Debug.Print "Subject : "; .Subject
  Debug.Print "UnRead : "; .UnRead
  Debug.Print "VotingOptions : "; .VotingOptions
  Debug.Print "VotingResponse : "; .VotingResponse
  '----------------------------------------------------------------
  ' Zugriffsbeschränkung durch Outlooksicherung
  '----------------------------------------------------------------
  Debug.Print "Body (nur 1. Zeile) : "; Left(.Body, InStr(1, .Body, vbCr))
  Debug.Print "BCC : "; .BCC
  Debug.Print "cc : "; .cc
  Debug.Print "HTMLBody (nur 1. Zeile) : "; Left(.HTMLBody, InStr(1, .HTMLBody, vbCr))
  For i = 1 To .ReplyRecipients.Count
    Debug.Print "ReplyRecipients "; Format(i, "00"); " : "; .ReplyRecipients(i).Name; " "; .ReplyRecipients(i).Address 'Empfänger
  Next
  Debug.Print "SentOnBehalfOfName : "; .SentOnBehalfOfName
  Debug.Print "To : "; .To
  '----------------------------------------------------------------
  ' Schreibgeschützt & Zugriffsbeschränkung durch Outlooksicherung
  '----------------------------------------------------------------
  Debug.Print "SenderEmailAddress : "; .SenderEmailAddress
  Debug.Print "SenderName : "; .SenderName
  Debug.Print "ReceivedByName : "; .ReceivedByName
  Debug.Print "ReceivedOnBehalfOfName : "; .ReceivedOnBehalfOfName
  Debug.Print "ReplyRecipientNames : "; .ReplyRecipientNames
  '----------------------------------------------------------------
  'Schreibgeschützt
  '----------------------------------------------------------------
  Debug.Print "AutoResolvedWinner : "; .AutoResolvedWinner
  Debug.Print "Application : "; .Application
  Debug.Print "Class : "; .Class
  Debug.Print "ConversationTopic : "; .ConversationTopic
  Debug.Print "CreationTime : "; .CreationTime
  Debug.Print "DownloadState : "; .DownloadState
  Debug.Print "EntryID : "; .EntryID
  Debug.Print "IsConflict : "; .IsConflict
  Debug.Print "MessageClass : "; .MessageClass
  Debug.Print "OutlookInternalVersion : "; .OutlookInternalVersion
  Debug.Print "OutlookVersion : "; .OutlookVersion
  Debug.Print "Parent : "; .Parent
  Debug.Print "ReceivedByEntryID : "; .ReceivedByEntryID
  Debug.Print "ReceivedOnBehalfOfEntryID : "; .ReceivedOnBehalfOfEntryID
  Debug.Print "ReceivedTime : "; .ReceivedTime
  Debug.Print "Saved : "; .Saved
  Debug.Print "SaveSentMessageFolder : "; .SaveSentMessageFolder
  Debug.Print "SenderEmailType : "; .SenderEmailType
  Debug.Print "Sent : "; .Sent
  Debug.Print "SentOn : "; .SentOn
  Debug.Print "Session : "; .Session
  Debug.Print "Size : "; .Size
  Debug.Print "Submitted : "; .Submitted '(übermittelt)
  '----------------------------------------------------------------
  ' Verweis auf ein Objekt
  '----------------------------------------------------------------
  'UserProperties -> benutzerdefinierte Eigenschaft
  For i = 1 To .UserProperties.Count
    Set objProperty = .UserProperties.Item(i)
    Debug.Print "UserProperties "; i; " : " & objProperty.Name & " "; objProperty.Value
  Next
  For i = 1 To .Conflicts.Count
    Debug.Print "Conflicts " & i & " : "; .Conflicts.Item(i)
  Next
  '----------------------------------------------------------------
  ' Kann nicht abgefragt werden (nicht lesbar)
  '----------------------------------------------------------------
  '.Actions

  'Set objInspector = .GetInspector 'Verweis auf das Fenster in dem das Objekt geöffnet ist

  '----------------------------------------------------------------
  'Die Eigenschaften des Objekts als Indexiert

  On Error Resume Next

  Stop
  For i = 1 To .ItemProperties.Count
    Debug.Print "ItemProperties " & Format(i, "000") & " : "; .ItemProperties.Item(i)
  Next
  '----------------------------------------------------------------
End With
End Sub

Sub TaskItem_Properties()

  Dim myNamespace As Outlook.NameSpace
  Dim myFolder As Outlook.MAPIFolder
  Dim oTaskItem As TaskItem
  Dim i%
  Dim objProperty As Object
  Set myNamespace = GetNamespace("MAPI")
  Set myFolder = myNamespace.GetDefaultFolder(olFolderTasks)
  
  Set oTaskItem = myFolder.Items(1)
  
  'alle Eigenschaften per Debug.Print in den Direktbereich ausgeben
  With oTaskItem 'Aufgabe
    Debug.Print "ActualWork : "; .ActualWork    
    For i = 1 To .Attachments.Count
      Debug.Print "Attachments " & i & " : "; .Attachments.Item(i).DisplayName & " " & .Attachments.Item(i).DisplayName
    Next
    Debug.Print "AutoResolvedWinner : "; .AutoResolvedWinner
    Debug.Print "BillingInformation : "; .BillingInformation
    Debug.Print "CardData : "; .CardData
    Debug.Print "Categories : "; .Categories
    Debug.Print "companies : "; .companies
    Debug.Print "Complete : "; .Complete
    Debug.Print "ConversationIndex : "; .ConversationIndex
    Debug.Print "DateCompleted : "; .DateCompleted
    Debug.Print "DueDate : "; .DueDate
    Debug.Print "FormDescription : "; .FormDescription
    Debug.Print "Importance : "; .Importance
    Debug.Print "InternetCodepage : "; .InternetCodepage
    Debug.Print "IsRecurring : "; .IsRecurring
    Debug.Print "LastModificationTime : "; .LastModificationTime  
    For i = 1 To .Links.Count
      Debug.Print "Links " & i & " : "; .Links.Item(i).Name 'Verknüpfung zu Kontakten    
    Next
    Debug.Print "MarkForDownload : "; .MarkForDownload
    Debug.Print "MessageClass : "; .MessageClass
    Debug.Print "Mileage : "; .Mileage
    Debug.Print "NoAging : "; .NoAging
    Debug.Print "Ordinal : "; .Ordinal
    Debug.Print "Ownership : "; .Ownership
    Debug.Print "PercentComplete : "; .PercentComplete
    Debug.Print "ReminderOverrideDefault : "; .ReminderOverrideDefault
    Debug.Print "ReminderPlaySound : "; .ReminderPlaySound
    Debug.Print "ReminderSet : "; .ReminderSet
    Debug.Print "ReminderSoundFile : "; .ReminderSoundFile
    Debug.Print "ReminderTime : "; .ReminderTime
    Debug.Print "Role : "; .Role
    Debug.Print "SchedulePlusPriority : "; .SchedulePlusPriority
    Debug.Print "Sensitivity : "; .Sensitivity
    Debug.Print "Session : "; .Session
    Debug.Print "StartDate : "; .StartDate
    Debug.Print "Status : "; .Status
    Debug.Print "Subject : "; .Subject
    Debug.Print "TeamTask : "; .TeamTask
    Debug.Print "TotalWork : "; .TotalWork
    Debug.Print "UnRead : "; .UnRead
    '----------------------------------------------------------------
    ' Zugriffsbeschränkung durch Outlooksicherung
    '----------------------------------------------------------------
    Debug.Print "Body (nur 1. Zeile) : "; Left(.Body, InStr(1, .Body, vbCr))
    Debug.Print "ContactNames : "; .ContactNames
    Debug.Print "Delegator : "; .Delegator
    Debug.Print "Owner : "; .Owner
    Debug.Print "StatusOnCompletionRecipients : "; .StatusOnCompletionRecipients
    
    For i = 1 To .Recipients.Count
    Debug.Print "Recipients "; Format(i, "00"); " : "; .Recipients(i).Name; " "; .Recipients(i).Address 'Empfänger
    
    Next
    '----------------------------------------------------------------
    ' Schreibgeschützt & Zugriffsbeschränkung durch Outlooksicherung
    '----------------------------------------------------------------
    Debug.Print "StatusUpdateRecipients : "; .StatusUpdateRecipients
    '----------------------------------------------------------------
    'Schreibgeschützt
    '----------------------------------------------------------------
    Debug.Print "Application : "; .Application
    Debug.Print "Class : "; .Class
    
    For i = 1 To .Conflicts.Count
      Debug.Print "Conflicts " & i & " : "; .Conflicts.Item(i)    
    Next
    Debug.Print "ConversationTopic : "; .ConversationTopic
    Debug.Print "CreationTime : "; .CreationTime
    Debug.Print "DelegationState : "; .DelegationState
    Debug.Print "DownloadState : "; .DownloadState
    Debug.Print "EntryID : "; .EntryID
    Debug.Print "OutlookInternalVersion : "; .OutlookInternalVersion
    Debug.Print "OutlookVersion : "; .OutlookVersion
    Debug.Print "Parent : "; .Parent
    Debug.Print "Saved : "; .Saved
    Debug.Print "Size : "; .Size
    '----------------------------------------------------------------
    ' Verweis auf ein Objekt
    '----------------------------------------------------------------
    'Set objInspector = .GetInspector 'Verweis auf das Fenster in dem das Objekt geöffnet ist Debug.Print "IsConflict : "; .IsConflict
    'UserProperties -> benutzerdefinierte Eigenschaft
    
    For i = 1 To .UserProperties.Count  
      Set objProperty = .UserProperties.Item(i)
      Debug.Print "UserProperties "; i; " : " & objProperty.Name & " "; objProperty.Value    
    Next
    
    '----------------------------------------------------------------
    ' Kann nicht abgefragt werden (nicht lesbar)
    '----------------------------------------------------------------
    '.Actions
    '.MarkComplete
    '----------------------------------------------------------------
    'Die Eigenschaften des Objekts als Indexiert
    
    On Error Resume Next
    
    Stop    
    For i = 1 To .ItemProperties.Count
      Debug.Print "ItemProperties " & Format(i, "000") & " : "; .ItemProperties.Item(i)    
    Next
    '----------------------------------------------------------------
  End With
End Sub

Sub AppointmentItem_Properties()

  Dim myNamespace As Outlook.NameSpace
  Dim myFolder As Outlook.MAPIFolder
  Dim oAppointmentItem As AppointmentItem
  Dim i%
  Dim objProperty As Object
  Set myNamespace = GetNamespace("MAPI")
  Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar)
  
  Set oAppointmentItem = myFolder.Items(1)
  
  'alle Eigenschaften per Debug.Print in den Direktbereich ausgeben
  With oAppointmentItem 'Termin (Kalender)
    Debug.Print "AllDayEvent : "; .AllDayEvent
    
    For i = 1 To .Attachments.Count
      Debug.Print "Attachments " & i & " : "; .Attachments.Item(i).DisplayName & " " & .Attachments.Item(i).DisplayName
    Next
    Debug.Print "AutoResolvedWinner : "; .AutoResolvedWinner
    Debug.Print "BillingInformation : "; .BillingInformation
    Debug.Print "BusyStatus : "; .BusyStatus
    Debug.Print "Categories : "; .Categories
    Debug.Print "companies : "; .companies
    Debug.Print "ConferenceServerAllowExternal : "; .ConferenceServerAllowExternal
    Debug.Print "ConferenceServerPassword : "; .ConferenceServerPassword
    Debug.Print "ConversationIndex : "; .ConversationIndex
    Debug.Print "DownloadState : "; .DownloadState
    Debug.Print "Duration : "; .Duration 'Dauer (in Minuten)
    Debug.Print "End : "; .End 'Enddatum/-Zeit
    Debug.Print "FormDescription : "; .FormDescription
    Debug.Print "Importance : "; .Importance
    Debug.Print "InternetCodepage : "; .InternetCodepage
    Debug.Print "IsOnlineMeeting : "; .IsOnlineMeeting
    
    For i = 1 To .Links.Count
    Debug.Print "Links " & i & " : "; .Links.Item(i).Name 'Verknüpfung zu Kontakten
    
    Next
    Debug.Print "Location : "; .Location
    Debug.Print "MarkForDownload : "; .MarkForDownload
    Debug.Print "MeetingStatus : "; .MeetingStatus
    Debug.Print "MeetingWorkspaceURL : "; .MeetingWorkspaceURL
    Debug.Print "MessageClass : "; .MessageClass
    Debug.Print "Mileage : "; .Mileage
    Debug.Print "NetMeetingAutoStart : "; .NetMeetingAutoStart
    Debug.Print "NetMeetingDocPathName : "; .NetMeetingDocPathName
    Debug.Print "NetMeetingOrganizerAlias : "; .NetMeetingOrganizerAlias
    Debug.Print "NetMeetingServer : "; .NetMeetingServer
    Debug.Print "NetMeetingType : "; .NetMeetingType
    Debug.Print "NetShowURL : "; .NetShowURL
    Debug.Print "NoAging : "; .NoAging
    Debug.Print "OptionalAttendees : "; .OptionalAttendees
    Debug.Print "Organizer : "; .Organizer
    Debug.Print "ReminderMinutesBeforeStart : "; .ReminderMinutesBeforeStart
    Debug.Print "ReminderOverrideDefault : "; .ReminderOverrideDefault
    Debug.Print "ReminderPlaySound : "; .ReminderPlaySound
    Debug.Print "ReminderSet : "; .ReminderSet
    Debug.Print "ReminderSoundFile : "; .ReminderSoundFile
    Debug.Print "ReplyTime : "; .ReplyTime
    Debug.Print "RequiredAttendees : "; .RequiredAttendees
    Debug.Print "Resources : "; .Resources
    Debug.Print "ResponseRequested : "; .ResponseRequested
    Debug.Print "Sensitivity : "; .Sensitivity
    Debug.Print "Session : "; .Session
    Debug.Print "Start : "; .Start
    Debug.Print "Subject : "; .Subject
    Debug.Print "UnRead : "; .UnRead
    'UserProperties -> benutzerdefinierte Eigenschaft
    
    For i = 1 To .UserProperties.Count
      Set objProperty = .UserProperties.Item(i)
      Debug.Print "UserProperties "; i; " : " & objProperty.Name & " "; objProperty.Value
    Next
    '----------------------------------------------------------------
    ' Zugriffsbeschränkung durch Outlooksicherung
    '----------------------------------------------------------------
    Debug.Print "Body (nur 1. Zeile) : "; Left(.Body, InStr(1, .Body, vbCr))
    Debug.Print "Class : "; .Class
    '----------------------------------------------------------------
    'Schreibgeschützt
    '----------------------------------------------------------------
    Debug.Print "Application : "; .Application
    'Set objInspector = .GetInspector 'Verweis auf das Fenster in dem das Objekt geöffnet ist
    
    For i = 1 To .Conflicts.Count
      Debug.Print "Conflicts " & i & " : "; .Conflicts.Item(i)
    Next
    Debug.Print "ConversationTopic : "; .ConversationTopic
    Debug.Print "CreationTime : "; .CreationTime
    Debug.Print "EntryID : "; .EntryID
    Debug.Print "IsConflict : "; .IsConflict
    Debug.Print "IsRecurring : "; .IsRecurring ' wiederholender Termin
    Debug.Print "OutlookInternalVersion : "; .OutlookInternalVersion
    Debug.Print "OutlookVersion : "; .OutlookVersion
    Debug.Print "Parent : "; .Parent
    Debug.Print "LastModificationTime : "; .LastModificationTime
    'Empfänger des Termins Schreibgeschützt
    
    For i = 1 To .Recipients.Count
      Debug.Print "Recipients " & i & " : "; .Recipients.Item(i).Name & " " & .Recipients.Item(i).Address
    Next
    Debug.Print "RecurrenceState : "; .RecurrenceState
    Debug.Print "ResponseStatus : "; .ResponseStatus
    Debug.Print "Saved : "; .Saved
    Debug.Print "Size : "; .Size
    '----------------------------------------------------------------
    ' Kann nicht abgefragt werden (nicht lesbar)
    '----------------------------------------------------------------
    '.Actions
    '----------------------------------------------------------------
    'Die Eigenschaften des Objekts als Indexiert
    
    On Error Resume Next
    
    Stop
    For i = 1 To .ItemProperties.Count
      Debug.Print "ItemProperties " & Format(i, "000") & " : "; .ItemProperties.Item(i)
    Next
    '----------------------------------------------------------------
  End With
End Sub

Sub DistListItem_Properties()

  Dim myNamespace As Outlook.NameSpace
  Dim myFolder As Outlook.MAPIFolder
  Dim oDistListItem As DistListItem
  Dim oItem As Object
  Dim i%
  Dim objProperty As Object
  
  Set myNamespace = GetNamespace("MAPI")
  Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
  
  For Each oItem In myFolder.Items
    If TypeOf oItem Is Outlook.DistListItem Then
      Set oDistListItem = oItem
      Exit For
    End If
  Next
  If oDistListItem Is Nothing Then Exit Sub
  
  'alle Eigenschaften per Debug.Print in den Direktbereich ausgeben
  With oDistListItem 'Verteilerliste
    
    For i = 1 To .Attachments.Count
      Debug.Print "Attachments " & i & " : "; .Attachments.Item(i).DisplayName & " " & .Attachments.Item(i).DisplayName
    Next
    Debug.Print "AutoResolvedWinner : "; .AutoResolvedWinner
    Debug.Print "BillingInformation : "; .BillingInformation
    Debug.Print "Body : "; .Body
    Debug.Print "Categories : "; .Categories
    Debug.Print "companies : "; .companies
    Debug.Print "ConversationIndex : "; .ConversationIndex
    Debug.Print "DLName : "; .DLName '(Anzeigenamen einer Verteilerliste)
    Debug.Print "FormDescription : "; .FormDescription
    Debug.Print "Importance : "; .Importance
    
    For i = 1 To .Links.Count
      Debug.Print "Links " & i & " : "; .Links.Item(i).Name 'Verknüpfung zu Kontakten
    Next
    Debug.Print "MarkForDownload : "; .MarkForDownload
    Debug.Print "MessageClass : "; .MessageClass
    Debug.Print "Mileage : "; .Mileage
    Debug.Print "NoAging : "; .NoAging
    Debug.Print "Sensitivity : "; .Sensitivity '(Vertraulichkeit) = olConfidential, olNormal, olPersonal, olPrivate
    Debug.Print "Subject : "; .Subject '(Betreff)
    Debug.Print "UnRead : "; .UnRead '(nicht geöffnet/gelesen)
    '----------------------------------------------------------------
    'Schreibgeschützt
    '----------------------------------------------------------------
    Debug.Print "Application : "; .Application
    Debug.Print "Class : "; .Class
    Debug.Print "ConversationTopic : "; .ConversationTopic
    Debug.Print "CreationTime : "; .CreationTime
    Debug.Print "DownloadState : "; .DownloadState
    Debug.Print "EntryID : "; .EntryID
    'Set objInspector = .GetInspector 'Verweis auf das Fenster in dem das Objekt geöffnet ist
    Debug.Print "IsConflict : "; .IsConflict
    Debug.Print "LastModificationTime : "; .LastModificationTime
    Debug.Print "MemberCount : "; .MemberCount '(Zahl der Mitglieder )
    Debug.Print "OutlookInternalVersion : "; .OutlookInternalVersion
    Debug.Print "OutlookVersion : "; .OutlookVersion
    Debug.Print "Parent : "; .Parent
    Debug.Print "Saved : "; .Saved
    Debug.Print "Session : "; .Session
    Debug.Print "Size : "; .Size
    '----------------------------------------------------------------
    ' Kann nicht abgefragt werden (nicht lesbar)
    '----------------------------------------------------------------
    '.Actions
    '----------------------------------------------------------------
    ' Verweis auf ein Objekt
    '----------------------------------------------------------------
    
    For i = 1 To .UserProperties.Count
      Set objProperty = .UserProperties.Item(i)
      Debug.Print "UserProperties " & i & " " & objProperty.Name & " : "; objProperty.Value
    Next
    
    For i = 1 To .Conflicts.Count
      Debug.Print "Conflicts " & i & " : "; .Conflicts.Item(i)
    Next
    '----------------------------------------------------------------
    'Die Eigenschaften des Objekts als Indexiert
    
    On Error Resume Next
    
    Stop
    For i = 1 To .ItemProperties.Count
      Debug.Print "ItemProperties " & Format(i, "000") & " : "; .ItemProperties.Item(i)
    Next
    '----------------------------------------------------------------
  End With
End Sub

Sub JournalItem_Properties()
  Dim myNamespace As Outlook.NameSpace
  Dim myFolder As Outlook.MAPIFolder
  Dim oJournalItem As JournalItem
  Dim i%
  Dim objProperty As Object
  Set myNamespace = GetNamespace("MAPI")
  Set myFolder = myNamespace.GetDefaultFolder(olFolderJournal)
  Set oJournalItem = myFolder.Items(1)
  
  'alle Eigenschaften per Debug.Print in den Direktbereich ausgeben
  With oJournalItem    
    For i = 1 To .Attachments.Count
      Debug.Print "Attachments " & i & " : "; .Attachments.Item(i).DisplayName & " " & .Attachments.Item(i).DisplayName
    Next
    Debug.Print "BillingInformation : "; .BillingInformation
    Debug.Print "Body : "; .Body
    Debug.Print "Categories : "; .Categories
    Debug.Print "companies : "; .companies
    Debug.Print "ContactNames : "; .ContactNames
    Debug.Print "ConversationIndex : "; .ConversationIndex
    Debug.Print "DocPosted : "; .DocPosted
    Debug.Print "DocPrinted : "; .DocPrinted
    Debug.Print "DocRouted : "; .DocRouted
    Debug.Print "DocSaved : "; .DocSaved
    Debug.Print "Duration : "; .Duration '(Dauer (in Minuten) des Termins)
    Debug.Print "End : "; .End
    Debug.Print "FormDescription : "; .FormDescription
    Debug.Print "Importance : "; .Importance
    
    For i = 1 To .Links.Count
      Debug.Print "Links " & i & " : "; .Links.Item(i).Name 'Verknüpfung zu Kontakten
    Next
    Debug.Print "MarkForDownload : "; .MarkForDownload
    Debug.Print "MessageClass : "; .MessageClass
    Debug.Print "Mileage : "; .Mileage
    Debug.Print "NoAging : "; .NoAging
    Debug.Print "Sensitivity : "; .Sensitivity
    Debug.Print "Session : "; .Session
    Debug.Print "Start : "; .Start
    Debug.Print "Subject : "; .Subject
    Debug.Print "UnRead : "; .UnRead
    '----------------------------------------------------------------
    'Schreibgeschützt
    '----------------------------------------------------------------
    Debug.Print "Application : "; .Application
    Debug.Print "AutoResolvedWinner : "; .AutoResolvedWinner
    Debug.Print "ConversationTopic : "; .ConversationTopic
    Debug.Print "CreationTime : "; .CreationTime
    Debug.Print "DownloadState : "; .DownloadState
    Debug.Print "EntryID : "; .EntryID
    Debug.Print "IsConflict : "; .IsConflict
    Debug.Print "LastModificationTime : "; .LastModificationTime
    Debug.Print "OutlookInternalVersion : "; .OutlookInternalVersion
    Debug.Print "OutlookVersion : "; .OutlookVersion
    Debug.Print "Parent : "; .Parent
    'Empfänger des Journals
    
    For i = 1 To .Recipients.Count
      Debug.Print "Recipients " & i & " : "; .Recipients.Item(i).Name & " " & .Recipients.Item(i).Address
    Next
    Debug.Print "Saved : "; .Saved
    Debug.Print "Size : "; .Size
    Debug.Print "Type : "; .Type
    Debug.Print "Class : "; .Class
    '----------------------------------------------------------------
    ' Verweis auf ein Objekt
    '----------------------------------------------------------------
    
    For i = 1 To .UserProperties.Count
      Set objProperty = .UserProperties.Item(i)
      Debug.Print "UserProperties " & i & " " & objProperty.Name & " : "; objProperty.Value
    Next
    '----------------------------------------------------------------
    ' Kann nicht abgefragt werden (nicht lesbar)
    '----------------------------------------------------------------
    '.Actions
    'Debug.Print "Conflicts : "; .Conflicts
    '----------------------------------------------------------------
    'Die Eigenschaften des Objekts als Indexiert
    
    On Error Resume Next
    
    Stop    
    For i = 1 To .ItemProperties.Count
      Debug.Print "ItemProperties " & Format(i, "000") & " : "; .ItemProperties.Item(i)
    Next
    '----------------------------------------------------------------
  End With
End Sub