Delphi->EMAIL

← →
lorn (2006-10-25 18:04) [0]

Доброго времени суток мастера
ситуация в следующем надо написать прогу для отправки почты через веб интерфейс
создал html форму
 <HTML> <HEAD> <TITLE>Авторизация доступа</TITLE> </HEAD> <BODY> <table border="10"> <tr> <td><FORM method="POST" action="http://localhost/cgi/pr.dll"> Введите пароль: <input type="text" name="mail" size=20> <input type="submit" value="послать"> <input type="reset" value="Очистить"></td> </tr> </FORM> </BODY> </HTML>

далее сделал isapi приложение на форме web module 2компонента -page procedure и nmsmtp
такой код
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String); var data:Tstrings; begin if TagString = "mail" then begin data:=request.ContentFields; ReplaceText:=data.Values[TagString]; with NMSMTP1 do begin Host := "smtp.mail.ru"; UserID := "___Nikolay"; Connect; PostMessage.FromAddress := "lorn@mail.ru"; PostMessage.ToAddress.Text := data.Values[TagString]; PostMessage.Body.Text := "Текст письма"; PostMessage.Subject := "Тема письма"; SendMail; end; end; end;

ввсё это крутится на iis server
вобщем адрес почты как параметр передаётся но не выполняется код с smtp
что делаю не так и как это исправить
заранее спасибо

← →
lorn (2006-10-25 18:14) [1]

ну забыл ещё дописать
procedure TWebModule1.WebModule1aiParseFileAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Response.Content := PageProducer1.Content end;

← →
Ketmar © (2006-10-25 18:16) [2]

nmsmtp? на сервере? ужос. спрячь, пока не поздно, и никому не показывай. и больше никогда так не делай. ибо глючище.

← →
lorn (2006-10-25 18:18) [3]

а как быть
подскажи дураку

← →
Ketmar © (2006-10-25 18:22) [4]

>[3] lorn 25-Oct-2006, 18:18
>а как быть
прежде всего -- избавиться от nmsmtp.

>подскажи дураку
что ж ты раньше-то не сказал? а я уже ответ настукал...
но если уверен, что дурак, то больше не буду: зачем на дурака время тратить?

← →
DVM © (2006-10-25 18:23) [5]

> а как быть

Indy или WinSock напрямую

← →
lorn (2006-10-25 18:24) [6]

Ketmar не придерайся к словам
подскажи если знаеш - как такой трабл решить
заранее спасибо

Он правильно сказал.
Спасибо что предупредил.

>[6] lorn 25-Oct-2006, 18:24
>Ketmar не придерайся к словам
а ведь и вправду [3]... %-(

← →
lorn (2006-10-25 18:50) [9]

ну и хер с вами зотые рыбки
еб№тесь сами до посинения в своём синем море

Delphi->EMAIL Найти похожие ветки