Скачать: CL | DM;

Как отправить письмо по 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]

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

---

← →
Song ©   (2003-05-03 19:56) [5]

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

---

← →
Дмитрий К.К. ©   (2003-05-04 06:33) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c