Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Компоненты для отправки почты [D7]

метеоролог © (2004-02-10 14:54:00)
Подскажите пож-та какими компонентами в 7-ом Delphi пользоваться, чтобы отправить из программы посчитанные файлы.

Delphin (2004-02-14 16:22:00) [1]
procedure TForm1.ConnectExecute(Sender: TObject);
begin
IdSmtp1.Host:=Form2.Edit1.Text; //Хост к которому присоеденяюсь
IdSmtp1.Username:=Form2.Edit2.Text; //Имя пользователя
IdSmtp1.Password:=Form2.Edit3.Text;// пароль (если нужен)
IF Form2.RbCheckBox1.Checked Then
Begin
IF Form2.ComboBox1.Text='None' Then
Idsmtp1.AuthenticationType:=AtNone; // без пароля
IF Form2.ComboBox1.Text='Login' Then
Idsmtp1.AuthenticationType:=AtLogin; // с паролем
End;
Try
IdSmtp1.Connect(); // соеденяюсь с Smtp сервером
Except
End;

procedure TForm1.SendExecute(Sender: TObject);
begin
IF not IdSmtp1.Connected Then
Connect.Execute;
Try
IdMessage1.From.Name:=Edit1.Text; // от кого
IdMessage1.From.Address:=Edit2.Text; // обратный адресс
IdMessage1.Recipients.Add.Address:=+Edit3.Text; // кому
IdMessage1.Subject:=Edit4.Text; // Субьект
IdMessage1.Body.Add(M); // Само сообщение
IdSmtp1.Send(IdMessage1); // отправка письма
Finally
IdMessage1.Clear; // очистка IdMessage
IdSmtp1.Disconnect; // отсоеденение от сервера
End;

Следует учесть, что на форме помимо IdSmtp1 должен присутствовать IdMessage1, также невредно скинуть на форму idAntiFreez
Удачи и с праздником =)

метеоролог (2004-02-10 16:19:00) [2]
Тогда для чего существует конференция, если Вы мне так отвечаете?! По-моему,по вопросу понятно, что книжки нет и купить негде!

Oyster (2004-02-10 15:23:00) [3]
Берем книжку и читаем. Если книжки нет, то идем и покупаем.

метеоролог (2004-02-10 15:13:00) [4]
Спасибо за ответ. Но не могу разобраться в свойствах этих компонент. Где указывать адрес получателя, где указывать имена присоединенных файлов, и адрес отправителя. Помогите, пожалуйста.

8ung (2004-02-10 15:02:00) [5]
IdSMTP,IdNNTP,IdPOP3 все это есть в стандартной поставке Delphi 7

Наверх

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