邮件的确有问题,远程已经解决,谢谢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;