Question

我一直使用ShellExecute使用Windows默认邮件客户端一次生成5或6封电子邮件：

ShellExecute(Self.Handle, nil, Pchar(email), nil, nil, SW_NORMAL);

然后，用户可以决定是否要发送它们。

我遇到的问题是，如果电子邮件正文文本太长，则会在创建的电子邮件中将其截断。我认为这是以这种方式创建电子邮件的限制。

我已经考虑过将生成电子邮件的方式转换为使用MAPI，但我发现的问题是我尝试的所有MAPI例程或组件似乎只允许我一次创建一封电子邮件。然后，最终用户必须在生成下一个之前决定是否要发送它。

是否有解决ShellExecute长度问题的方法，或者是否有办法使用MAPI或其他方式一次性生成一批电子邮件？我想使用默认的Windows电子邮件客户端来消息。

我正在使用Delphi 7。

Answer 1

我使用JclMapi.pas使用MAPI发送电子邮件。我写了一个类，以便于使用TJclEmail类。

发送电子邮件的代码是：

class function TMAPISendMail.Execute(const Name, EmailTo, Subject, Body: string; Attachment: TStrings): boolean;
var
  I: Integer;
  Email: string;
  MAPISendMail: TMAPISendMail;
begin
  MAPISendMail:= TMAPISendMail.Create;
  try
    I:= 1;
    while I > 0 do
    begin
      Email:= TString.Token(EmailTo, ';', I);
      if Email <> '' then
        MAPISendMail.AddRecipient(Email, Name);
    end;
    for I := 0 to Attachment.Count - 1 do
      MAPISendMail.AddAttachment(Attachment[I]);
    MAPISendMail.MailSubject:= Subject;
    MAPISendMail.HTMLBody:= False;
    MAPISendMail.MailBody:= Body;
    Result:= MAPISendMail.SendMail;
  finally
    MAPISendMail.Free;
  end;
end;

类接口是：

 TMAPISendMail = class
  private
    FAJclEmail: TJclEmail;
    FPrerequisites: TPrerequisites;
    FResolveNames: Boolean;
    FShowDialog: Boolean;
    [...]
  protected
    function DoSendMail: Boolean; virtual;
  public
    constructor Create;
    destructor Destroy; override;
    class function Execute(const Name, EmailTo, Subject, Body: string; Attachment: TStrings): boolean; static;
    property MailBody: string read GetMailBody write SetMailBody;
    property HTMLBody: Boolean read GetHTMLBody write SetHTMLBody;
    property ShowDialog: Boolean read FShowDialog write FShowDialog;
    property MailSubject: string read GetMailSubject write SetMailSubject;
    property ResolveNames: Boolean read FResolveNames write FResolveNames;
    property Prerequisites: TPrerequisites read FPrerequisites;
    procedure AddRecipient(const Address: string; const Name: string = '');
    procedure AddAttachment(const FileName: string);
    function SendMail: Boolean;
  end;

希望它对你有用。

也检查此线程：Sending Email with signature

如何同时创建和显示多个任意长度的电子邮件？

1 个答案: