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
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