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

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
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
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

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
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