| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Leopold ©   (2004-03-11 19:38:00) 

хотел реализовать функцию 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;

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

---

Fay   (2004-03-12 07:42:00) [1]

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

---

Verg   (2004-03-11 20:09:00) [2]

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


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

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

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

---

Наверх