| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TidSMTP. Ошибка: failed to run checks

Alex_Petr ©   (2004-11-16 13:32:00) 

Возникает после события SMTPWorkEnd перед вызовом Disconnect.
Чем может быть вызвана эта ошибка ?

---

Alex_Petr   (2004-11-22 13:06:00) [1]

Кто знает, танец с бубном вокруг компа,
надо устраивать ровно в полночь, или
можно в другое время ?

---

vuk   (2004-11-19 14:25:00) [2]

to Alex_Petr ©   (19.11.04 12:28) [11]:
>А где эту документацию можно посмотрнеть ?
>На mail.ru я ничего не нашел.
Если это mail.ru, то я не знаю. Может быть написать им в службу поддержки?

---

Alex_Petr   (2004-11-19 12:28:00) [3]

>vuk
> "failed to run checks" - это ругань почтовика
Я тоже так думаю.
А где эту документацию можно посмотрнеть ?
На mail.ru я ничего не нашел.

---

Alex_Petr   (2004-11-19 12:22:00) [4]

Извините: это описка.
В программе так:
 if not Connected then

---

vuk   (2004-11-19 11:27:00) [5]

Если не ошибаюсь, то "failed to run checks" - это ругань почтовика, поэтому нужно смотреть документацию по сообщениям об ошибках используемого почтового сервиса.

---

Verg   (2004-11-19 09:49:00) [6]

Дагадаться несложно - ничего никогда отправлено не будет + мемлик.

---

Verg   (2004-11-19 09:47:00) [7]

>   if Connected then>    try
>     Connect;


Ну и что даст эта проверка?

---

Alex_Petr   (2004-11-19 07:42:00) [8]

Сама процедура:
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:='Test';
  From.Text:=sFromAddr;
  Recipients.EMailAddresses:=sTo;
  if LBody<>nil then Body.Text:=LBody.Text;
  if sReplyTo<>'' then ReplyTo.Add.Text:=sReplyTo;
  if FileExists(sAttach) then TIdAttachment.Create(MessageParts,sAttach);
 end;
with Fid_SMTP do
 begin
  ReadTimeout:=60000;
  MailAgent:='TIdSMTP';
  AuthenticationType:=atLogin;
  UserName:=sFromAddr;//Так требуют на mail.ru
  Password:='My Password';
  Host:='smtp.mail.ru';
  if Connected then
   try
    Connect;
    Send(FidMess);
   finally
    if Connected then Disconnect;
    FreeAndNil(FidMess);
    FreeAndNil(Fid_SMTP);
   end;
 end;
end;

---

Alex_Petr   (2004-11-19 07:23:00) [9]

Indy version 9.0
D7
Win XP SP1

---

Erik1   (2004-11-18 10:59:00) [10]

Лог по другому делается, а у тебя спрашивали чтобы выяснить неделаеш ли ты какието ошибки в обработке события и версию Indy скажи, Delphi тоже, OS также незабудь.

---

Alex_Petr   (2004-11-18 00:55:00) [11]

Да ничего я не перехватываю, просто
Log веду. Замучило уже. Главное: не понятно в чем ошибка.

---

Erik1   (2004-11-17 17:04:00) [12]

А зачем тебе событие перехватывать? Попробуй без него.

---

Alex_Petr   (2004-11-17 10:02:00) [13]

Неужели никто с этим не сталкивался ?

---

Наверх