' $System.Access Read Where $Office.Name - Whereabouts ' Sub WhereUser ' Set $w = $User.Where ' $ID = $User.ID $User.Name
$_User.Mail.MailTo ' If $w.Memos.Count ' EndIf ' If $w.View ' $t = $w.TimeStamp $w.View
$t.hour:$t.Minute00 $t.AMPM, $t.Day $t.month ($t.wday) ' Else Not registered yet.
' EndIf $w.Contact
' EndSub ' If ($GID != 0) and ! $Groups.$GID ' If $Login.Group ' $GID = $Login.Group.ID ' Elif $Login.Groups.Count ' $GID = $Login.Groups.Head ' Else ' $GID = $Groups.Head ' EndIf ' EndIf
Group [Memo Settings]
' $Contains = $Groups.$GID.Users.Contains $Login.ID ' If $Login and (! $GID or $Contains) ' Set $User = $Login ' $WhereUser ' EndIf ' If $GID ' Set $g = $Groups.$GID.Users ' Else ' Set $g = $Users ' EndIf ' For Each $User in $g ' If $User.ID != $Login.ID ' $WhereUser ' EndIf ' Next
NameMemoDestinationContact

[Top Page] [Top Page] [Settings] [Help]