Форум: "Сети";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз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 ну чес-слово...
Люди делают то, сами не зная чего хотят, вообще...., а хотят сами не зная чего делают....
← →
Fay © (2004-03-12 07:42) [2]Не пробовали вместо smtp. писать sMtP. ?
Если нет, признавайтесь - что это за ...
Я догадываюсь, что не TDBCOmboBox, но всё же...
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.023 c