Как отправит на E-mail Несколько файлов в одном письме?

[dolphin705]

Здравствуйте, вот код отправки 1 файла из листбокса, как его преобразовать чтобы отправить все файлы из листбокса в одном писме???

procedure TForm1.Button1Click(Sender: TObject);
var
MyFile : string;
begin
 MyFile:= ListBox1.Items[0];
 if IsInternetConnected = true then
 IdSMTP1.Host := 'smtp.mail.ru';
  IdSMTP1.Port := 25;
  IdSMTP1.UserName := 'name';
  IdSMTP1.Password := 'password';
  IdSMTP1.ConnectTimeout := 10000;
  IdSMTP1.Connect;
      with IdMessage1 do
      begin
        From.Text := 'name@mail.ru';;
        ReplyTo.EMailAddresses := 'name@mail.ru';
        Recipients.EMailAddresses := 'mail@mail.ru';
        ReceiptRecipient.Text := 'Тест';
        MessageParts.Clear;
        TIdAttachmentFile.Create(MessageParts, MyFile);
        Subject := 'test';
        IdMessage1.Encoding:= meMIME;
        IdMessage1.CharSet:= 'Windows-1251';
      IdSMTP1.Send(IdMessage1);
      IdSMTP1.Disconnect;
    end;
end;

Использованы компоненты indy 10

[mihali4]

А вы не пробовали
TIdAttachmentFile.Create(MessagePar ts, MyFile1);
TIdAttachmentFile.Create(MessagePar ts, MyFile2);
TIdAttachmentFile.Create(MessagePar ts, MyFile3);
Я так, навскидку, индейцами не увлекаюсь.

[spamer]

ну я вот такой вариант могу предложить

procedure TForm1.Button1Click(Sender: TObject);
var
  mes: TIdMessage;
  Attach: TIdAttachment;
  i : Integer;
begin
  mes:=TIdMessage.Create(Form1);
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Port:=2525;
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Username:='login';
  IdSMTP1.Password:='pass';

with mes do
  begin
    Body.Add('текст');
    From.Text := 'ваш  E-mail';
    Recipients.EMailAddresses := 'ваш  E-mail';
    Subject := 'тема';
  end;

if ListBox1.Items.Count > 0 then
  for i:=0 to ListBox1.Items.Count-1 do
     Attach:=TIdAttachment.Create(mes.MessageParts,ListBox1.Items.Strings[i]);

  IdSMTP1.Connect;
  If IdSMTP1.Connected Then IdSMTP1.Send(mes);
  IdSMTP1.Disconnect;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
if (OpenDialog1.Execute) then
 begin
    ListBox1.Items.Add(OpenDialog1.FileName);
    OpenDialog1.FileName:='';
 end;
end;

P.S. Правда не знаю будет работать с indy 10 .

[dolphin705]

mihali4, indy особо не увлекаюсь,а с MyFile1, MyFile2 пробовал .... что то не вышло..

spamer, спасибо, поэксперементирую!

[dolphin705]

Код работает, но проблема в том, что больше 5 - 10 файлов отправить нельзя, как бы разделить на несколько сообщений по 5 файлов в каждом?

[spamer]

Сообщение от dolphin705

Код работает, но проблема в том, что больше 5 - 10 файлов отправить нельзя, как бы разделить на несколько сообщений по 5 файлов в каждом?

А ошибка какая то вылазит, или что??? Просто у меня отправляет больше 10 файлов. Правда программа задумывается на некоторое время, но все отправляется.

[dolphin705]

Появляется сообщение о спам контроле, просят обратиться в службу nospam! У меня в лист боксе больше 10 файлов, надо отправить в нескольких сообщениях наверно..

[jihot]

Не нашел у себя компонент IdAttachmentFile, выложите кто-нибудь пожалуйста.

[jihot]

. .

[Пепел Феникса]

в uses добавьте IdAttachmentFile.
и это не компонент а класс.