Работа с почтой в Delphi

  • Автор темы ExTeC
  • Дата начала
Статус
Закрыто для дальнейших ответов.
E

ExTeC

#1
Код
Код:
var DateTime: TDateTime;
 i: integer;
begin
if SMTP.Connected then SMTP.Disconnect;
SMTP.Host := Edit2.Text;
SMTP.Port := StrToInt(Edit4.Text);
SMTP.UserName := Edit6.Text;
SMTP.Password := Edit8.Text;
IdMsgSend.Body.Assign(Memo2.Lines);
IdMsgSend.From.Name := LabeledEdit5.Text;
IdMsgSend.From.Address := LabeledEdit6.Text;
IdMsgSend.Sender.Address := LabeledEdit7.Text;
IdMsgSend.Subject := LabeledEdit8.Text;
DateTime := GetTime;
IdMsgSend.Date := DateTime;
SMTP.Connect;
if StrToInt(Edit9.Text) >= 0 then
begin
 for i := 1 to StrToInt(Edit9.Text) do
 begin
  SMTP.Send(IdMsgSend);
 end;
end;
SMTP.Disconnect;
end;
Пишет ошибку
valid RCPT command must precede DATA
P. S. Дельфя 7...
 

admin

Well-known member
08.08.2003
2 754
0
#4
ExTeC
т.е. по коду компилятори ничего не выдает?
потому как если нет, то странно. обычно ошибка бывается в месте SMTP.Connect; из-за траблов с сетью. прочекай по F8
 
E

ExTeC

#5
"Чекал"... :)
На когда отправляю - ошибка...
Похожая ошибка была, когда я время не указывал...
(
DateTime := GetTime;
IdMsgSend.Date := DateTime;
)
Но тогда было понятно, что им не хватает... :)
А щас... :(
 
G

Guest

#6
ExTeC
а фаеры разные нормально работают? может они не пускают?
 
E

ExTeC

#7
нормально...
Я чувствую, что что-то я не заполнил... :)
 

admin

Well-known member
08.08.2003
2 754
0
#8
ExTeC
не знаю
у меня не ругается под XP. Правда у меня indy немного модифицированные.
 

admin

Well-known member
08.08.2003
2 754
0
#10
ExTeC
может инди глюкают
слушай. чего ты парисся. возьми-ка пример из indi называется который MailClient и заюзай его.
 
A

Alone_Stranger

#11
попробуй добавить строчку
SMTP.AuthenticationType := atLogin;
 
M

MORFEUS

#12
[ :) B]Да не Этот код не будет пахать ! Ты вырубил STOP ON DELPHI EXCEPTIONS ? Если да то не знаю
 
Статус
Закрыто для дальнейших ответов.