Mehrere Bedingungen für ein Outlook-Element in Excel VBA

Question

Ich Abfrage Outlook-Datenbank über Excel VBA, und ich möchte zwei Bedingungen für den Wert einer benutzerdefinierten Eigenschaft anwenden. Der folgende Code, der beiden Bedingungen in derselben hat „If“ Aussage

Set cat1 = CurrentItem.UserProperties.Find("catniveau1") 
If cat1 <> "" and Not (cat1 Is Nothing) Then 

wirft die folgende Fehlermeldung: „Objektvariable oder With-Blockvariable nicht festgelegt“. Jedoch ist mit zwei getrennten „if“ Anweisungen adaequat:

Set cat1 = CurrentItem.UserProperties.Find("catniveau1") 
If Not (cat1 Is Nothing) Then 
    If cat1 <> "" Then 

Gibt es eine Möglichkeit, beide Bedingungen auf dem gleichen „if“ Anweisung anzuwenden?

Answer 1

Es ist nicht möglich, beide Bedingungen gleichzeitig wegen logischen Verbindungen "Timing" zu bewerten, lassen Sie mich erklären.

1. cat1 ist ein Bereich (bestimmt werden muss, was zuerst sein wird) Da cat1 nicht, dass Sie nicht, wenn seine <> auswerten kann definiert werden kann oder „“.

2. cat1 <> "" es muss bewertet werden, was der Bereich ist. Ich weiß, das „menschliche“ Denken zugleich sein kann, aber, zusammenfassend:

A) Die Variable, zunächst als Bereich gelöst werden muss ...

B) ausgewertet werden, wenn <> „“,

ich verstehe nicht, warum Sie if <>"" brauchen würde wieder bewerten -wenn es nicht den Wert gefunden, es If Not (cat1 Is Nothing) Then nichts-, warum nicht nur verlassen die Aussage sein würde?