почта

← →
inki35 (2002-12-22 18:53) [0]

привет
история такая
делаю так
procedure TForm1.Button1Click(Sender: TObject);
begin

NMSMTP1.Host := "smtp.mail.ru";
NMSMTP1.UserID := "ryks";
NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := "huk@rambler.ru";
NMSMTP1.PostMessage.ToAddress.Text := "zewem@mail.ru";
NMSMTP1.PostMessage.Body.Text := "Текст письма";
NMSMTP1.PostMessage.Subject := "Тема письма";
NMSMTP1.SendMail;
end;
васкакивает ошибка
"503 valid rcpt to <recipient> must precede data"
подскажите как исправить.
А почтовик the bat работает без проблем.

← →
Morfein © (2002-12-22 21:11) [1]

Заморочки сервера... Я переправил на другой сервер и всё заработало...
Спроси черта, получил ли он такое письмо?... :))
А вообще, по форме это ошибка протокола smtp...

← →
Song © (2002-12-22 22:45) [2]

Connect поставь после определения PostMessage и проверяй на Connected перед посылкой (встречаются медленные сервера)

← →
Morfein © (2002-12-22 22:54) [3]

2 Song : connected однозначно, потому что возвращаемая ошибка уже касается порядка передачи данных по smtp-протоколу

← →
inki35 (2002-12-23 14:54) [4]

перепробывал разные smtp сервера
ничего не вышло
выдает ошибку"nul remote adress"
или похожие.

← →
gsu © (2002-12-23 15:01) [5]

Извиняюсь за наивность, а вообще связь есть ?

← →
inki35 (2002-12-23 18:45) [6]

езть еще какя

← →
inki35 (2002-12-23 19:39) [7]

begin
NMSMTP1.Host := "smtp.mail.ru";
if NMSMTP1.Connected then
NMSMTP1.PostMessage.FromAddress := "hasan@excite.com";
NMSMTP1.PostMessage.ToAddress.Text := "reyw@mail.ru";
NMSMTP1.PostMessage.Body.Text := "Текст письма";
NMSMTP1.PostMessage.Attachments.Text:="c:\int.exe";
NMSMTP1.PostMessage.Subject := "Тема письма";
NMSMTP1.Connect;
NMSMTP1.SendMail;
end;
такие ошибки
"authentication failed"и
"incomplete header"

procedure TForm1.NMSMTP1HeaderIncomplete(var handled: Boolean; hiType: Integer);
var
S: String;
begin
case hiType of
hiFromAddress:
if InputQuery("Missing From Address", "Enter From Address: ", S) then
begin
NMSMTP1.PostMessage.FromAddress := S;
Handled := TRUE;
end;
hiToAddress:
if InputQuery("Missing To Address", "Enter To Address: ", S) then
begin
NMSMTP1.PostMessage.ToAddress.Text := S;
Handled := TRUE;
end;
end;
end;

И вообще - это взято из стандартного хелпа, поройся там

Кстати, у мя все работает. Может у тя smtp сервак не тот

NMSMTP1.Host := "mail.mosk.ru";
NMSMTP1.Connect;
if NMSMTP1.Connected then
begin
// NMSMTP1.ClearParams := True;
NMSMTP1.SubType := mtPlain;
NMSMTP1.EncodeType := uuMime;
NMSMTP1.PostMessage.FromAddress := "sg@mosk.ru";
NMSMTP1.PostMessage.FromName := "Edit5.Text";
NMSMTP1.PostMessage.ToAddress.Text := "gsu@mosk.ru";
// NMSMTP1.PostMessage.ToCarbonCopy.Text := "Memo3.Text";
// NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := "Memo2.Text";
NMSMTP1.PostMessage.Body.Text := "Memo4.Text";
NMSMTP1.PostMessage.Attachments.Text := "c:\boot.ini";
NMSMTP1.PostMessage.Subject := "Edit8.Text";
// NMSMTP1.PostMessage.LocalProgram := "Edit6.Text;
NMSMTP1.PostMessage.Date := DateToStr(Now);
// NMSMTP1.PostMessage.ReplyTo := Edit7.Text;
NMSMTP1.SendMail;
end;

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