Код:
begin
IdSMTP1.Host:='smtp.mail.ru'; //Сервак
IdSMTP1.Username:='xxx@mail.ru'; //Почта
IdSMTP1.Password:='*******'; //Пароль
IdSMTP1.Connect(60000); //Логинимся
//
IdMessage1.CharSet:='UTF-8'; //Кодировка
IdMessage1.Subject:=AnsiToUTF8('Общество защиты пятнистых тюленей'); // Тема письма
IdMessage1.Recipients.EMailAddresses:='admin@microsoft.com'; // EMail- Кому
IdMessage1.From.Name:=AnsiToUTF8('Общество защиты пятнистых тюленей'); // От кого - будет в списке писем "от кого"
IdMessage1.From.Address:='support@bbc.com'; // EMail-От кого;
IdMessage1.Body.Add(AnsiToUTF8('Непосредственно письмо'));
IdSMTP1.Send(IdMessage1);
if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;
А вот файлик прикреплять не помню, idmessage процедуры глянь там точно есть
