Отправка почты используя IdSMTP

← →
Delphi forever (2005-05-16 07:34) [0]

Привет всем. пытаюсь отправить почту через smtp.mail.ru используя следущий код:
procedure TForm1.RxSpeedButton1Click(Sender: TObject);
begin
IdSMTP1.Host := Edit1.Text;
try
IdSMTP1.Connect(5000);
except
ShowMessage("Не найден SMTP server или нет соединения с интернетом");
exit;
end;
if idSMTP1.Connected= false then begin
ShowMessage("Не найден SMTP server или нет соединения с интернетом");
exit;
end;
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:=Edit2.Text;
IdSMTP1.Password:=Edit3.Text;
IdSMTP1.Send(Msg1);

// описание письма
try
Msg1.Subject:=Edit4.Text; //текст темы сообщения
Msg1.Recipients.EMailAddresses:=Edit5.Text; //указываем адрес получателя
Msg1.From.Address:=Edit6.Text; //указываем автора письма
Msg1.Body.Text:=Edit7.Text; //размещаем текст сообщения
Msg1.Date:=DateEdit1.Date;
if Edit8.Text<>"Edit8" then
TIdAttachment.Create(Msg1.MessageParts,Edit8.Text);

except
ShowMessage("Не удалось отправить письмо проблема с Msg");
exit;
end;
IdSMTP1.Disconnect;

end;

Получаю следущее сообщение : sender adress must much authenticated user.
Подскажите пожалуста в чем ошибка ?

← →
Eraser © (2005-05-16 14:25) [1]

Delphi forever

http://www.atozed.com/indy/Demos/index.iwp

← →
Lex_! © (2005-05-17 05:20) [2]

Адрес отправителя должен совпадать с авторизованным пользователем.

Тоесть если у тебя логин Vasia то адрес отправителя скорее всего у тебя Vasia@..... а ты указал в письме адрес отправителя не соответствующий этому.

Это уже защита СМТП сервера от спама.. и прочего.

← →
Lex_! © (2005-05-17 06:23) [3]

Или на СМТП сервере стоит что имя пользователя это адрес почты, тогда отправителья адрес должен быть такой же как логин ...

На Маил.ру еще есть защита от спама. Т.е юзеру нужно сначала авторизироваться. Для начала он должен получить почту с этого ящика, а потом отправлять.

Отправка почты используя IdSMTP Найти похожие ветки