Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Attachment, Приатачить каждому адресату свой файл 
:(
    Опции темы
sonechko
Дата 16.4.2007, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.4.2007

Репутация: нет
Всего: нет
Имеется список e-mail адресов. Имеется Edit в котором указывается путь к файлу вложения, но есть проблемка... Незнаю как сделать так чтобы для каждого адреса можно было выбирать свой файл. А то сейчас один файл рассылается по всем адресатам.
Код

unit SendForm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls,
  IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, IdBaseComponent, IdMessage;

type
  TMainForm = class(TForm)
    Panel2: TPanel;
    reMessageText: TRichEdit;
    Panel1: TPanel;
    Label1: TLabel;
    eName: TEdit;
    Splitter1: TSplitter;
    ListLog: TListBox;
    Label2: TLabel;
    eSubject: TEdit;
    Label3: TLabel;
    BbtnAddToList: TButton;
    ListAddr: TListBox;
    BtnRemove: TButton;
    BtnFind: TButton;
    Label5: TLabel;
    eFrom: TEdit;
    BtnSendAll: TButton;
    MailMessage: TIdMessage;
    Mail: TIdSMTP;
    DateTimePicker1: TDateTimePicker;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    ListDirect: TListBox;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnSendAllClick(Sender: TObject);
    procedure BbtnAddToListClick(Sender: TObject);
    procedure BtnRemoveClick(Sender: TObject);
    procedure BtnFindClick(Sender: TObject);
    procedure MailConnected(Sender: TObject);
    procedure MailDisconnected(Sender: TObject);
    procedure MailStatus(axSender: TObject; const axStatus: TIdStatus;
      const asStatusText: String);
    procedure MailWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure MailWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    FileName: string;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // load the list of addresses
  FileName := ChangeFileExt (Application.ExeName, '.txt');
  ListAddr.Items.LoadFromFile (FileName);
  ListLog.Items.Add ('Addresses: ' + IntToStr (
    ListAddr.Items.Count));
  // select the first item
  ListAddr.ItemIndex := 0;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // save the list of addresses
  ListAddr.Items.SaveToFile (FileName);
end;

const
  BccInMsg = 30;

procedure TMainForm.BtnSendAllClick(Sender: TObject);
var
  i: integer;
  curSendTo, curDir: string;
  ADate: TDateTime ;
  nItem: Integer;
  Res: Word;
  att: TIdAttachment;
  sAttName: string;

begin

  Res := MessageDlg ('Начать отправку почты на ' +
      IntToStr (ListAddr.ItemIndex) + ' (' +
      ListAddr.Items [ListAddr.ItemIndex] + ')?'#13 +
      '(No starts form 0)' ,
      mtConfirmation,
      [mbYes, mbNo, mbCancel], 0);
  if Res = mrCancel then
    Exit;
  if Res = mrYes then
    nItem := ListAddr.ItemIndex
  else
    nItem := 0;


  // connect
  Mail.Host := 'serv';
  Mail.Username := 'clientbank';
  Mail.Password := 'clientbank';
  Mail.AuthenticationType := atLogin;
  Mail.Connect;

  // send the messages, one by one, prepending a custom message
  try
    // set the fixed part of the header
    MailMessage.From.Name := '[email protected]';
    MailMessage.Subject := 'Vipiska';
    MailMessage.Body.SetText (
      reMessageText.Lines.GetText);

   MailMessage.Body.Insert (0, 'Добрый день');


    while nItem < ListAddr.Items.Count do
    begin
      sAttName:= Edit1.Text; // Я так понимаю что генерировать адресс файла нужно сдесь
     if sAttName <> '' then
       if FileExists(sAttName) then
          att := TIdAttachment.Create( MailMessage.MessageParts, sAttName); // создаем вложение

         // show the current selection
      ListAddr.ItemIndex := nItem;
      Application.ProcessMessages;
      // ListAddr.ItemIndex := nItem;


      MailMessage.Body [0] := 'Добрый день ' + ListAddr.Items [nItem];
      MailMessage.Recipients.EMailAddresses := ListAddr.Items [nItem];
      Mail.Send(MailMessage);
      FreeAndNil( att ); // убираем вложение перед следующей отправкой
      Inc (nItem);
    end;
  finally // we're done
    Mail.Disconnect;
  end;
end;

procedure TMainForm.BbtnAddToListClick(Sender: TObject);
begin
  ListAddr.ItemIndex :=
    ListAddr.Items.Add (eName.Text);
end;

procedure TMainForm.BtnRemoveClick(Sender: TObject);
begin
  // copy the item to the name edit box and remove it
  eName.Text := ListAddr.Items [ListAddr.ItemIndex];
  ListAddr.Items.Delete (ListAddr.ItemIndex);
end;

procedure TMainForm.BtnFindClick(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListAddr.Items.Count - 1 do
    if Pos (eName.Text, ListAddr.Items [I]) > 0 then
    begin
      ListAddr.ItemIndex := I;
      Break;
    end;
  Beep;
end;

procedure TMainForm.MailConnected(Sender: TObject);
begin
  ListLog.Items.Add ('Connected to host');
end;

procedure TMainForm.MailDisconnected(Sender: TObject);
begin
  ListLog.Items.Add ('Disconnected from host');
end;

procedure TMainForm.MailStatus(axSender: TObject;
  const axStatus: TIdStatus; const asStatusText: String);
begin
  ListLog.Items.Add (asStatusText);
end;

procedure TMainForm.MailWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ListLog.Items.Add ('Sending to: ' +
    MailMessage.Recipients.EMailAddresses);
end;

procedure TMainForm.MailWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ListLog.Items.Add ('Done');
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TMainForm.Button3Click(Sender: TObject);
var
  n: Integer;

begin

if OpenDialog1.Execute then
    for n:= 0 to OpenDialog1.Files.Count - 1 do
      Edit1.Text:= OpenDialog1.Files[n];
      end;

end.
PM MAIL   Вверх
_hunter
Дата 16.4.2007, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
а при чем тут сети?
тупо заводиш два массива: address и attach. при выборе элемента их первого массива показывай значение второго; если второй жлемент пустой -- показывай диалог ввода...


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
sonechko
Дата 16.4.2007, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.4.2007

Репутация: нет
Всего: нет
_hunter, 
не все так просто.
дело в том что путь к файлам динамический.
тоесть он меняется каждый день в зависимоти от даты
PM MAIL   Вверх
_hunter
Дата 16.4.2007, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
и что это меняет? и проблема где?..


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
sonechko
Дата 16.4.2007, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.4.2007

Репутация: нет
Всего: нет
_hunter, 
ну проблема в том что непонимаю как сделать так чтобы перед отправкой каждого письма спрашивало какой файл к нему крепить
PM MAIL   Вверх
_hunter
Дата 16.4.2007, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
смотриш на значение во втором массиве: если оно пустое (или третий массив с флагом заведи или структуру сделай) -- спрашивай файл.


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
sonechko
Дата 17.4.2007, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.4.2007

Репутация: нет
Всего: нет
Разобралась. Сделала что бы автоматом в зависимоти от даты находило нужную папку и брало из  нее файл. А как сделать так что бы файл не указывать. Пусть отправляет все что есть в папке???
PM MAIL   Вверх
_hunter
Дата 17.4.2007, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
смотриш на второе значение, есил оно пустое -- не показываеш диалог выбора файла, а просто атачиш все файлы в директории...


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0489 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.