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
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
NextStop
'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.
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 |
![]() |
10
|
501 |
![]() |
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 |
![]() |
1010
|
1501 |
![]() |
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 | ![]() |
2010 | 2501 | ![]() |
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 | ![]() |
3010 | 3501 | ![]() |
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 | ![]() |
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 | |||||