【结帖】3002版本中缺陷“200711130091”没有解决。**

hero419

200711130091      发送的是内部邮件，收件人收到邮件里面发件人显示的是发件人的外部邮箱

现在发件人不显示外部邮箱了，显示发件人ID，但没有名称注释。
.                                                                                                                                                                                             .
.                                                                                                                                                                                             .

hero419

这个咋没人相应一下呢？
.                                                                                                                                                                                               .
.                                                                                                                                                                                               .

jiahaiminghr

楼主，这个缺陷在3002中已经修改了。
你的数据库资源升级了吗？

hero419

升级了，现在还是这样，原来的发件人显示的是外网邮箱，现在发件人显示的是人员ID。
以上是在定义了外网账户的的情况下发现的问题。
.                                                                                                                                                                                               .
.                                                                                                                                                                                               .

LI.WB

楼主，经过确认：
现在的版本只显示人员的ID，是不显示汉字名称的。

hero419

最初由 LI.WB 发布
[B]楼主，经过确认：
现在的版本只显示人员的ID，是不显示汉字名称的。 [/B]

您的意思是说程序设计就是这样的，本来就是只显示人员ID？
还是承认这是个缺陷？

jiahaiminghr

本来就是只显示人员ID的

hero419

哦，行，既然这么说，我们也就不说什么了。
.                                                                                                                                                                                               .
.                                                                                                                                                                                               .

jiahaiminghr

呵呵，你的需求已经提交了。

现在你也可以自己来修改一下代码
业务模型\协同系统\个人事务\邮件库\邮件编辑窗体
function TMailEditForm.DoGetInternalMailFrom: string;
var
  I: Integer;
  lOperUserID, lOperUserDisplayName: string;
  lQuery: TQuery;
begin
  Result := '';
  if pmAccountNames.Items.Count = 0 then
  begin
    if Assigned(OnGetOperUserInfo) then
      OnGetOperUserInfo(Self, lOperUserID, lOperUserDisplayName);
    Result := Format('"%s" <%s>', [lOperUserDisplayName, lOperUserID]);
  end
  else
    for I := 0 to pmAccountNames.Items.Count - 1 do
      if pmAccountNames.Items[I].Checked then
      begin
        lQuery := TQuery.Create(nil);
        try
          lQuery.ConnectionString := TRTLConsts.CollaborationDatabaseConnectionString;
          lQuery.CommandText := 'SELECT  FOWNERGUID FROM TMAILACCOUNTS WHERE FMAILADDRESS = ''' + pmAccountNames.Items[I].Caption + '''';
          lQuery.Open;
          Result := lQuery.FieldByName('FOWNERGUID').AsString;
        finally
          lQuery.Free;
        end;
      
function TMailEditForm.DoGetMailFrom: string;
var
  I: Integer;
  lOperUserID, lOperUserDisplayName: string;
begin
  Result := '';
  if pmAccountNames.Items.Count = 0 then
  begin
    if Assigned(OnGetOperUserInfo) then
      OnGetOperUserInfo(Self, lOperUserID, lOperUserDisplayName);
    Result := Format('"%s" <%s>', [lOperUserDisplayName, lOperUserID]);
  end
  else
    for I := 0 to pmAccountNames.Items.Count - 1 do
      if pmAccountNames.Items[I].Checked then
        Result := pmAccountNames.Items[I].Caption;
end;

hero419

问一下哦，是不是把原来的TMailEditForm.DoGetMailFrom拆成现在的两个过程了？
function TMailEditForm.DoGetInternalMailFrom: string是新加的吧。
.                                                                                                                                                                                               .
.                                                                                                                                                                                               .