Code: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit2: TEdit; Label4: TLabel; Edit3: TEdit; Edit5: TEdit; Label5: TLabel; Label7: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Label6: TLabel; Label8: TLabel; Label9: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin end; end. что то типа того, вот тут я не силен совсем. надо отправить все поля Edit при нажатие кнопки баттон1 клик как это сделать
через Indy -компоненты можно. Вот пример wm-help.net/articles/article/03.03.20069183-30.html p.s. use gooooooogle
Code: var Msg: TIdMessage; begin Msg.Subject:='тема сообщения'; Msg.Recipients.EMailAddresses:='[email protected]'; Msg.From.Adress:='[email protected]'; //автор письма Msg.Body.Text:=edit1.text+edit2.text; Msg.Date:=StrToDate('01.12.2004');//дата отправки письма может быть любой end; IdSMTP1.Port:=25; IdSMTP1.Host := 'smtp.mail.ru'; IdSMTP1.Connect(5000); IdSMTP1.AuthenticationType:=atLogin; IdSMTP1.Username:='test'; IdSMTP1.Password:='test'; if Connected=True then IdSMTP1.Send(Msg);