Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.26;
Скачать: 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 вся ветка

Текущий архив: 2006.03.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.036 c
3-1138965519
DiGer
2006-02-03 14:18
2006.03.26
бд


15-1141472956
ipashkov
2006-03-04 14:49
2006.03.26
Глюки с Delphi IDE под Windows Server 2003


15-1141200545
Huk
2006-03-01 11:09
2006.03.26
Пропадает окно Watch View в Delphi 7


1-1140450313
Slaga
2006-02-20 18:45
2006.03.26
Прорисовка одной строки в ListBox e


9-1127015559
bulanov
2005-09-18 07:52
2006.03.26
Завершение загрузки текстур (GLScene)