【搞定】Email问题**

SMP

邮件主窗体中看“FMailEditor”的调用，这里有OnSave,OnSent,OnSending等的几个事件，OnSave就是在邮件编辑界面，点保存按键的时候触发的，其它的也是类似，但邮件的保存代码是实现在脚本里的，在“邮件存储模块”这个文件中，按照这个原理，楼主只需把发送邮件和保存邮件几个地儿拦下来，判断一下邮件的大小，如果超过限制就提示或异常应该就可以满足需求了!

liubin

那代码是写在主窗体中FMailEditor”的调用，这里有OnSave,OnSent,OnSending等的几个事件里还是写在邮件存储模块的里？来判断邮件的大小

SMP

那代码是写在主窗体中FMailEditor”的调用，这里有OnSave,OnSent,OnSending等的几个事件里还是写在邮件存储模块的里？来判断邮件的大小---
----上面这句看了半天也没看明白只好猜了，意思应该是不知道代码应该写在什么地方吧？
其实代码写在哪个单元里都无所谓的，只要发邮件及保存时能调用到判断就行了，为什么说发邮件及保存时两个时机呢？原因是可能写完后直接发送的，也可能是写完后先保存了一下再发送的，(保存和发送)这两个过程不一定谁先发生所以都要判断!


这样说应该很明白了啊!

另外就是还有一种极端的方式，可以改邮件包中的代码在增加附件时判断邮件大小，大于指定值时，就不让它再增加附件了也是可以的!

liubin

另外就是还有一种极端的方式，可以改邮件包中的代码在增加附件时判断邮件大小，大于指定值时，就不让它再增加附件了也是可以的

请问是否是在图片的按钮的点击事件里，如果是请问点击事件的代码在哪

liubin

顶下，等了一天了

liubin

再顶，又等了一天

atiger

Sorry,没有看到，已经提交处理了，稍后跟贴告知

SMP

就是这个按钮下面啊!看它触发了什么，打开MailEditor.Pas文件(在邮件源代码的包中)，双击进去就可以看到(actNewAttachmentExecute过程中的)如下代码，在这里面想办法改就行了!!
var
  I: Integer;
  lOpenDialog: TMailOpenDialog;
begin
  lOpenDialog := TMailOpenDialog.Create(Self);
  try
    lOpenDialog.Filter := '所有文件(*.*)|*.*';
    lOpenDialog.Options := lOpenDialog.Options + [ofAllowMultiSelect, ofFileMustExist];
    if lOpenDialog.Execute then
    begin
      for I := 0 to lOpenDialog.Files.Count - 1 do
        msgMail.AddAttachment(lOpenDialog.Files[I]);
      SetModified;
      RefreshAttachs;
    end;
    BringWindowToTop(Handle);
   
    // todo 以下两个过程，解决98下不能刷新的问题。
    if Assigned(FTextEdit) then
      FTextEdit.Refresh;
    if Assigned(FDHTMLEdit) then
      FDHTMLEdit.Refresh;
  finally
    lOpenDialog.Free;
  end;

liubin

我现在连24楼的窗体都没找到，请问在哪

atiger

不在平台上，在给你们的邮件包上，就是给高经理的那个底层代码里