[Aless]

Привет всем!Скажите может кто-нить знает как на Дельфи написать программу - почтовый клиент ,ну чё-та типа The Bat! или многих подобных но в гораздо упрощённом варианте,только чтобы с моего аккаунта из сервера E-mail какого-нибудь передавала текст ну и вложенные файлы.

[lmikle]

Берешь компоненты IdPOP3 и IdSMTP и реализуешь. Еще тебе понадобится IdMessage.

[Aless]

Пасибо!Тока все ли эти компоненты есть в стандартных вкладках на Дельфи?

[The Shadow]

Если Indy есть то да

[Casper-Hacker]

Исходник читалки писем...
Скачать

[Aless]

Чота ничё не получается :-(.Ставлю на форму idSMTP и idPOP3 и idMessager и FTP сервак.А связать все это не получается.Может у кого-нить есть исходники,скиньте плииииз!!!

[Aless]

Пасиб Casper-Hacker!Но мне нужно чтобы она отправляла текст и прикреплённый файл и всё, читать не обязательно

[Casper-Hacker]

Код:

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 процедуры глянь там точно есть