|
如何将邮件功能作为工作台的默认标签,用户登陆时候默认就有工作台、日程、邮件。
在协同常量库内增加代码:
static function TRTLConsts.PersonFuncs: TStringArray;
begin
Result := ['Biz:COLLABORATIONDesktopFunc.Func',
'Biz:COLLABORATIONSchedulerFunc.Func',
[B]'Biz:COLLABORATIONJUSTEPMAIL.FUNC' [/B] , ... ...
static function TRTLConsts.DefaultFuncs: TStringArray;
begin
Result := ['Biz:COLLABORATIONDesktopFunc.Func',
'Biz:COLLABORATIONSchedulerFunc.Func',
[B]'Biz:COLLABORATIONJUSTEPMAIL.FUNC' [/B] , ... ...
static function TRTLConsts.RunFuncs: string;
begin
Result := 'Biz:COLLABORATIONDesktopFunc.Func;' +
'Biz:COLLABORATIONSchedulerFunc.Func' +
[B]'Biz:COLLABORATIONJUSTEPMAIL.FUNC' [/B] ;
end;
签出,编译,保存,签入,刷新缓存后运行有报错,提示 转换文件名'Biz:COLLABORATIONJUSTEPMAIL.FUNC' 失败
|
|