create a rule for a UDF outlook vba

Question

I have created a custom user property field "MyNotes1" in outlook vba

Sub AddStatusProperties()

Dim objNamespace As NameSpace
Dim objFolder As Fold