【结贴】3002版本中邮件转发附件内容会丢失。**

Akon

楼主,将附件中是brp包导入一下,再做一下测试,导入之前先备份一下数据库

hero419

我没有看到附件

使用brp总感觉不放心，还要备份数据库，紧张啊，有没有其他比较稳妥的方法，可以通过修改邮件中开源代码的方式完成这个缺陷的处理，谢谢。
.                                                                                                                                                                                         .
.                                                                                                                                                                                         .

Akon

业务模型\协同系统\个人事务\邮件库

    procedure DoEdit(const AMailID, AMailPath: string; const AReadOnly: Boolean; AReplayHeader: String = '');   overload;
    procedure DoEdit(const AMailID, AMailPath: string; const AReadOnly: Boolean; AReplayHeader: String = ''; ATransmitMailGUID: String);   overload;

//将原来的DoEdit方法注释


procedure TCustomMailEditor.DoEdit(const AMailID, AMailPath: string; const AReadOnly: Boolean; AReplayHeader: String = '');
begin
  DoEdit(AMailID, AMailPath, AReadOnly, AReplayHeader, '');
end;

procedure TCustomMailEditor.DoEdit(const AMailID, AMailPath: string; const AReadOnly: Boolean; AReplayHeader: String = ''; ATransmitMailGUID: String);
var
  I: Integer;
  lMailInfo: TMailViewInfo;
  lForm: TMailEditForm;
begin
  I := FOpenedMails.IndexOf(AMailID);
  if I >= 0 then
    lForm := TMailEditForm(FOpenedMails.Objects[I])
  else
  begin
    LoadMail(AMailID, False);
    lMailInfo := GetMailInfo(AMailID);
    lForm := TMailEditForm.Create(BizSys.GetComponentContext(Self), Self);
    try
      lMailInfo.Data.Position := 0;
      lForm.LoadFromStream(lMailInfo.Data);
      lForm.ReadOnly := lMailInfo.ReadOnly;
      lForm.OnAddressBook := AddressBook;
      lForm.OnGetAccountNames := GetAccountNames;
      lForm.OnGetOperUserInfo := GetOperUserInfo;
      lForm.OnAbout := About;
      lForm.OnClose := FormClose;
      lForm.OnSave := Save;
      lForm.OnNew := OnNewMail;
      lForm.OnSending := Sending;
      lForm.OnSent := Sent;
      lForm.MailGUID := AMailID;
      if ATransmitMailGUID <> '' then
      begin
        lForm.IsTransmitMail := True;
        lForm.TransmitMailGUID := ATransmitMailGUID;
      end;
    except
      lForm.Free;
      raise;
    end;
    FOpenedMails.AddObject(AMailID, lForm);
  end;
  lForm.ReadOnly := AReadOnly;
  lForm.MailPath := AMailPath;
  lForm.Replayheader := AReplayHeader;
  lForm.Show;
  Borland.Delphi.Windows.PostMessage(lForm.Handle, Borland.Delphi.Messages.WM_Activate, 1, 0);
end;




function TCustomMailEditor.TransmitMail(const AMailID, AMailPath: string): string;      
。

。

。  

DoEdit(Result, AMailPath, False, lHeader, AMailID);//将原来的这一句//,改成现在这样
end;







业务模型\协同系统\个人事务\邮件库\邮件编辑窗体
//在原来基础再增加一些变量
  private  

    FIsTransmitMail: Boolean;
    FTransmitMailGUID: string;

  public

    property TransmitMailGUID: String read FTransmitMailGUID write FTransmitMailGUID;
    property IsTransmitMail: Boolean read FIsTransmitMail write FIsTransmitMail;





procedure TMailEditForm.FormCreate(Sender: TObject);
begin
  IsTransmitMail := False;
  TransmitMailGUID := '';//在原来的基础上增加这两段



procedure TMailEditForm.LoadAttachments;
var
  I: Integer;
  lAttachments: TStringList;
  lMessageItem: TMessageItem;
  lMailAttachment: TMailAttachment;
begin
  lAttachments := TStringList.Create;
  lMailAttachment := TMailAttachment.Create;
  try
    msgMail.GetAttachFileNames(lAttachments);
    for I := 0 to lAttachments.count - 1 do
    begin
      lMessageItem := lAttachments.Objects[I] as TMessageItem;
      if (lMessageItem.AttachmentIndex > 0) and (TMessageItemFrind(lMessageItem).Content.Data.Size = 0) then
      begin
        lMailAttachment.Index := lMessageItem.AttachmentIndex;
        if IsTransmitMail then
          MailSystem.LoadMailAttachment(TransmitMailGUID, lMailAttachment)
        else
          MailSystem.LoadMailAttachment(MailGUID, lMailAttachment);
        lMailAttachment.Content.Position := 0;
        TMessageItemFrind(lMessageItem).Content.Data.Size := lMailAttachment.Content.Size;
        TMessageItemFrind(lMessageItem).Content.Data.CopyFrom(lMailAttachment.Content, lMailAttachment.Content.Size);
      end;
    end;
  finally
    lMailAttachment.Free;
    lAttachments.Free;
  end;
end;


虽然这是改源码,但还是要注意备份以前的内容

hero419

编译的时候报出了大量的编译事件：

[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1007, 3): 在'GetMailUsers'方法中的变量 'lPos' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1139, 1): 在'GetOperUserInfo'方法中的参数 'AOperUserID' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1139, 1): 在'GetOperUserInfo'方法中的参数 'AOperUserDisplayName' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1202, 5): 在'Sent'方法中的变量 'lMailInfo' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1345, 5): 在'DoEdit'方法中的变量 'lMailInfo' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1463, 3): 在'ReplyMail'方法中的变量 'lMailInfo' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1479, 5): 在'ReplyMail'方法中的变量 'lMailInfo' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1499, 3): 在'TransmitMail'方法中的变量 'lMailInfo' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1512, 5): 在'TransmitMail'方法中的变量 'lMailInfo' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(1418, 3): 在'LoadMail'方法中的变量 'lMailInfo' 赋值了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3389, 15): 在'GetDefaultMailPath'方法中的变量 'lDisplayName' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3550, 3): 在'AddMailRef'方法中的变量 'lObject' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3552, 19): 在'AddMailRef'方法中的变量 'I' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3537, 20): 在'AddMailInfo'方法中的变量 'I' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3585, 19): 在'DeleteMailRef'方法中的变量 'I' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3572, 20): 在'DeleteMailInfo'方法中的变量 'I' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3514, 19): 在'DoFindMailRef'方法中的变量 'I' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3503, 20): 在'DoFindMailInfo'方法中的变量 'I' 没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2913, 3): 在'FindMailInfo'方法中的变量 'I' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2994, 3): 在'SaveMail'方法中的变量 'lMailAttachments' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2994, 3): 在'SaveMail'方法中的变量 'lMailContent' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2994, 3): 在'SaveMail'方法中的变量 'lMailRef' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2995, 1): 在'SaveMail'方法中的变量 'Result' 没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3057, 3): 在'MoveMail'方法中的变量 'lMailRef' 声明了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3310, 5): 在'MovePath'方法中的变量 'lNewPath' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3628, 3): 在'MailToMsgStream'方法中的变量 'lMailAttachment' 声明了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3714, 3): 在'Send'方法中的变量 'lMailRef' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3726, 18): 在'Send'方法中的变量 'InternalSenders' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3726, 18): 在'Send'方法中的变量 'ExternalSenders' 没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(3896, 3): 在'SentMail'方法中的变量 'lMailRef' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2485, 3): 在'SetStream'方法中的变量 'lArrObject' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2489, 3): 在'SetStream'方法中的变量 'lObject' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2501, 5): 在'SetDataSet'方法中的变量 'lArrObject' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2571, 5): 在'DoLoad'方法中的变量 'lArrObject' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2591, 5): 在'DoSave'方法中的变量 'lArrObject' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2317, 49): 在'PrepareSQLAndMaps'方法中的变量 'lMPRDeleteSQL' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2317, 3): 在'PrepareSQLAndMaps'方法中的变量 'lMPRDeleteSQL' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(2252, 5): 在'PrepareSQLAndMaps'方法中的变量 'lCommand' 赋值了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(4403, 3): 在'MessageToMail'方法中的变量 'lHasAttach' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(4545, 1): 在'getState'方法中的变量 'Result' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(4579, 24): 在'getHints'方法中的变量 'Result' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(4581, 22): 在'getHints'方法中的变量 'Result' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(0, 0): private 方法 'get_Account' 声明了,但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.PAS(0, 0): private 方法 'set_Account' 声明了,但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(2086, 31): 在'actSaveAsAttachmentExecute'方法中的变量 'dir' 没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(1452, 3): 在'GetAttachmentContent'方法中的变量 'I' 声明了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(1453, 3): 在'GetAttachmentContent'方法中的变量 'lListItem' 声明了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(1454, 3): 在'GetAttachmentContent'方法中的变量 'lIcon' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(1510, 3): 在'DoDHTMLEditShowContextMenu'方法中的变量 'pt' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(1092, 35): 在'DoGetMailFrom'方法中的变量 'lOperUserDisplayName' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(1092, 35): 在'DoGetMailFrom'方法中的变量 'lOperUserID' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILEDITFORM.FORM.PAS(414, 15): private 方法 'GetAttachmentContent' 声明了,但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(396, 1): 在'GetColumnByTag'方法中的变量 'Result' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(415, 1): 在'GetDefaultWidthByTag'方法中的变量 'Result' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(434, 1): 在'GetDefaultVisibleByTag'方法中的变量 'Result' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(817, 3): 在'tvMailChange'方法中的变量 'lBox' 声明了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(818, 3): 在'tvMailChange'方法中的变量 'I' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(864, 20): 在'tvMailChange'方法中的变量 'lFolderObject' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(2108, 3): 在'BizFormShow'方法中的变量 'lHeight' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(2108, 3): 在'BizFormShow'方法中的变量 'lWidth' 没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(2644, 17): 在'actFetchExecute'方法中的变量 'lStateValue' 声明了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(2711, 21): 在'actFetchUpdate'方法中的变量 'lState' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(1250, 5): 在'SentMail'方法中的变量 'lFolerObject' 赋值了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(944, 18): 在'SaveMail'方法中的变量 'lOldMailRef' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(945, 34): 在'SaveMail'方法中的变量 'lOldMailRef' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(960, 32): 在'SaveMail'方法中的变量 'lOldMailRef' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(961, 7): 在'SaveMail'方法中的变量 'lOldMailRef' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(994, 28): 在'SaveMail'方法中的变量 'lOldState' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(997, 26): 在'SaveMail'方法中的变量 'lOldState' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(1023, 3): 在'SaveMail'方法中的变量 'lMailPath' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(1024, 3): 在'SaveMail'方法中的变量 'lMailGUID' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(643, 14): 在'InitMailIndexItem'方法中的变量 'lFolderObject' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(643, 57): 在'InitMailIndexItem'方法中的变量 'lFolderObject' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(1392, 7): 在'AddDefaultMailBox'方法中的变量 'lTreeListNode' 赋值了，但没有使用
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(1759, 5): 在'FindTreeListNodeByTreeNode'方法中的变量 'lIndexArrs' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILCENTERFORM.FORM.PAS(1779, 3): 在'FindTreeNodeByTreeListNode'方法中的变量 'lIndexArrs' 没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILMANAGECOLUMNSFORM.FORM.PAS(280, 30): 在'MoveItem'方法中的变量 'lIndex' 可能没有初始化
[警告]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILMANAGECOLUMNSFORM.FORM.PAS(286, 21): 在'MoveItem'方法中的变量 'lDeleteIndex' 可能没有初始化
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILMANAGECOLUMNSFORM.FORM.PAS(122, 5): 在'Assign'方法中的变量 'lMailColumnsList' 赋值了，但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILSENDRECEIVEFORM.FORM.PAS(47, 15): private 方法 'BeforeSend' 声明了,但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILSENDRECEIVEFORM.FORM.PAS(48, 15): private 方法 'AfterSend' 声明了,但没有使用
[提示]Biz:\COLLABORATION\PERSON\MAILLIBRARY.LIBRARY.DIR\MAILSENDRECEIVEFORM.FORM.PAS(103, 14): private 方法 'GetSendMailID' 声明了,但没有使用

Akon

我说给你包,你却说备份麻烦,给你源码,我看了那些错,都是一些变量没定义,应该是你自己写错了,给的代码是没问题的,我这里已经测试了

hero419

其实这个报错，即便是没有做任何修改都是会报错的，在标准的3002的邮件中随便加个空格，然后删除这个空格，点击保存，再编译就立刻会报这些错误了，这些事件不会影响代码的编译，都能编译成功，所以当时我改多附件另存为时也就没怎么注意。

11楼也没有附件丫，重新上传一下吧，是不是只要导入邮件库就可以了，之前备份一下原来的邮件库？导入完成后需要整体编译嘛？
.                                                                                                                                                                                           .
.                                                                                                                                                                                           .

Akon

附件中,导入之前做一下数据库备份.

roice

这个资源包导入后不起作用，转发的邮件附件还是空的。

shangxy

楼主，说一下你的测试方法，还有请您把导入之后，邮件编辑窗体、邮件库的代码贴上来看一下

hero419

我这里的附件在转发的时候的确是有了，但还是有问题，如果邮件中有多个附件，转发时所有的附件大小变成最大的那个附件，例如有两个附件，大小分别为1M和1.5M，转发后两个附件大小都变成1.5M了。
.                                                                                                                                                                                           .
.                                                                                                                                                                                           .