关于Web登录后直接打开登录用户邮件的程序的更正

关于Web登录后直接打开登录用户邮件的程序的更正，不用部门有相同的名字时，即简称相同时原来的程序有问题的，特做修正

onload事件内容不变：document.location.href = document.all.txtMailFile.value

全部的程序就不发出来了，只发修改的对比说明

原来的txtMailFile公式程序：
strServerName := @Subset(@DbName;1);
strPathName := @ReplaceSubstring(@ReplaceSubstring(@Subset(@DbName;1);"\\"; "/");" ";"+");
strMailFile := @DbLookup("";strServerName:"Names.nsf";"People";@Name([CN];@UserName);"MailFile");
strMailFile2:= @ReplaceSubstring(@If(@UpperCase(@Right(strMailFile;4))!=".NSF";strMailFile + ".nsf";strMailFile);"\\";"/");
strPathName + "/" + strMailFile2

由于出现同名的简称，特做如下修正
1、建立一个以第一列是全称FullName并排序的视图PeopleByFullName
2、更改查询时的公司@UserName代替@Name([CN];@UserName)
修改后的txtMailFile公式程序：
strServerName := @Subset(@DbName;1);
strPathName := @ReplaceSubstring(@ReplaceSubstring(@Subset(@DbName;1);"\\"; "/");" ";"+");
strMailFile := @DbLookup("";strServerName:"Names.nsf";"PeopleByFullName";@UserName;"MailFile");
strMailFile2:= @ReplaceSubstring(@If(@UpperCase(@Right(strMailFile;4))!=".NSF";strMailFile + ".nsf";strMailFile);"\\";"/");
strPathName + "/" + strMailFile2