Текущий архив: 2006.04.23;
Скачать: CL | DM;

Вниз

Mail   Найти похожие ветки 

← →
Khim ©   (2006-04-05 20:20) [0]

Вопрос такой:
Нужно отправить нескойлько мэйлов за раз. Как осуществить данную затею?
если можно, примерчик
Заранее пасиба!

---

← →
Yegorchic ©   (2006-04-05 20:42) [1]

Осуществить её можно с помощью IdSMTP.

var
 M: TIdMessage;
begin
 M := TIdMessage.Create(Form1);
 M.Body.Add("Текст сообщения");
 M.From.Text := ""Имя" <name@mail.ru>"; //отправитель
 M.Recipients.Add;
 M.Recipients.Items[0].Text := ""Тест" <name2@mail.ru>"; //Получатель
 M.Subject := "Проверка..."; //Тема письма
 IdSMTP1.AuthenticationType:=atLogin;
 IdSMTP1.Host := "smtp.mail.ru";  // SMTP сервер
 IdSMTP1.Username := "name";  // Имя пользователя
 IdSMTP1.Password := "123456789"; // пароль
 IdSMTP1.Connect;
 if IdSMTP1.Connected then
   IdSMTP1.Send(M);
 IdSMTP1.Disconnect;
end;


---

← →
Yegorchic ©   (2006-04-05 20:43) [2]

Думаю, перестроить данный пример для посылки нескольких адресов не составит трудностей.

---

← →
Khim ©   (2006-04-05 20:45) [3]

Пасиба, смогу!

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c