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]

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

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

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