Отправить письмо, чтобы пользователь об этом не знал (D7)Delphi , Интернет и Сети , E-mailОтправить письмо, чтобы пользователь об этом не знал (D7)Автор: Прокопец Антон // Кинуть на форму компонент IdSMTP1 ... uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress; ... procedure TForm1.Button1Click(Sender: TObject); var M: TIdMessage; begin M := TIdMessage.Create(Form1); M.Body.Add('Типа первая строчка собщения'); M.Body.Add('Типа вторая строчка собщения'); M.From.Text := '"Рустик" <boris@uacity.com>'; //отправитель M.Recipients.Add; M.Recipients.Items[0].Text := '"Тест" <antohha@ukr.net>'; //Получатель M.Subject := 'Ну чо? потестим? =)'; //Тема письма IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'uacity.com'; IdSMTP1.Username := 'boris'; IdSMTP1.Password := '1234'; // - ну свой пароль я те не выдам :-Р IdSMTP1.Connect(); if IdSMTP1.Connected then begin IdSMTP1.Send(M); end; IdSMTP1.Disconnect; end; Статья Отправить письмо, чтобы пользователь об этом не знал (D7) раздела Интернет и Сети E-mail может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |