dim session as New NotesSession
monat = right( "00" & Month(Now), 2)
tag = right( "00" & Day(Now), 2)
std = right( "00" & Hour(Now), 2)
min = right( "00" & Minute(Now), 2)
sek = right( "00" & SecondDay(Now), 2)
x = 0
i = 1
while x = 0
If Asc(right(session.CommonUsername, i)) = asc(" ") then
x = (length(session.CommonUsername) - i) + 1
end if
i = i + 1
Wend
left(Session.CommonUserName,1) & left(right(session.CommonUserName, x),1) & Year(Now) & monat & tag & std & min & sek
habs nicht getestet - eventuell muss x noch um eine Stelle korigiert werden.
Doppelte Vornamen mit einem Space würde ich vermeiden, wir haben da beim Umbenennen schon massive Probleme bekommen, weil Notes dann nur den ersten Vornamen als Vornamen und den Rest als Nachnamen verwendet.