| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

E-mail [D5, D7, Win2k]

yura ©   (2003-05-20 14:12:00) 

Подскажите какой еквивалент компонента NMSMTP (D5) в D7? Спасибо.

---

yura   (2003-05-20 17:22:00) [1]

Понял, спасибо

---

Reindeer Moss Eater   (2003-05-20 15:46:00) [2]

Эквивалентом компонента TNMSMTP в D7 является он сам (TNMSMTP).
При инсталяции D7 не надо отказываться от пакета NM, а после инсталяции зарегистрировать в палитре bpl, которая по умолчанию не регистрируется инсталятором.

---

Дмитрий К.К.   (2003-05-20 15:12:00) [3]

Indy, ICS.

---

yura   (2003-05-20 15:00:00) [4]

Большое спасибо.

---

gedd   (2003-05-20 14:49:00) [5]

Var
NewMessage:TIdMessage;
begin
NewMessage := TidMessage.Create(nil);
NewMessage.From.Text := "me@here.com"; //from user email
NewMessage.Recipients.Clear;
NewMessage.Recipients.EMailAddresses:="Я@ты.ru"; //ваш email то есть куда слать
NewMessage.Recipients.Add.Text := "здеся впиши текст";
NewMessage.BccList.Clear;
NewMessage.Subject := "Test Email Message";
NewMessage.Body.Clear;
NewMessage.Body.Add("This is a test!!");
if not idSMTP1.Connected then begin
idSMTP1.Host := "smtp.mail.ru"; //здесь smtp server
idSMTP1.Username := "user"; //user on this smtp server
idSMTP1.Password := "password"; //password on this smtp server
idSMTP1.Connect;
end;
idSMTP1.Send(NewMessage);
idSMTP1.Disconnect;
end;

---

gedd   (2003-05-20 14:48:00) [6]

Var
NewMessage:TIdMessage;
begin
NewMessage := TidMessage.Create(nil);
NewMessage.From.Text := "me@here.com"; //from user email
NewMessage.Recipients.Clear;
NewMessage.Recipients.EMailAddresses:="torg@kaus.ru"; //ваш email то есть куда слать
NewMessage.Recipients.Add.Text := "здеся впиши текст";
NewMessage.BccList.Clear;
NewMessage.Subject := "Test Email Message";
NewMessage.Body.Clear;
NewMessage.Body.Add("This is a test!!");
if not idSMTP1.Connected then begin
idSMTP1.Host := "smtp.mail.ru"; //здесь smtp server
idSMTP1.Username := "user"; //user on this smtp server
idSMTP1.Password := "password"; //password on this smtp server
idSMTP1.Connect;
end;
idSMTP1.Send(NewMessage);
idSMTP1.Disconnect;
end;

---

Наверх