Prüfung ob der aktuelle Anwender Eigentümer der Maildatenbank ist

Kategorie: Mail

(LotusSript läuft nur in der Maildatenbank)

Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("CalendarProfile")
If Not Instr ( Ucase(session.CommonUserName), Ucase(Cstr(doc.username(0)) ))> 0 Then
Print "Sie sind nicht der Besitzer der Maildatenbank. Prgramm wird nicht ausgeführt. ("+doc.username(0)+")"
'// Stop
End
Else
Print "Sie sind Besitzer der Maildatenbank. Starte Programm."
End If