Текущий архив: 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.032 c
