D6 как оправить сообщение через smtp с уведомлением о доставке ?

← →
Leopold © (2004-03-11 19:38) [0]

хотел реализовать функцию The Bat-a уведомление о доставке (в Оутглюке есть только уведомление о прочтении - это не то)... долблюсь уже две недели ... результат нулевой

procedure TForm1.Button1Click(Sender: TObject);
begin
smtp.Port := 25;
smtp.Host := "192.168.0.1";
smtp.UserID := "leopold";
smtp.connect;
if smtp.Connected then showmessage("connected");
smtp.PostMessage.FromAddress := "leopold@***.ua";
smtp.PostMessage.ToAddress.Add("leopold@***.ua");
smtp.PostMessage.Subject := "testing";
smtp.PostMessage.Body.Add("it is a good day to die");
smtp.PostMessage.LocalProgram := "leo mailer";
smtp.FinalHeader.Clear;
smtp.FinalHeader.Add("X-Priority");
smtp.FinalHeader.values["X-Priority"] := "3 (normal)";
smtp.FinalHeader.Add("Return-Receipt-To");
smtp.FinalHeader.values["Return-Receipt-To"] := "leopold@usb.sat.poltava.ua";
smtp.SendMail;
close;
end;

что подскажете господа программеры ?

← →
Verg © (2004-03-11 20:09) [1]

> результат нулевой

Что, так и пишет "результат=0"?
А чего хочешь, чтоб писал?

Да, блин,..... ну что можно посоветовать - звездочки убери перед .ua ну чес-слово...

Люди делают то, сами не зная чего хотят, вообще...., а хотят сами не зная чего делают....

Не пробовали вместо smtp. писать sMtP. ?
Если нет, признавайтесь - что это за ...
Я догадываюсь, что не TDBCOmboBox, но всё же...

D6 как оправить сообщение через smtp с уведомлением о доставке ? Найти похожие ветки