4

拜托，我正在尝试解决这个“问题”超过 12 个小时......几乎快疯了！我认为使用 Delphi 和 Synapse ( http://synapse.ararat.cz )一次为多个收件人（目的地）发送相同的电子邮件是不可能的。请有人告诉我我错了:)

好吧，我有一个 sEmail 变量，我在其中获取用分号 (;) 分隔的电子邮件，就像这样：

sEmails := 'email1@test.com.br;email2@teste.com.br';

这是我正在使用的代码：

dSMTP := TSMTPSend.Create;
dSMsg := TMimeMess.Create;
Try 
  With dSMsg, Header Do
  Begin 
    Date := Now;
    Priority := mp_Normal;
    CharsetCode := ISO_8859_1;
    From := 'email@gmail.com';
    ToList.Delimiter := ';';
    ToList.DelimitedText := sEmails;
    Subject := 'Message Subject';
    dPart := AddPartMultipart('mixed', nil);
    AddPartHTML('<h1>Message Text</h1>', dPart);
    EncodeMessage;
  end;
  With dSMTP Do
  Begin
    TargetHost := 'smtp.gmail.com';
    TargetPort := '587';
    AutoTLS := True;
    UserName := 'email@gmail.com';
    Password := 'password';
    Try
      If Login Then
      Begin
        If MailFrom('email@gmail.com', Length('email@gmail.com')) Then
          If MailTo(sEmails) Then MailData(dSMsg.Lines);
        Logout;
      end;
    Except
      On E: Exception Do ShowMessage(E.Message);
    end;
  end;
Finally
  dSMsg.Free;
  dSMTP.Free;
end;

我已经尝试过这样的：

If Login Then
Begin
  If MailFrom('email@gmail.com', Length('email@gmail.com')) Then
    If MailTo(dSMsg.Header.ToList[0]) Then MailData(dSMsg.Lines);
  Logout;
end;

...但随后仅发送了第一封电子邮件:(即使将其余电子邮件添加到 Header.CCList 中。

在另一个测试中，我尝试将点分号更改为逗号（，），但问题相同......

拜托，拜托，有人能告诉我我做错了什么吗？

谢谢！

4

2 回答 2

4

根据以下文档SendTo：

将“Maildata”（没有任何 SMTP 标头的电子邮件文本！）从“MailFrom”电子邮件地址发送到带有“Subject”的“MailTo”电子邮件地址。（如果您需要不止一个接收器，则用逗号分隔它们的地址）。

所以这样的事情应该可以工作（但见下文，因为它显然没有）：

sEMails := 'joe@gmail.com,fred@gmail.com,mary@gmail.com';
....

if MailTo(sEMails) then 
  MailData(dSMsg.Lines);

似乎没有办法在SMTPSend组件中正确设置多个电子邮件地址。您必须单独发送每个。但是，您可以比自己解析地址更容易，因为您已经dSMsg.Header.ToList在代码的前面添加了它们：

// Declare i as an integer variable, and post all the send to addresses
// one at a time to the MailTo() function
for i := 0 to dSMsg.Header.ToList.Count - 1 do
   MailTo(dMsg.Header.ToList[i]);

// Now send the mail body
MailData(dSMsg.Lines)

IMO，Synapse SMTP 支持级别太低而无法轻松使用，除非您出于某种原因特别需要该低级别支持。Indy（预装了 Delphi）和ICS都提供了更简单的实现SMTP，都支持文本和 HTML 电子邮件以及 MIME 编码附件，并且都支持使用 gmail 所需的 TLS。

于 2013-03-24T21:51:30.027 回答
0

这是我如何发送给多个收件人的代码示例。首先，您需要设置您的 TMimeMess（本例中为 var Mime）。

uses
  mimemess, smtpsend, mimepart, synautil; //not sure if this list is complete

var 
  SMTP: TSMTPSend;
  s, t: string;
  Mime: TMimeMess;

...

{ log in to SMTP server }
if SMTP.Login then
begin
  { set sender address and total send size }
  if SMTP.MailFrom(synautil.GetEmailAddr({your from address}), 
    Length(Mime.Lines.Text)) then
  begin
    s := {your comma separated e-mail string};

    { add all recipient addresses }
    repeat
      { split addresses by comma and send to each }
      t := synautil.GetEmailAddr(Trim(FetchEx(s, ',', '"')));
      if (t <> '') then
        Result := SMTP.MailTo(t);

      if not Result then
      begin
        //handle failure if necessary here

        Break;
      end;
    until s = '';

    { now send e-mail content }
    if Result then
      Result := SMTP.MailData(Mime.Lines);
  end;

  { and log out }
  SMTP.Logout;
于 2013-03-25T14:39:26.293 回答