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

Symbolleiste Button Icon über FaceID zuweisen

wenn ein Icon aus der FaceID-Liste gefällt dann kann mit diesem kleinen Code das Icon zugeweisen werden. Dies ist nur eine Hilfestellung!
In den VBA-Editor wechseln (ALT-F11). Die SUB in ein Modul kopieren und mit F5 starten. Rot ist die gwünschte FaceID

VBA-Code

Sub set_FaceID()
Dim oCMB As CommandBar
Dim oCMBButton As CommandBarControl ' Button
Dim iIndex%

'hier den Namen der Symbolleiste (Commandbar) eintragen.
Const cCbarName = "FID"

'hier die Info über die gesuchte Schaltfläche (Controls) eintragen.
'wenn TAG bekannt ist
Const cTAG = "XYZ"
' oder wenn die ID bekannt ist
Const cID = "1"
'oder die Position auf der Symbolleiste
iIndex = 1

Set oCMB = ActiveExplorer.CommandBars(cCbarName)

'wenn etwas bekannt ist z.B. der TAG oder ID dann einkommentieren.
'Set oCMBButton = oCMB.FindControl(, , cTAG)
'Set oCMBButton = oCMB.FindControl(, cID)
Stop

'ein mögliche Hilfe das richtige Control zu finden
For Each oCMBButton In oCMB.Controls

Debug.Print "Caption: "; oCMBButton.Caption; " Position: "; oCMBButton.Index; " _

ID: "; oCMBButton.ID; " TAG: "; oCMBButton.Tag; " TooltipText: "; oCMBButton.TooltipText

Next
Stop
'hier den Index (Position) eintragen
iIndex = 1
Set oCMBButton = oCMB.Controls(iIndex)
oCMBButton.FaceId = 145
End Sub

Es kommt immer wieder von das Anhänge von Emails nicht mehr benötigt werden. Die E-Mail aber nicht gelöscht werden soll. Die Anhänge lassen sich aber nur bei geöffneter E-Mail löschen. Daher dieses kleine VBA-Script.

VBA-Code

 

Public Sub DeleteSelectedMailItemsAttachment()
Dim objFolder As MAPIFolder
Dim objMailSel As MailItem
Dim objSelection As Selection
Dim myattachments As Attachment
Dim i%, j%
'On Error Resume Next
'geht leider nur mit einer Mail
Select Case Application.ActiveWindow.Class
Case olExplorer
Set objFolder = Application.ActiveExplorer.CurrentFolder
If objFolder.DefaultMessageClass = "IPM.Note" Then
Set objSelection = Application.ActiveExplorer.Selection
If objSelection.Count = 0 Then
'MsgBox "Es sind keine Mails ausgewählt !"
Else
For Each objMailSel In objSelection
DoEvents
i = objMailSel.Attachments.Count
While i > 0
objMailSel.Attachments.Remove i
DoEvents
i = i - 1
Wend
Next
End If
Set objSelection = Nothing
Else
'MsgBox "Im Ordner '" & objFolder.Name & "' sind keine Mails enthalten!"
End If
Set objFolder = Nothing

Case olInspector
With Application.ActiveInspector
If .CurrentItem.Class = olMail Then
Set objMailSel = .CurrentItem
i = objMailSel.Attachments.Count
While i > 0
objMailSel.Attachments.Remove i
i = i - 1
Wend
Set objMailSel = Nothing
Else
'MsgBox "Es ist keine Mail aktiv !"
End If
End With

Case Else
End Select
End Sub

Outlook Spam-Ordner Leeren.

Wenn es einen Ordner mit dem Namen "Junk-E-Mail" gibt, wird von Outlook angelegt. Wird unter Menü Extras -> Organiseren erledigt.
kann mit diesem Codeder Ihalt nicht nur in den Papierkorb verschoben werden sondern die Mail werden danch auch gleich gelöscht.

 

Wie vorgehen?

- In den VBA-Editor wechseln (Tastenkombination Alt-F11).
- Menü ->Einfügen Modul auswählen.
- VBA-Code dort hineinkopieren.

- In Outlook Menü's anpassen aufrufen.
* Im Registerblatt Befehle zu Makros gehen und Projekt1.DeletJunk in die Sysbolleiste ziehen. (Projetkt1 kann auch anderst heißen)
* Jetzt noch ein Schaltflächensysbol auswählen. (Kann von anderen kopiert werden. bzw. per VBA-Code zugewiesen werden)
* Schießen und schon kann der Junk gelöscht werden.

ol menue anpassen

 

 

 

VBA-Code:

Sub DeleteJunk()
'Dim oNamespace As Outlook.NameSpace
Dim oF As MAPIFolder, oFActive As MAPIFolder
Dim i%, j%
Dim fFolderDeletedItems As Boolean
'Set oNamespace = GetNamespace("MAPI")
On Error Goto Errors_
Set oFActive = ActiveExplorer.CurrentFolder
If oFActive.Name = Session.GetDefaultFolder(olFolderJunk).Name OR _
oFActive.Name = Session.GetDefaultFolder(olFolderDeletedItems).Name Then
Set oF = Session.GetDefaultFolder(olFolderInbox)
'"Junk-E-Mail" bzw. "Gelöschte Objekte" war aktiv deshalb auf den Posteingang umschalten
ActiveExplorer.SelectFolder oF
End If
Set oF = Session.GetDefaultFolder(olFolderJunk)
Jump_:
i = oF.Items.Count
For j = 1 To i
With oF.Items(j)
.Categories = "Junk"
.Save
.Delete
End With
Next
fFolderDeletedItems = -1
Set oF = Session.GetDefaultFolder(olFolderDeletedItems)
JumpDelFolders_:
i = oF.Items.Count
For j = 1 To i
With oF.Items(j)
If .Categories = "Junk" Then .Delete
End With
Next

eXit_:
DoEvents

If oFActive.Name = Session.GetDefaultFolder(olFolderJunk).Name OR _
oFActive.Name = Session.GetDefaultFolder(olFolderDeletedItems).Name Then
' zurück zum "Junk-E-Mail" bzw. "Gelöschte Objekte" Ordner
ActiveExplorer.SelectFolder oFActive
End If
Set oF = Nothing
Set oFActive = Nothing
Exit Sub

Errors_:
If Err.Number = -2147352567 Then 'Array-Index außerhalb des zulässigen Bereichs.
'Beim löschen stimmt die Anzahl Index-Einträge nicht und deshalb nochmal löschen durchlaufen.
If fFolderDeletedItems Then
Resume JumpDelFolders_
Else
Resume Jump_
End If
Else
Err.Clear
GoTo eXit_
End If
End Sub

 

Es ist einfach schwer ein passendes Icon für die Sybolleisten-Controls auszusuchen. Über die FaceId kann das Programm-Technisch schnell erfolgen. Hier jetzt die Bilder (Bildchen) als Liste welche als Auswahl möglich sind. Die Icons sind in 10er Blöcken abgebildet. ID des 1. Icons in der Zeile steht links des 10 Icons rechts.

           
1
1-500
10
   501
501-1000
510
11
20
   511
520
21
30
   521
530
31
40
   531
540
41
50
   541
550
51
60
   551
560
61
70
   561
570
71
80
   571
580
81
90
   581
590
91
100
   591
600
101
110
   601
610
111
120
   611
620
121
130
   621
630
131
140
   631
640
141
150
   641
650
151
160
   651
660
161
170
   661
670
171
180
   671
680
181
190
   681
690
191
200
   691
700
201
210
   701
710
211
220
   711
720
221
230
   721
730
231
240
   731
740
241
250
   741
750
251
260
   751
760
261
270
   761
770
271
280
   771
780
281
290
   781
790
291
300
   791
800
301
310
   801
810
311
320
   811
820
321
330
   821
830
331
340
   831
840
341
350
   841
850
351
360
   851
860
361
370
   861
870
371
380
   871
880
381
390
   881
890
391
400
   891
900
401
410
   901
910
411
420
   911
920
421
430
   921
930
431
440
   931
940
441
450
   941
950
451
460
   951
960
461
470
   961
970
471
480
   971
980
481
490
   981
990
491
500
   991
1000
             
           
1001
1001-1500
1010
   1501
1501-2000
1510
1011
1020
   1511
1520
1021
1030
   1521
1530
1031
1040
   1531
1540
1041
1050
   1541
1550
1051
1060
   1551
1560
1061
1070
   1561
1570
1071
1080
   1571
1580
1081
1090
   1581
1590
1091
1100
   1591
1600
1101
1110
   1601
1610
1111
1120
   1611
1620
1121
1130
   1621
1630
1131
1140
   1631
1640
1141
1150
   1641
1650
1151
1160
   1651
1660
1161
1170
   1661
1670
1171
1180
   1671
1680
1181
1190
   1681
1690
1191
1200
   1691
1700
1201
1210
   1701
1710
1211
1220
   1711
1720
1221
1230
   1721
1730
1231
1240
   1731
1740
1241
1250
   1741
1750
1251
1260
   1751
1760
1261
1270
   1761
1770
1271
1280
   1771
1780
1281
1290
   1781
1790
1291
1300
   1791
1800
1301
1310
   1801
1810
1311
1320
   1811
1820
1321
1330
   1821
1830
1331
1340
   1831
1840
1341
1350
   1841
1850
1351
1360
   1851
1860
1361
1370
   1861
1870
1371
1380
   1871
1880
1381
1390
   1881
1890
1391
1400
   1891
1900
1401
1410
   1901
1910
1411
1420
   1911
1920
1421
1430
   1921
1930
1431
1440
   1931
1940
1441
1450
   1941
1950
1451
1460
   1951
1960
1461
1470
   1961
1970
1471
1480
   1971
1980
1481
1490
   1981
1990
1491
1500
   1991
2000
             
           
2001 2001-2500 2010   2501 2501-3000
2510
2011
 2020   2511
2520
2021 2030   2521
2530
2031 2040   2531
2540
2041 2050   2541
2550
2051 2060   2551
2560
2061 2070   2561
2570
2071 2080   2571
2580
2081 2090   2581
2590
2091 2100   2591
2600
2101 2110   2601
2610
2111 2120   2611
2620
2121 2130   2621
2630
2131 2140   2631
2640
2141 2150   2641
2650
2151 2160   2651
2660
2161 2170   2661
2670
2171 2180   2671
2680
2181 2190   2681
2690
2191 2200   2691
2700
2201 2210   2701
2710
2211 2220   2711
2720
2221 2230   2721
2730
2231 2240   2731
2740
2241 2250   2741
2750
2251 2260   2751
2760
2261 2270   2761
2770
2271 2280   2771
2780
2281 2290   2781
2790
2291 2300   2791
2800
2301 2310   2801
2810
2311 2320   2811
2820
2321 2330   2821
2830
2331 2340   2831
2840
2341 2350   2841
2850
2351 2360   2851
2860
2361 2370   2861
2870
2371 2380   2871
2880
2381 2390   2881
2890
2391 2400   2891
2900
2401 2410   2901
2910
2411 2420   2911
2920
2421 2430   2921
2930
2431 2440   2931
2940
2441 2450   2941
2950
2451 2460   2951
2960
2461 2470   2961
2970
2471 2480   2971
2980
2481 2490   2981
2990
2491 2500   2991
3000
             
           
3001 3001-3500 3010   3501 3501-4000
3510
3011 3020   3511
3520
3021 3030   3521
3530
3031 3040   3531
3540
3041 3050   3541
3550
3051 3060   3551
3560
3061 3070   3561
3570
3071 3080   3571
3580
3081 3090   3581
3590
3091 3100   3591
3600
3101 3110   3601
3610
3111 3120   3611
3620
3121 3130   3621
3630
3131 3140   3631
3640
3141 3150   3641
3650
3151 3160   3651
3660
3161 3170   3661
3670
3171 3180   3671
3680
3181 3190   3681
3690
3191 3200   3691
3700
3201 3210   3701
3710
3211 3220   3711
3720
3221 3230   3721
3730
3231 3240   3731
3740
3241 3250   3741
3750
3251 3260   3751
3760
3261 3270   3761
3770
3271 3280   3771
3780
3281 3290   3781
3790
3291 3300   3791
3800
3301 3310   3801
3810
3311 3320   3811
3820
3321 3330   3821
3830
3331 3340   3831
3840
3341 3350   3841
3850
3351 3360   3851
3860
3361 3370   3861
3870
3371 3380   3871
3880
3381 3390   3881
3890
3391 3400   3891
3900
3401 3410   3901
3910
3411 3420   3911
3920
3421 3430   3921
3930
3431 3440   3931
3940
3441 3450   3941
3950
3451 3460   3951
3960
3461 3470   3961
3970
3471 3480   3971
3980
3481 3490   3981
3990
3491 3500   3991
4000
             
             
4001 4001-4500 4010        
4011 4020      
4021 4030      
4031 4040      
4041 4050      
4051 4060      
4061 4070      
4071 4080      
4081 4090      
4091 4100      
4101 4110      
4111 4120      
4121 4130      
4131 4140      
4141 4150      
4151 4160      
4161 4170      
4171 4180      
4181 4190      
4191 4200      
4201 4210      
4211 4220      
4221 4230      
4231 4240      
4241 4250      
4251 4260      
4261 4270      
4271 4280      
4281 4290      
4291 4300      
4301 4310      
4311 4320      
4321 4330      
4331 4340      
4341 4350      
4351 4360      
4361 4370      
4371 4380      
4381 4390      
4391 4400      
4401 4410      
4411 4420      
4421 4430      
4431 4440      
4441 4450      
4451 4460      
4461 4470      
4471 4480      
4481 4490      
4491 4500      
             
  1. Outlook Quicktexte (bis 2003)

Search

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.