如何使用Delphi和Synapse一次为多个收件人发送电子邮件？

拜托,我现在试图解决这个“问题”超过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中添加其余的电子邮件.

在另一个测试中,我尝试用逗号(,)更改点分号,同样的问题……

拜托,拜托,有人能说出我做错了吗？

谢谢！

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

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

// 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)