Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Мережі";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Пошта Знайти схожі гілки


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

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


procedure TForm1.Button1Click (Sender: TObject);
починати
NMPOP31.UserID:="My_Login";
NMPOP31.Password:="My_Passwd";
NMPOP31.Host:="pop.yandex.ru";
NMPOP31.Connect;
end;

procedure TForm1.NMPOP31Connect(Sender: TObject);
починати
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 вся гілка

Форум: "Мережі";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.026 c
1-74784
Sergy
2002-12-11 10:27
2002.12.23
Як правильно визначити, чи відкрито вже така форма?


1-74815
Че
2002-12-11 15:25
2002.12.23
Memo !!!!!!


1-74807
TTCustomDelphiMaster
2002-12-11 15:16
2002.12.23
TAction то працює, то ні.


3-74618
@Ujin
2002-12-05 13:11
2002.12.23
Чому в Access-е працює, а через ADO немає?


1-74833
небезпека
2002-12-11 23:38
2002.12.23
Як згенерувати 14-значне цеоліт число





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська