Конференция "Сети" » Проблема SMTP Mail.ru Spammer [D3]
 
  • Nisaska © (13.05.14 21:29) [0]
    Здравствуйте у меня возникла проблема я отправляю сообщения через 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; //Порт (25 - по умолчанию)
     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'; //Кому отправить письмо (можно через запятую если несколько e-mail'ов)
     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 после отправки сообщения?
  • Anatoly Podgoretsky © (17.05.14 13:18) [1]
    У тебя указана неверная кодировка, или другая проблема с ней
 
Конференция "Сети" » Проблема SMTP Mail.ru Spammer [D3]
Есть новые Нет новых   [118487   +56][b:0][p:0.001]