• Registered: 2016-03-04
  • Posts: 11

Topic: Отправка файлов по почте

Доброго дня!
Как отправить в одном почтовом сообщении несколько файлов (синтаксис скрипта)
Спасибо

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Отправка файлов по почте

Приветствую,


Добавил такую возможность в последнюю бета версию 2.5
https://www.dropbox.com/s/kfh2q7h8l73lx … a.zip?dl=0


пример:

procedure Form1_bSend_OnClick (Sender: string; var Cancel: boolean);
var
    sFiles: string;
begin
    sFiles :='d:\down.bmp' + #13 + 'd:\wmpnss_color32.bmp'; // перечислите файлы разделяя их знаком #13 (перенос строки)

    if SendMail(Form1.edServer.Text, Form1.edUsername.Text, Form1.edPassword.Text, Trunc(Form1.edPort.Value), Form1.edFrom.Text, Form1.edTo.Text, Form1.edSubject.Text, Form1.mmMessage.Text, sFiles) then
        ShowMessage('Message sent');

end;
Dmitry.
  • Registered: 2016-03-04
  • Posts: 11

Re: Отправка файлов по почте

Доброго дня!
Не оправляет даже два. Ошибку отловить не могу. Или как это сделать ?

begin
    Form1.bReport.Enabled := False;
    Form1.bReport.Caption := 'Подождите...';

    sFile := (Form1.frxPDFExport1.FileName + #13 + 'Y:\45036.cdr');
    ShowMessage ( sFile );
   
     if FileExists(sFile) then
        if SendMail('127.0.0.1', '[xxxxx@gmail.com', 'xxxxxxxxx', 25, 'mylnay.opera74@gmail.com', 'andry_mix@mail.ru', numZayva, durationDay, sFile)     then
            ShowMessage('Заявка отправлена');

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Отправка файлов по почте

razdrob
Уберите эту строку

if FileExists(sFile) then

т.к. в переменной два файла, функция FileExists может проверить строку только с одним файлом.

Dmitry.