Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2015, 15:54   #1
Gold--lion
 
Регистрация: 11.10.2012
Сообщений: 4
По умолчанию Synapse как отправить с разу два письма

Добрый день или вечер. Пишу программу которая отправляет почту. Хочу сделать чтобы программа отправляла сразу нескольким людям.Я написал программу которая отправляет только по одному письму с помощью библиотеки synapse. Помогите разобраться как отправить нескольким людям сразу.
P.S
Без циклов
Gold--lion вне форума Ответить с цитированием
Старый 30.11.2015, 15:57   #2
come-on
Участник клуба
 
Регистрация: 21.10.2015
Сообщений: 1,361
По умолчанию

Есть bb, cc, через хапятую в адресе. Читайте протокол.
come-on вне форума Ответить с цитированием
Старый 30.11.2015, 17:04   #3
Gold--lion
 
Регистрация: 11.10.2012
Сообщений: 4
По умолчанию

Извините за наглость могли бы дать статью или код программы
Gold--lion вне форума Ответить с цитированием
Старый 30.11.2015, 17:53   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Так нет никакого кода... Ты же адрес получателя задаешь? Вот там в той строке через запятую получателей перечисли.
Код:
Синапса.Recipient:='v@v.com, qq@haha.ru'
И так далее. Ну? Понял?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 30.11.2015, 18:27   #5
Gold--lion
 
Регистрация: 11.10.2012
Сообщений: 4
По умолчанию

звените пожалуйста но не понял((((
вот процедура отправки на почту
Код:
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;
Gold--lion вне форума Ответить с цитированием
Старый 30.11.2015, 18:42   #6
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

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

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

Хотя там
Код:
Msg.Header.ToList.Add(pTo);
Тогда добавляй в ToList построчно своих адресатов.
W0LF вне форума Ответить с цитированием
Старый 30.11.2015, 21:16   #7
Gold--lion
 
Регистрация: 11.10.2012
Сообщений: 4
По умолчанию

что то даже одно письмо не могу отправить((((
что то я на творил в коде
Gold--lion вне форума Ответить с цитированием
Старый 30.11.2015, 21:32   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
звените пожалуйста
Динь-дилинь...
Безымянный.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
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка письма Synapse hapera2 Работа с сетью в Delphi 1 17.08.2015 23:48
Как отправить гиперссылку в теле письма lioon Microsoft Office Excel 2 23.07.2014 07:43
UDP клиент на Synapse. Как? Человек_Борща Работа с сетью в Delphi 1 04.09.2012 20:32
synapse кодировка(?) письма jskorvin Работа с сетью в Delphi 0 03.01.2011 16:29
Ответ записовался с разу в несколько ячиеек. il_il Microsoft Office Excel 17 11.09.2009 11:44