
21.03.2009, 11:45
|
Новичок
|
|
Регистрация: 11.10.2008
Сообщения: 88
Репутация: 10
|
|
Вот код отправки:
Код:
begin
IdSMTP1.Host:='smtp.mail.ru'; // сервер исходящей почты (SMTP)
IdSMTP1.Port:=25; // порт SMTP сервера
IdSMTP1.Username:='test@mail.ru'; // ваш логин
IdSMTP1.Password:='test'; // ваш пароль
IdSMTP1.Authenticate;
with IdMessage1 do
begin
Body.Assign(Memo1.Lines); // текст письма
From.Text := 'test@mail.ru'; // ваш e-mail адрес
Recipients.EMailAddresses := 'test@list.ru'; // адрес получателя
Subject := 'test'; // тема сообщения
end;
IdSMTP1.Connect;
try
showmessage('Conneted');
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;
|