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

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

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

почта [D6]

inki35 © (2002-12-22 18:53:00)
привет
история такая
делаю так
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 работает без проблем.

gsu (2002-12-23 20:00:00) [1]
Кстати, у мя все работает. Может у тя 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;

gsu (2002-12-23 19:54:00) [2]
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;

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

inki35 (2002-12-23 19:39:00) [3]
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"

inki35 (2002-12-23 18:45:00) [4]
езть еще какя

gsu (2002-12-23 15:01:00) [5]
Извиняюсь за наивность, а вообще связь есть ?

inki35 (2002-12-23 14:54:00) [6]
перепробывал разные smtp сервера
ничего не вышло
выдает ошибку"nul remote adress"
или похожие.

Morfein (2002-12-22 22:54:00) [7]
2 Song : connected однозначно, потому что возвращаемая ошибка уже касается порядка передачи данных по smtp-протоколу

Song (2002-12-22 22:45:00) [8]
Connect поставь после определения PostMessage и проверяй на Connected перед посылкой (встречаются медленные сервера)

Morfein (2002-12-22 21:11:00) [9]
Заморочки сервера... Я переправил на другой сервер и всё заработало...
Спроси черта, получил ли он такое письмо?... :))
А вообще, по форме это ошибка протокола smtp...

Наверх

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