起步软件技术论坛-X3

 找回密码
 立即注册
搜索
123
返回列表 发新帖
楼主: hero419

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

[复制链接]
 楼主| 发表于 2008-4-21 08:57:11 | 显示全部楼层
3002,你最好远程看下。
这个问题不是每次都发生,暂时还没有找到重现的方式,但问题肯定存在。
我现在好不容易搞了个邮件是能保证每次回复都发件人为空的,所以麻烦你们能远程跟踪下代码。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-28 10:35:46 | 显示全部楼层
邮件的确有问题,远程已经解决,谢谢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;

结了吧。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 19:11 , Processed in 0.037866 second(s), 12 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表