[djmix]

начал пробовать по подсказанному коду выше,
дошёл пока до такого варианта

Код:

var
  Form1: TForm1;
  App, NameSpace, MyMsg : OleVariant;

 NumMails: integer;
 outlook: OLEvariant;

 //folder: OLEvariant;
 MailCounter: integer;
 MailMessage: variant;
 NumAtt: integer;
 counter,counterLIST: integer;
 ATTFile : variant;
 FILENAME,FilenameNew : string;
 savetofol: string;
 thedocdone, theacc: string;

implementation

uses
  ComObj;


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label8.Caption:= IntToStr(CounterList);
label9.Caption:= IntToStr(NumAtt);
end;

procedure TForm1.FileListBox1Click(Sender: TObject);

begin


  Edit1.Text:= FileListBox1.FileName;
  Listbox1.Items.Clear;
  App := CreateOleObject('Outlook.Application');
  NameSpace := App.GetNamespace('MAPI');
  NameSpace.Logon;
  MyMsg := NameSpace.OpenSharedItem(Edit1.Text);
  Edit2.text:= MyMsg.To;
  Edit3.text:= MyMsg.CC;
  Edit4.text:= MyMsg.BCC;
  Edit5.text:= MyMsg.Subject;
  Memo1.Text:= MyMsg.Body;
  NumAtt:=Mymsg.attachments.count;
  Label7.caption:='Âñåãî '+inttostr(NumAtt)+' âëîæåíèé(èÿ)(èå)';
   for counter:=1 to NumAtt do
   BEGIN
    Attfile:=Mymsg.Attachments.item(counter).filename;
    Filename:='D:\PROJECT\SendMailGUI\my\tempm\'+Attfile;
    FilenameNew:='D:\PROJECT\SendMailGUI\my\tempnew\'+Attfile;
    Mymsg.attachments.item(counter).saveasfile(filename);

    //CopyFile(PChar(filename),PChar(FilenameNew),false);

          label8.Caption:= IntToStr(CounterList);
          label8.Caption:= IntToStr(NumAtt);
          Listbox1.Items.Add(Attfile);

    //ListBox1.Sorted := True;

    //DeleteFile(filename);
   End;


end;

не понятен момент как указать от какого пользователя (с какой учётной записи) отправлять письмо.