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

Почта   Найти похожие ветки 

← →
evgeniy1 ©   (2002-10-26 03:30) [0]

Привет всем. Подскажите что я делаю не правильно или недоделываю.
Проблема следуйщая: хочу через randex.ru или rambler.ru отправлять по SMTP
письма. У них натисано, что для авторизации нужно зайти POP"ой запросить сведенья о письмах
после чего можно отправлять SMTP.
Пишу следующее пользуясь компонентами FastNet:


procedure TForm1.Button1Click(Sender: TObject);
begin
NMPOP31.UserID:="My_Login";
NMPOP31.Password:="My_Passwd";
NMPOP31.Host:="pop.yandex.ru";
NMPOP31.Connect;
end;

procedure TForm1.NMPOP31Connect(Sender: TObject);
begin
label6.Caption:="connect pop3, try to connect smtp";
label5.Caption:=inttostr(nmpop31.MailCount); /получаю ко-во писем в ящике
NMSMT:=TNMSMTP.Create(self);
NMSMT.PostMessage.FromAddress:=edit1.Text; //my_email@yandex.ru
NMSMT.PostMessage.FromName:=edit3.Text; //my_name
NMSMT.Host:=edit2.Text; // smtp.yandex.ru
NMSMT.PostMessage.ToAddress.Add(edit4.Text); //any_way@zaural.ru
NMSMT.PostMessage.ToBlindCarbonCopy.Add("");
NMSMT.PostMessage.Body.AddStrings(memo1.Lines); //body_message
NMSMT.PostMessage.Subject:="Test Program";
//NMSMT.PostMessage.LocalProgram:="what is whis???";// подсматрел и не знаю зачем это
NMSMT.Port:=25;
NMSMT.UserID:="my_login";
NMSMT.Connect;
end;

Pop"ой заходит и даже показывает ко-во писем в ящике , но при попытке
зайти SMTP выдает ошибку ESocketError 10051 :(

Если попытатся сделать этоже InDy компонентами, то даже иногда при попытке зайти pop"ой
выдеется ошибка EIdSocketError 10053 , а SMTP всегда такое выдает :((
Кто нибудь знает почему?
C уважением и заранее благодарен. Евгений.

---

← →
Алексей Ким ©   (2002-10-26 13:43) [1]

pop-receive
smtp-send

---

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

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



Память: 0.45 MB
Время: 0.017 c