мне там ошибку видает:(
вот текст кода
unit parol;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient, IdSNMP, IdTCPConnection, IdTCPClient, IdMessageClient,
IdSMTP, ComCtrls;
type
TForm1 = class(TForm)
IdMessage1: TIdMessage;
Edit1: TEdit;
Button1: TButton;
IdSMTP1: TIdSMTP;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
StaticText7: TStaticText;
StaticText8: TStaticText;
StaticText9: TStaticText;
StaticText10: TStaticText;
StaticText11: TStaticText;
StaticText12: TStaticText;
StaticText13: TStaticText;
StaticText14: TStaticText;
StaticText15: TStaticText;
TrackBar1: TTrackBar;
Label1: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=2525;
IdSMTP1.Username:='з якого мейла слати@mail.ru';
IdSMTP1.Password:='пассворд до нього';
IdSMTP1.AuthenticationType:=atLogin;
with IdMessage1 do /\////\/\\\\\\\\\\\\\\\\\\а вот тут ошибку видает
begin
Body.Text:=Edit1.Text;
From.Text :='з якого мейла слати@mail.ru';
Recipients.EMailAddresses :='одержувач@mail.ru';
Subject :='тема письма';
end;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;
end.
_________________ в рот мне ноги
не пю с малой посуди
|