Outlook Objekte

Die wichtigsten Outlook-Objekte mit ihren Eigenschaften und Methoden

Einfach mal alle Eigenschaften in den Direktbereich des VBA-Editors ausgeben

ContaktItem Kontakt

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

TaskItem Kalendereintrag (Termin)

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

AppointmentItem Termin (Kalender)

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

DistListItem Verteilerliste

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

JournalItem Jornaleintrag

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

: Zuletzt aktualisiert: 21. Dezember 2018

Wir nutzen Cookies auf unserer Website. Einige von ihnen sind essenziell für den Betrieb der Seite, während andere uns helfen, diese Website und die Nutzererfahrung zu verbessern (Tracking Cookies). Sie können selbst entscheiden, ob Sie die Cookies zulassen möchten. Bitte beachten Sie, dass bei einer Ablehnung womöglich nicht mehr alle Funktionalitäten der Seite zur Verfügung stehen.