Вопрос с отправкой мыла

← →
Lonix (2007-02-28 23:03) [0]

Я сделал прогу, она работает подскажите куда нужно и что нужно добавить чтобы еще отправлять прикрепленые данные? вот код проги:
.......................................
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;

← →
alex-drob © (2007-02-28 23:40) [1]

Кажеться M.MessageParts

← →
Dmitrij_K (2007-03-01 00:13) [2]

http://www.indyproject.org/Sockets/Demos/index.aspx

Вопрос с отправкой мыла Найти похожие ветки