| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос с отправкой мыла
Lonix © (2007-02-28 23:03:00)Я сделал прогу, она работает подскажите куда нужно и что нужно добавить чтобы еще отправлять прикрепленые данные? вот код проги:
.......................................
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress;
.......................................
procedure TForm1.Button1Click(Sender: TObject);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Add('Типа первая строчка собщения');
M.Body.Add('Типа вторая строчка собщения');
M.From.Text := '"Мирор" <mail@mail.ru>'; //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := '"Kiss" <vit@mail.ru>'; //Получатель
M.Subject := 'Мы это сделали :)'; //Тема письма
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Username := 'cards';
IdSMTP1.Password := '********'; // - ну свой пароль я те не выдам :-Р
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
end;
Dmitrij_K (2007-03-01 00:13:00) [1]http://www.indyproject.org/Sockets/Demos/index.aspx
alex-drob (2007-02-28 23:40:00) [2]Кажеться M.MessageParts
| |
