01.06.2011, 13:37
|
Прохожий
|
|
Регистрация: 01.06.2011
Сообщения: 10
Репутация: 10
|
|
Цитата:
Сообщение от NameX
Код:
//вкладка 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;
|
Сам проверял то?
|