
10.05.2011, 16:22
|
Прохожий
|
|
Регистрация: 04.05.2011
Сообщения: 4
Репутация: 10
|
|
Код:
//вкладка indy clients, ставишь на форму IdSMTP (ящик синий такой нарисован)
//вкладка indy misc, ставишь IdMessage
IdMessage1.Body.Text:='Тело письма';
IdMessage1.From.Text:='Заголовок от кого пришло письмо';
IdMessage1.Recipients.Add.Text:='yachik@mail.ru'; //кому письмо
IdMessage1.Subject:='Tema pisma';
//прикрепить файл:
IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'C:\virus.sys');
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=2525;
IdSMTP1.Username:='po4ta@po4ta.ru'; //здесь через какую почту отправлять
IdSMTP1.Password:='password';//пароль
IdSMTP1.Connect();
if IdSMTP1.Connected then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
|