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

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

e-mail [D7, XP]

Mozart ©   (2006-03-09 04:54:00) 

подскажите, как отправить mail из програмки? Какой компонент в Delphi это позволяет?

---

Ega23   (2006-03-13 14:34:00) [1]

> IdSMTP


Они, вроде, только начиная с D6 появились.

---

VinRaider-Vlad   (2006-03-13 14:17:00) [2]

Добрый день.
Я тут прочитал у вас класную вещь, но у меня D5, можете мне выслать компоненту "IdSMTP", а?
Мое мыло: v-l-a-d-a-v-l-a-d@rambler.ru
Заранее спасибо.

---

Ega23   (2006-03-09 09:20:00) [3]

uses ShellAPI

ShellExecute(.... 'mailto skdjfh@lknsdg.org', ...)

:о)

---

antonn   (2006-03-09 06:14:00) [4]

Mozart ©   (09.03.06 5:28) [3]
а это хендл окна 8)
ну подставь Form1

---

Mozart   (2006-03-09 05:28:00) [5]

M:=TIdMessage.Create(FormAllRecords);
//а что такое FormAllRecords ?

---

antonn   (2006-03-09 05:10:00) [6]

indy. вот и проета выдернул:

var M:TIdMessage; i:integer;
begin
M:=TIdMessage.Create(FormAllRecords);
try
 M.Body.AddStrings(Memo.lines); //ну это текст письма закидывал

 M.From.Text:='<'+Esour.Text+'>'; //от кого
 M.Recipients.Add;
 M.Recipients.Items[0].Text:= '<'+Edest.Text+'>'; //кому
 M.Subject:='mail_send'; //тема

 IdSMTP1.AuthenticationType:=atLogin;
 IdSMTP1.Host:=Ehost.text; //хост
 IdSMTP1.Username:=Euser.Text; //пользователь
 IdSMTP1.Password:=Epass.Text; //его пароль
 IdSMTP1.Connect();
 if IdSMTP1.Connected then
 begin
   IdSMTP1.Send(M);
 end;
 IdSMTP1.Disconnect;
finally
 m.Free;
end;

---

antonn   (2006-03-09 05:10:00) [7]

uses idMessage, IdEMailAddress; //это к TIdMessage

---

Наверх