| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
отсылка на e-mail [D6, D7]
Dest81 © (2006-04-13 14:55:00)Как в делфе отослать файл на мыло?
dest81 (2006-04-14 13:57:00) [1]var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Add('Текст сообщения');
M.From.Text := '"Имя" <name@mail.ru>'; //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := '"Тест" <name2@mail.ru>'; //Получатель
M.Subject := 'Проверка...'; //Тема письма
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host := 'smtp.mail.ru'; // SMTP сервер
IdSMTP1.Username := 'name'; // Имя пользователя
IdSMTP1.Password := '123456789'; // пароль
IdSMTP1.Connect;
if IdSMTP1.Connected then
IdSMTP1.Send(M);
IdSMTP1.Disconnect;
end;
Сообщения идут а как отправить файл?
Dest81 (2006-04-13 15:51:00) [2]спасибо! Другой раз так и сделаю!
Yegorchic (2006-04-13 15:49:00) [3]Вообще-то, надо смотреть FAQ, или поиском по форуму пользоваться, т.к:
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&search=mail
а там есть
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1144254037&n=18
Вот.
| |
