Текущий архив: 2002.10.21;
Скачать: CL | DM;
Вниз
Отправка почты. Найти похожие ветки
← →
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]Неужели никто не сталкивался ?
Страницы: 1 вся ветка
Текущий архив: 2002.10.21;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.016 c
