Hi Hardy,
anbei beispielsweise das nachträgliche Setzen der Option "Save sent mail" auf "Always prompt" (user preferences, Mail and News).
Gruß
Peti
-----------------------------------------------------------------
Sub Initialize
' Set "Save sent mail" option to "Always Prompt"
Dim s As New NotesSession
Dim pref As Long
Dim newpref As Long
pref=s.GetEnvironmentValue( "Preferences" , True )
prefbin$=Bin$(pref) ' convert to a 32 bit binary string
' Set the two bit positions for "Save sent mail" option (11 & 28) to "Always Prompt" (0 & 1)
Mid$(prefbin$, 4, 1) = "1" 'bit pos 28 (32 minus 28)
Mid$(prefbin$, 21, 1) = "0" 'bit pos 11 (32 minus 11)
newpref="&B" & prefbin$ ' convert result back to a Long decimal number
Call s.SetEnvironmentVar( "Preferences" , Cstr(newpref), True )
End Sub