【结】使用协同邮件的朋友们，请进来看一下。

hero419

3002，你最好远程看下。
这个问题不是每次都发生，暂时还没有找到重现的方式，但问题肯定存在。
我现在好不容易搞了个邮件是能保证每次回复都发件人为空的，所以麻烦你们能远程跟踪下代码。

hero419

邮件的确有问题，远程已经解决，谢谢lixy和那个负责邮件的程序员。
procedure TMAILEDITFORM.DoRefreshMenuByAccountNames;
var
  I: Integer;
begin
if pmAccountNames.Items.Count = 0 then
    DoAddAccountNamesToMenu;

  for I := 0 to pmAccountNames.Items.Count - 1 do
    with pmAccountNames.Items[I] do
      Checked := Pos(Caption, msgMail.From) <> 0;

  if (msgMail.From = '') and (pmAccountNames.Items.Count > 0) then
    pmAccountNames.Items[0].Checked := True;
end;

结了吧。