Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Chaser: Помогите! Не работает отправка е-mail на Delphi [D7, WinXP]

Страницы: < 1 2 3
Chaser © (2004-11-25 12:49:00)
Добрый день!

Вопрос по отправке почты, не работает
Код:

procedure TForm3.Button1Click(Sender: TObject);
var
i: integer;
begin
idMessage1.Recipients.EMailAddresses:=Edit1.Text; // получатель
idMessage1.From.Text:=Edit2.Text; // отправитель
idMessage1.From.Address:=Edit2.Text; // адрес отправителя
idMessage1.Subject:=Edit3.Text; // тема
for i:=0 to Memo1.Lines.Count-1 do // текст сообщения
idMessage1.Body.Text:=Memo1.Text;
//
idSmtp1.AuthenticationType:=atNone;
idSmtp1.Host:='smtp.mail.ru';
idSmtp1.Port:=25;
IdSMTP1.Username:='*******';
IdSMTP1.Password:='*******';
IdSMTP1.Connect(1000);
if IdSMTP1.Connected
then
begin
IdSMTP1.Send(idMessage1);
ShowMessage('Письмо отправлено!');
end
else ShowMessage('Письмо не отправлено!');
idSmtp1.Disconnect;
end;

При отправке выдается ошибка: "failed to run cheks, message rejected".

Подскажите плиз в чем проблема.

Alexander Panov (2004-11-26 22:09:00) [41]
Verg © (26.11.04 21:57) [7]

Андрей, меня интересует вот эта строка
ReadTimeout:=60000;

В D6 в IdSMTP нет такого свойства, у тебя, наверное, компоненты Indy9 установлены?

Verg (2004-11-26 21:57:00) [42]
"Здравствуйте, andruk.

Вы писали 26 ноября 2004 г., 21:37:05:

amr> Verg's mail without authorization via smtp.mail.ru

amr> Это я к "проверь сам".

Очень странно-)
Я вчера с полчаса бился, пытался пример из D6 для Indy заставить
сработать с mail.ru - ни в какую.

Если тебе несложно, привел бы пример в форуме?
-- "

Вот код. Чистый, взятый из последих "плачей Ярославны" на этом форуме:

procedure Indy_SendMail(const sSubj,sTo,sFromAddr,sReplyTo,sAttach:string;LBody:TStrings);
var
FidMess:TidMessage;
Fid_SMTP:TidSMTP;
begin
try
Fid_SMTP:=TIdSMTP.Create(Application.MainForm);
FidMess:=TIdMessage.Create(Fid_SMTP);
except
if Fid_SMTP<>nil then FreeAndNil(Fid_SMTP);
end;
with FidMess do
begin
Subject:='Тест';
From.Text:=sFromAddr;
Recipients.EMailAddresses:=sTo;
if LBody<>nil then Body.Text:=LBody.Text;
if sReplyTo<>'' then ReplyTo.EMailAddresses:=sReplyTo;
if FileExists(sAttach) then TIdAttachment.Create(MessageParts,sAttach);
end;
with Fid_SMTP do
begin
ReadTimeout:=60000;
Host:='smtp.mail.ru';
if not Connected then
try
Connect;
Send(FidMess);
finally
if Connected then Disconnect;
FreeAndNil(FidMess);
FreeAndNil(Fid_SMTP);
end;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Indy_SendMail('Test', 'panov@mail.ru', 'andruk@mail.ru', 'andruk@mail.ru', '', Memo1.Lines);
end;

Содержимое Memo1.Lines г-н Panov знает не хуже, чем я.

Alexander Panov (2004-11-26 12:37:00) [43]
Verg © (25.11.04 22:08) [5]
smtp.mail.ru НЕ требует никакой авторизации при отправке.

Ты ошибаешься. Проверь сам.

Verg (2004-11-25 22:08:00) [44]

> IdSMTP1.Username:='*******';
> IdSMTP1.Password:='*******';

Какой Username, Какой Password?!
smtp.mail.ru НЕ требует никакой авторизации при отправке. И все прекрасно работает.
Вот при получении (pop3) - требует, конечно, иначе любой баклан мог бы читать вашу бесценную почту.

Ты лучше скажи - чему равно поле From у IdMesasage при отправке. Назови точно - что после @

OneFragLeft (2004-11-25 21:46:00) [45]
Значит через другие почтовые серверы можно посылать?

Serega (2004-11-25 19:53:00) [46]
Problemma "failed to run cheks" vosnikla paru mesazeva nasad, do etovo vse bilo "Puchkom"....!!!!
Stal sperva kosit na Autentifikazuju:
idSmtp1.AuthenticationType:=atLogin; - toest pri logine, rugaetsa na username i password(cheres WEb sahoschu - vse normalno)

Dumaju eto pogreschnost pratakola smtp(scheres pop idet bes problem) immeno na mail.ru.....!!!!

Scheise....!!!!

Alex_Petr (2004-11-25 16:08:00) [47]
Я столкнулся с этой проблемой.
Сделай поиск на этом форуме по "failed to run cheks".
Только решения, лучше чем танец с бубном, пока нет.

seeker (2004-11-25 15:14:00) [48]
for i:=0 to Memo1.Lines.Count-1 do // текст сообщения
idMessage1.Body.Text:=Memo1.Text;
а зачем сдесь цикл?

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »