Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Outlook Kontakte auslesen vs. Kontakte anzeigen

Frage Entwicklung VB for Applications

Mitglied: swetrain

swetrain (Level 1) - Jetzt verbinden

27.09.2013, aktualisiert 17:40 Uhr, 2185 Aufrufe, 1 Kommentar

Hallo zusammen,

mit unten stehendem Code lese ich mir die Kontake aus meinem Adressbuch aus.
Was mich nun sehr stuzig macht, ist, dass dabei auch Kontakte ausgegeben werden, die ich schon längst gelöscht habe und die auch nicht mehr im Adressbuch angezeigt werden.
Weiß von Euch jemand, weshalb das so ist, bzw. wie man da einen Abgleich hinbekommt?

OS: Win7 64 bit
Access: 2003
Outlook 2010 an Exchange 2010
Alle Updates/SP's sind installiert

Danke für alle Infos

Jochen


Dim olApp As Outlook.Application
Dim olNs As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olItem As Outlook.ContactItem
Dim olItemAdd As Outlook.ContactItem

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")

Set olNs = olApp.GetNamespace("MAPI")

Set olFolder = olNs.GetDefaultFolder(olFolderContacts)

For Each olItem In olFolder.Items
With olItem
Debug.Print .FullName
End With
Next olItem


ex:
olNs.Logoff
Set olNs = Nothing
Set olApp = Nothing
Set olFolder = Nothing
Set olItem = Nothing
Exit Sub

eh:
MsgBox Err.Description, vbCritical, "Fehler-Nr.: " & Err.Number
Resume ex
Mitglied: colinardo
27.09.2013 um 21:43 Uhr
Hallo swetrain,
da wäre mir absolut neu , und ich programmiere viel mit Outlook....
Was ich mir vorstellen könnte, ist das du mehrere Accounts bzw. persönliche Ordner in Outlook hast in denen ein ähnlicher Datenbestand herrscht den du aber nicht mehr nutzt, welcher aber trotzdem noch als Standard definiert sein könnte.
Dies kannst du überprüfen indem du deinen Kontakteordner direkt über den jeweiligen Store ansteuerst und nicht über den Default-Wert olFolderContacts, und zwar so:
01.
Set olFolder = olNs.Stores("deine@mailadresse.de").GetRootFolder.Folders("Kontakte")
Im Beispiel muss deine@mailadresse.de durch den Namen des obersten Knotens deines Exchange-Accounts ersetzt werden, außerdem gehe ich von eingedeutschten Exchange Ordnern aus (Kontakte)

Probier das mal aus ...

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook Kontakte suchen für Mail (3)

Frage von Micky770 zum Thema Outlook & Mail ...

Microsoft Office
Outlook 2010 doppelte Kontakte zusammenführen (1)

Frage von Herbrich19 zum Thema Microsoft Office ...

TK-Netze & Geräte
gelöst Auerswald Compakt 4000 Kontakte aus Outlook (7)

Frage von fundave3 zum Thema TK-Netze & Geräte ...

Outlook & Mail
Outlook 2010 Userprofile Foto anzeigen lassen (2)

Frage von staybb zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (19)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Windows Server
DC virtualisieren + wie sichern (SingleDC-Environment) (12)

Frage von KMUlife zum Thema Windows Server ...

Festplatten, SSD, Raid
RAID Controller mit Trim-Funktion, wie ermitteln (11)

Frage von pixel24 zum Thema Festplatten, SSD, Raid ...