начал пробовать по подсказанному коду выше,
дошёл пока до такого варианта
Код:
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;
не понятен момент как указать от какого пользователя (с какой учётной записи) отправлять письмо.