Отправка почты.

← →
andrey_pst © (2002-10-10 14:46) [0]

Отправляю почту с помощью компонента NMSMTP.

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;

procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
Memo1.Lines.Add("connect");
end;

procedure TForm1.NMSMTP1Disconnect(Sender: TObject);
begin
Memo1.Lines.Add("disconnect");
end;

Почему-то в Memo1 я получаю два дисконнекта:
connect
disconnect
disconnect

← →
andrey_pst © (2002-10-10 15:27) [1]

Неужели никто не сталкивался ?

Отправка почты. Найти похожие ветки