Скачать: CL | DM;

Непонятки с отправкой почты Indy9   Найти похожие ветки 

← →
Logan ©   (2005-10-07 21:51) [0]

Если я введу xxx.mail.ru, то письмо приходит, а если xxx.narod.ru, то письмо не приходит... в чём может быть дело???
procedure TForm3.RzBitBtn1Click(Sender: TObject);
 begin
      try
            IdMessage1.Recipients.EMailAddresses := IdMessage1.From.Address;
            IdMessage1.From.Address := edit1.Text;//емаил
            IdMessage1.Body.Text := Mainform.RichEdit1.Lines.Text;//текст
            IdMessage1.Subject := edit1.Text;//тема
            IdSMTP1.AuthenticationType := atNone;
            IdSMTP1.Host := "smtp.mail.ru";
            IdSMTP1.Port :=25;
            IdSMTP1.Connect;
            Application.ProcessMessages;
             try
              IdSMTP1.Send(IdMessage1);
             finally
              IdSMTP1.Disconnect;
              IdMessage1.MessageParts.Clear;
            end;
          except
          end;
        end;


---

← →
Eraser ©   (2005-10-08 01:50) [1]

> Logan ©   (07.10.05 21:51)

Очевидно в xxx.narod.ru.

---

← →
Logan ©   (2005-10-08 14:52) [2]

А как сделать чтобы можно было письма отправлять на любой ящик???

---

← →
KLAUS ©   (2005-10-08 18:39) [3]

> а если xxx.narod.ru, то письмо не приходит... в чём может
> быть дело???

У тебя сервер стоит smtp.mail.ru (IdSMTP1.Host := "smtp.mail.ru";);
Два способа, создай Edit и туда вводи необходимый сервер  типа
IdSMTP1.Host:=Edit1.text;
Ну или иди:
http://podgoretsky.com/ftp/Docs/Internet/Semenov/4/44/dns_4412.htm
http://forum.vingrad.ru/index.php?showtopic=49623&view=all

---

← →
Logan ©   (2005-10-15 15:08) [4]

KLAUS ©   (08.10.05 18:39) [3]
Спасибо за ссылочки!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c