[Bolshserg]

Сообщение от M.A.D.M.A.N.

Все уже сделано за вас.
http://forum.xakep.ru/m_1206365/tm.htm

Посмотрите пожалуйста, что я сделал не так?(использую Delphi 7) >_< Скинул весь исходник

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, ExtCtrls, IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    BitBtn1: TBitBtn;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure SpeedButton1Click(Sender: TObject);
    procedure IdSMTP1Connected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
close
end;

procedure TForm1.IdSMTP1Connected(Sender: TObject);
begin
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1234567890';
IdSMTP1.Password:='1234567890';
IdMessage1.Body.Text:='1234567890';
IdMessage1.From.Text:='1234567890@mail.ru';
IdMessage1.Recipients.EMailAddresses:='1234567890@mail.ru';
IdMessage1.Subject:='Тема';
IdSMTP1.Connect();
IF IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
z:='';

end;

end.