Я сейчас расскажу как написать 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;
Ну если и не поняли скачать исходник можно