Я сейчас расскажу как написать e-mail сендер то есть вы можете отправить письмо не заходя на сайт почтового ящика .
Итак приступим
Нам нужны три компонента это idsmpt , idmessage , idantifreeze
idsmpt -задаем 4 параметра
1 хост
2 порт по которому мы будем отправлять
3 логин
4 пароль
idmessage ну тут тоже задаем параметры которые нам нужны это тело письма , тема , и само письмо ,
Кто не понял смотрим на исходник
begin
IdSMTP1.Host:=Edit4.Text;
IdSMTP1.Port:=25;
IdSMTP1.Username:=Edit1.Text;
IdSMTP1.Password:=edit2.Text;
IdSMTP1.AuthenticationType:=atLogin;
with IdMessage1 do
begin
Body.Add(Memo1.Text);
From.Name:=Edit6.Text;
From.Address:=Edit1.Text;
Recipients.EMailAddresses:=Edit3.Text;
Subject:=edit5.Text;
ContentType := 'text/html';
end;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;Ну если и не поняли скачать исходник можно