Hallo zusammen, ich schaffe es nicht, in mein Benutzerdefinierter Formular comboFelder auszulesen.
Formularname: “IPM.Contact.AD_Contact”
Feld : “cmbKategorie”
Dim OlApp As Outlook.Application
Dim olContact As Outlook.ContactItem
Dim olFolderInbox As Outlook.MAPIFolder
Dim ns As Outlook.NameSpace
Dim objPropKategorie1
Dim objPropKategorie1Val
On Error Resume Next
Set OlApp = CreateObject(“Outlook.Application”)
Set ns = OlApp.GetNamespace(“MAPI”)
Set objPropKategorie1 = olContact.UserProperties.Add(“cmbKategorie”, olText)
Set objPropKategorie1Val = olContact.UserProperties.Find(“cmbKategorie”)
If objPropKategorie1Val = (“Bank”) Then MsgBox (“Alle OK”)
End If
