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
