Outlook VBA Problem


K

kundro

Hallo NG ,
bin Anfänger was VBA betrifft und schon vorab
Danke für jede Hilfestellung. Hier mein Problem
und dazu der Code.

Ich habe im Ordner Kontakte ein Benutzedefiniertes
Feld mit Namen "Styp" erstellt und Ihr für bestimmte
Kontakte den Wert "1" zugewiesen. Wenn ich das Makro
starte werden mir die ersten 4 Kontakte ( die im Feld
Styp mit Wert 1 belegt sind ) angezeigt aber anschließend
kommt die Fehlermeldung "Laufzeitfehler 91" ; Objejtvariable
nicht definiert. Kann jemand helfen ?
Danke nochmal und Gruß
Kundro


Sub CheckCurItem()

Dim olApp As Outlook.Application
Dim olNms As Outlook.NameSpace
Dim kontk As Object
Dim kon As Outlook.ContactItem

Set olApp = CreateObject("Outlook.Application")
Set olNms = olApp.GetNamespace("MAPI")
Set kontk = olNms.GetDefaultFolder(olFolderContacts).Items

For Each kon In kontk
If kon.UserProperties("Styp").Value = 1 Then
kon.Display
End If
Next

End Sub
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top