Здравствуйте у меня возникла проблема я отправляю сообщения через SMTP при помощи данного кода:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.AuthType:=satDefault;
IdSMTP1.Username:=sEdit1.Text;
IdSMTP1.Password:=sEdit2.Text;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=587;
IdMessage1.CharSet:='windows-1251';
IdMessage1.ContentType:='text/plain';
IdMessage1.Body.Add('Текст');
IdMessage1.Subject:=('Тема');
IdMessage1.From.Address:=sEdit1.Text+'@mail.ru';
IdMessage1.Recipients.EMailAddresses:='killerkills@mail.ru';
IdMessage1.IsEncoded:=true;
try
IdSMTP1.Connect();
IdSMTP1.Send(IdMessage1);
showmessage('Сообщение отправлено');
except
showmessage('Ошибка при отправке сообщения');
end;
IdSMTP1.Disconnect;
end;
Все сообщения отправляются да,но есть одна проблема после первой отправки я ввожу новую почту и пароль в edit1 и edit2 нажимаю отослать сообщение пишет сообщение отослано иду на почту,а там опять письмо от первого почтового адресса который я использовал.... Вот что приходит на почту
http://i.imgur.com/I4Lihje.png не подскажите как обнулять данные SMTP после отправки сообщения?