alex6999 |
опубликован 04-09-2001 12:58 MSK
требуются исходники сабж на дельфи, пойдёт только релай на другой SMTP сервер, просто мне необходимо сделать фильтрацию мыла, разрешить посылку только на определённый список адресов(не доменов), остальную почту перенаправлять в другой ящик, кроме написания своего сервера я невижу других путей. Я уже начал писать с нуля, исспользую для тестирования The Bat, и неполучается ибо бат не отвечает на приветсвие, когда должен сказать HELO procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin Soc:=Socket; S:='220 LEASCO2.BY Welcom to AlexSMTP Server'; Socket.SendText(S+chr(10)+chr(13)); Memo2.Lines.Add(S); end;после этой строки с сервера бат молчит.
|