Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отправка почты используя IdSMTP [D7, WinXP]

Delphi forever © (2005-05-16 07:34:00)
Привет всем. пытаюсь отправить почту через 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.
Подскажите пожалуста в чем ошибка ?

-=S.S=- (2005-06-09 15:11:00) [1]
На Маил.ру еще есть защита от спама. Т.е юзеру нужно сначала авторизироваться. Для начала он должен получить почту с этого ящика, а потом отправлять.

Lex_! (2005-05-17 06:23:00) [2]
Или на СМТП сервере стоит что имя пользователя это адрес почты, тогда отправителья адрес должен быть такой же как логин ...

Lex_! (2005-05-17 05:20:00) [3]
Адрес отправителя должен совпадать с авторизованным пользователем.

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

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

Eraser (2005-05-16 14:25:00) [4]
Delphi forever

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »