Synapse как отправить с разу два письма

[Gold--lion]

Добрый день или вечер. Пишу программу которая отправляет почту. Хочу сделать чтобы программа отправляла сразу нескольким людям.Я написал программу которая отправляет только по одному письму с помощью библиотеки synapse. Помогите разобраться как отправить нескольким людям сразу.
P.S
Без циклов

[come-on]

Есть bb, cc, через хапятую в адресе. Читайте протокол.

[Gold--lion]

Извините за наглость могли бы дать статью или код программы

[Stilet]

Так нет никакого кода... Ты же адрес получателя задаешь? Вот там в той строке через запятую получателей перечисли.

Синапса.Recipient:='v@v.com, qq@haha.ru'

И так далее. Ну? Понял?

[Gold--lion]

звените пожалуйста но не понял((((
вот процедура отправки на почту

Procedure SendMail (Host, Subject, pTo, From , TextBody, HTMLBody, login,password : string);
var Msg : TMimeMess; //собщение
    StringList : TStringList; //содержимое письма
    MIMEPart : TMimePart; //части сообщения (на будущее)
begin
  Msg := TMimeMess.Create; //создаем новое сообщение
  StringList := TStringList.Create;
  try
// Добавляем заголовки
    Msg.Header.Subject := Subject;//тема сообщения
    Msg.Header.From := From; //имя и адрес отправителя
    Msg.Header.ToList.Add(pTo); //имя и адрес получателя
// создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart('alternative', nil);
    if length(TextBody)>0 then
      begin
        StringList.Text := TextBody;
        Msg.AddPartText(StringList, MIMEPart);
      end
    else
      begin
        StringList.Text := HTMLBody;
        Msg.AddPartHTML(StringList, MIMEPart);
      end;
// Кодируем и отправляем
    Msg.EncodeMessage;
    smtpsend.SendToRaw(From, pTo, Host, Msg.Lines, login, password);
 finally
   Msg.Free;
   StringList.Free;
 end;
end;

[W0LF]

В pTo и перечисляй адресатов.

SendMail('host.com','Тема письма','admin@mail.ru,support@mail.ru,katya@mail.ru', 'me@i.ru', 'Текст письма', 'html', 'логин', 'пароль');

+++

Хотя там

Msg.Header.ToList.Add(pTo);

Тогда добавляй в ToList построчно своих адресатов.

[Gold--lion]

что то даже одно письмо не могу отправить((((
что то я на творил в коде

[Stilet]

звените пожалуйста

Динь-дилинь...
Безымянный.jpg

Procedure SendMail (Host, Subject, pTo, From , TextBody, HTMLBody, login,password : string);
var Msg : TMimeMess; //собщение
    StringList : TStringList; //содержимое письма
    MIMEPart : TMimePart; //части сообщения (на будущее)
    i:integer;
begin
  Msg := TMimeMess.Create; //создаем новое сообщение
  StringList := TStringList.Create;
  try
// Добавляем заголовки
    Msg.Header.Subject := Subject;//тема сообщения
    Msg.Header.From := From; //имя и адрес отправителя
    With TStringList.Create do begin
     Delimiter:=','; DelimitedText:=pTo;
     for i:=0 to Count-1 do  Msg.Header.ToList.Add(Strings[i]); //имя и адрес получателя
     free;
    end;
// создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart('alternative', nil);
    if length(TextBody)>0 then
      begin
        StringList.Text := TextBody;
        Msg.AddPartText(StringList, MIMEPart);
      end
    else
      begin
        StringList.Text := HTMLBody;
        Msg.AddPartHTML(StringList, MIMEPart);
      end;
// Кодируем и отправляем
    Msg.EncodeMessage;
    smtpsend.SendToRaw(From, pTo, Host, Msg.Lines, login, password);
 finally
   Msg.Free;
   StringList.Free;
 end;
end;

Тепрерь можешь перечислять через запятую адреса в параметре pTo