отправка e-mail с подменой адреса(дубль два)

[betirsolt]

извините еще раз,мою тему закрыли и не знал что делать кроме как создать еще одну с таким названием,так как тему закрыли не по моей вине(мне так кажется) так вот продолжим тут
я думал что и сам смогу легко это сделать в дельфи следующим образом

procedure TForm1.Button1Click(Sender: TObject);

begin

if IsConnectedToInternet then

 begin

idSMTP1.Host:='smtp.mail.ru'; // адресс почтового сервера

idSMTP1.Port:=25;    // порт по которому будет осуществляться подключение

   idSMTP1.Username:='xxx@mail.ru';  // логин пользователя

     idSMTP1.Password:='xxx';     // пароль пользователя

 with IdMessage1 do

      begin

        body.Text:='';

        From.Text := 'yyy@mail.ru';

        Recipients.EMailAddresses := 'xxx@mail.ru';

        Subject := '';

  end;

end;

ну итд т.е просто подставить в

From.Text := 'yyy@mail.ru';

все что я хочу
но не тутто было,если адреса тут

idSMTP1.Username:='xxx@mail.ru';

и тут

From.Text := 'yyy@mail.ru';

не совпадают то прога выдает ошибку
sender address must match autchenticated user
так вот скажите мне как это реализовать?

[asmodey1]

Мда-а-а...
И со второго дубля никак не дойдет, что тема - для раздела "Работа с сетью в Delphi"... Прискорбно...

[dosha]

скажу для тебя есть решение, делфи + пхп скрипт)

[Johnson]

Инди не позволит тебе этого сделать (по крайней мере документированными способами).
Выход - брать TClientSocket и писать на его основе свой почтовик...
Хотя, очень уж это вирусоварением попахивает...

[betirsolt]

никаких вирусов ребята,просто хочу знать и все,тут один на смтп сервер намекал,но мне нужны подробности

[p51x]

я же вам уже отвечал: ищите открытый релей

[betirsolt]

Сообщение от p51x

я же вам уже отвечал: ищите открытый релей

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

[veniside]

http://lmgtfy.com/?q=open+relay

[betirsolt]

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

idSMTP1.Host:='smtp.mail.ru'; // адресс почтового сервера

вместо smtp.mail.ru будет какой нибудь другой сервер и все у меня заработает?с этим же кодом?

[p51x]

а я сам могу сделать этот открытый релей с помощью компонента смтп сервер?

сделать то можете... но главное, чтобы еще сервер азначения захотел с вами работать (а там все не всегда просто)