Zunächst Mal hat Bernhard natürlich recht, was die Geschichte von wegen "Doku" angeht. In Deinem Fall ist es aber so, dass man die Doku nur "richtig" lesen muss (hatte ich auch nicht gemacht):
Beim Bit 11 steht "see 28". Und das kann ich bestätigen:
Man muss auf jeden Fall "von hinten" zählen, und wenn man zu wenige Bits hat, dann mit Nullen auffüllen.
"Always keep" ist in dem Fall: 28.Bit 0 und 11. Bit 1:
00000000000000100110001110001
Bei never sind beide Bits null:
00000000000000100010001110001
Und bei Ask ist das vordere 1:
10000000000000100010001110001
Technisch ist die Abfrage also ziemlich einfach, man kann das Ganze per AND rausfinden:
Dim ses as New NotesSession
Dim lngPreferences as Long
Dim isAsk as Boolean
Dim isSave as Boolean
lngPreferences = Clng( ses.GetEnvironmentString( "Preferences", True ) )
isAsk = ((lngPreferences AND 2^28)=2^28)
isSave = ((lngPreferences AND 2^11)=2^11)
msgbox isAsk
msgbox isSave