Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Delphi -> Clever Components -> TclMailMessage.BuildMes

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

Ilgar

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Доброго времени суток... Прошу помочь со следующей проблемой...
 
Необходимо подключить к письму несколько файлов... название и путь к ним собираю в переменной AttactmentList : TStringList...
 
AttachmentList := TStringList.Create;
with AttachmentDataSet do begin
    First;
    while not Eof do begin
        AttachmentList.Add(FieldByName('ATTACHMENT_DIR').AsString + '\' + FieldByName('ATTACHMENT_FILE').AsString);
        Next;
    end;
end;
 
А как дальше эту переменную использовать в MailMessage.BuildMessage не знаю...
MailMessage.BuildMessage(TextEditor.Text, RichEditor.AsString, [], AttachmentList);
 
Заранее благодарен...

Всего записей: 78 | Зарегистр. 27-06-2002 | Отправлено: 11:43 15-08-2017
NeoAnomaly

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
А как дальше эту переменную использовать в MailMessage.BuildMessage не знаю...  

Ilgar, а что именно не получается?
 

Код:
MailMessage.BuildMessage(TextEditor.Text, RichEditor.AsString, [], AttachmentList);

Не работает, ошибка компиляции?
 
А так?

Код:
MailMessage.BuildMessage(TextEditor.Text, RichEditor.AsString, nil, AttachmentList);

Всего записей: 418 | Зарегистр. 23-03-2010 | Отправлено: 15:35 15-08-2017
Ilgar

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
В таком виде  
BuildMessage(MainForm.DistributionTextEditor.Text, RichEditorMiniHTMLIO.AsString, [], AttachmentList);
 
говорит ошибка компиляции, не существует такой overload версии...
 
А вот в таком виде
BuildMessage(MainForm.DistributionTextEditor.Text, RichEditorMiniHTMLIO.AsString, [], [AttachmentList.Strings[0]]);
 
работает, но соответственно посылает только первый файл...
 
Добавлено:
а так сработало
BuildMessage(TextEditor.Text, RichEditorMiniHTMLIO.AsString, nil, AttachmentList);
 
можно объяснить причину?

Всего записей: 78 | Зарегистр. 27-06-2002 | Отправлено: 15:49 15-08-2017
NeoAnomaly

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В классе несколько перегруженных методов BuildMessage:
 

Код:
procedure BuildMessage(const AText, AHtml: string; AImages, Attachments: TStrings); overload;  
procedure BuildMessage(const AText, AHtml: string; const AImages, Attachments: array of string); overload;

 
Соответственно для параметров AImages и Attachments необходимо передавать либо массивы, либо объекты TStrings.
 
В таком виде:

Код:
MailMessage.BuildMessage(TextEditor.Text, RichEditor.AsString, [], AttachmentList);

для параметра AImages задаётся массив, соответственно и для параметра Attachments ожидается массив, но прилетает объект - отсюда и ошибка компиляции.
 
Добавлено:
В таком виде

Код:
BuildMessage(MainForm.DistributionTextEditor.Text, RichEditorMiniHTMLIO.AsString, [], [AttachmentList.Strings[0]]);  

всё компилируется, т.к. задаются два массива. Первый(AImages) пустой, а второй(Attachments) состоит из одного элемента - элемента с индексом 0 в string листе.

Всего записей: 418 | Зарегистр. 23-03-2010 | Отправлено: 16:40 15-08-2017 | Исправлено: NeoAnomaly, 16:48 15-08-2017
Ilgar

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Благодарю...

Всего записей: 78 | Зарегистр. 27-06-2002 | Отправлено: 16:54 15-08-2017
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Delphi -> Clever Components -> TclMailMessage.BuildMes


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru