Отправка отчета по Email
FastReport 4.4
Пытаюсь отправить отчет по Email.
Заполняю свойства frxMailExport:
frxMailExport.FromMail := dsCurrMailFROMMAIL.AsString;
frxMailExport.FromName := dsCurrMailFROMNAME.AsString;
frxMailExport.Subject := dsCurrMailSUBJECT.AsString;
frxMailExport.FromCompany := dsCurrMailORGANISATION.AsString;
frxMailExport.Signature.Clear;
frxMailExport.Signature.Add(dsCurrMailSIGNATURE.AsString);
frxMailExport.SmtpHost := 'localmail.lesnoy.local';
frxMailExport.SmtpPort := 25;
frxMailExport.Lines.Clear;
frxMailExport.Lines.Add(dsCurrMailLETTER.AsString);
frxMailExport.Address := dsCurrMailEMAIL_REPORT.AsString;
Далее в просмотре отчета нажимаю кнопку "Отослать по Email".
В появившемся окне "Отослать по Email" на вкладке "E-mail" вижу заполненные свойства,
а на вкладке "Ящик" НИ ОДНО свойство не заполняется. Почему?!
Самые критичные свойства:
frxMailExport.SmtpHost := 'localmail.lesnoy.local';
frxMailExport.SmtpPort := 25;
И отчет, естественно, не отправляется.
Пробовал на разных версиях Delphi: 5, 6, 2006. Результат одинаковый :-(
Спасибо!
Пытаюсь отправить отчет по Email.
Заполняю свойства frxMailExport:
frxMailExport.FromMail := dsCurrMailFROMMAIL.AsString;
frxMailExport.FromName := dsCurrMailFROMNAME.AsString;
frxMailExport.Subject := dsCurrMailSUBJECT.AsString;
frxMailExport.FromCompany := dsCurrMailORGANISATION.AsString;
frxMailExport.Signature.Clear;
frxMailExport.Signature.Add(dsCurrMailSIGNATURE.AsString);
frxMailExport.SmtpHost := 'localmail.lesnoy.local';
frxMailExport.SmtpPort := 25;
frxMailExport.Lines.Clear;
frxMailExport.Lines.Add(dsCurrMailLETTER.AsString);
frxMailExport.Address := dsCurrMailEMAIL_REPORT.AsString;
Далее в просмотре отчета нажимаю кнопку "Отослать по Email".
В появившемся окне "Отослать по Email" на вкладке "E-mail" вижу заполненные свойства,
а на вкладке "Ящик" НИ ОДНО свойство не заполняется. Почему?!
Самые критичные свойства:
frxMailExport.SmtpHost := 'localmail.lesnoy.local';
frxMailExport.SmtpPort := 25;
И отчет, естественно, не отправляется.
Пробовал на разных версиях Delphi: 5, 6, 2006. Результат одинаковый :-(
Спасибо!
Комментарии
Покажите полностью, как формируете отчёт, когда заполняете свойства фильтра
Отчет уже готов. Просто загружаю его из файла и пытаюсь отправить по почте. Причем заполнение свойств ставил и до Load и после. Пробовал по разному. Могу выслать тестовый пример, хотя он практически весь приведен ниже.
Спасибо!
procedure TForm1.Button1Click(Sender: TObject);
begin
frxMailExport.FromMail := 'bal55060@mail.ru';
frxMailExport.FromName := 'bal55060@mail.ru';
frxMailExport.Subject := 'Тема bal55060@mail.ru';
frxMailExport.FromCompany := 'НЛК';
frxMailExport.Signature.Clear;
frxMailExport.Signature.Add('Подпись');
frxMailExport.SmtpHost := 'localmail.lesnoy.local';
frxMailExport.SmtpPort := 25;
frxMailExport.Lines.Clear;
frxMailExport.Lines.Add('Текст письма');
frxMailExport.Address := 'bal55060@gmail.com';
frxReport.LoadFromFile('111.FR3');
frxReport.PrepareReport;
frxReport.ShowPreparedReport;
frxMailExport.ShowExportDialog := True;
frxMailExport.ExportFilter := frxXLSExport;
frxReport.Export(frxMailExport);
end;
Выкладывайте тестовый проект
Попробуйте обновить FR до 4.4.21
Даю проект. Могу дать ехе-шник для проверки на мыло. Спасибо!
Через форум не берет вложения.
ПМ - это что?
Я Вам послал письмо через форум. Спасибо!