Как отправить письмо по NMSMTP.

← →
Anat (2003-05-03 15:42) [0]

procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := "smtp.mail.ru";
//"smtp.mailserver.com";
NMSMTP1.Port := 25;
NMSMTP1.UserID := "ID";
NMSMTP1.Connect; //Соединение

NMSMTP1.PostMessage.FromAddress := "You.mail@mail.ru";
NMSMTP1.PostMessage.ToAddress.Text := "You.mail@mail.ru";
NMSMTP1.PostMessage.Body.Text := "Текст письма";
NMSMTP1.PostMessage.Subject := "Тема письма";
NMSMTP1.SendMail;
end;
Пишет ошибку. Что не так.

← →
Bill (2003-05-03 15:46) [1]

Попробуй тек вроде работало когдато
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
F:textfile;
S,S2:String;
begin
S:="HELLO";
try
SMTP.QuickSend("smtp.rambler.ru","manamana.uops "+DateTimeToStr(Now),"mail@rambler.ru","mail2@rambler.ru", s);
except
ShowMessage("Error Connection")
end;
ShowMessage("All Ok");
end;

← →
Song © (2003-05-03 16:03) [2]

А какую ошибку пишет?

← →
Дмитрий К.К. © (2003-05-03 17:33) [3]

> NMSMTP1.UserID := "ID";

А шо ет за бред? :)

← →
Anat (2003-05-03 18:52) [4]

Пишет ошибку: Аутентификация потерпевшая неудачу

Autentification failed на переводчике что ли переводил :)))

UserID укажи правильно.

Как отправить письмо по NMSMTP. Найти похожие ветки