Скачать: CL | DM;

e-mail   Найти похожие ветки 

← →
Mozart ©   (2006-03-09 04:54) [0]

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

---

← →
antonn ©   (2006-03-09 05:10) [1]

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) [2]

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

---

← →
Mozart ©   (2006-03-09 05:28) [3]

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

---

← →
antonn ©   (2006-03-09 06:14) [4]

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

---

← →
Ega23 ©   (2006-03-09 09:20) [5]

uses ShellAPI

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

:о)

---

← →
VinRaider-Vlad   (2006-03-13 14:17) [6]

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

---

← →
Ega23 ©   (2006-03-13 14:34) [7]

> IdSMTP


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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.042 c