Автоматизация Lotus Notes Text Style с помощью Perl? - PullRequest
Новая
       3

Автоматизация Lotus Notes Text Style с помощью Perl?

0 голосов
/ 27 июля 2011

Я пытаюсь автоматизировать отправку электронного письма со встроенным вложением и некоторым текстом, который реализует HTML-код, но кажется, что код, который я использую, не позволит мне создать текст с жирным шрифтом HTML или неупорядоченный список.Для двойной проверки я создал код в vba, затем передал его через конвертер vba в perl, и он совпал с тем, что я написал.Вот часть моего скрипта, которая обрабатывает создание текста и вложенного вложения в электронном письме: 

my $richStyle = $Document->NotesRichTextStyle();
$richStyle->{'PassThruHTML'} = 1;

my $Body = $Document->CreateRichTextItem('Body');

$Body->AppendText(">>EOT");
$Body->AppendStyle($richStyle);
**$Body->AppendText("<b>HELLO</b>");**
$Body->EmbedObject(EMBED_ATTACHMENT,'','$filename','$name');

Я получаю эту ошибку:

Не ссылка на HASH в строке $ richStyle-> {'PassThruHTML'} = 1;

Основной смысл этого кода заключался в том, чтобы я мог использовать теги HTML внутри электронного письма

Ответы [ 3 ]

1 голос
/ 27 июля 2011

Моя лучшая догадка: 

my $richStyle = $Document->NotesRichTextStyle();

Из справки дизайнера: 

Set notesRichTextStyle = notesSession.CreateRichTextStyle( )

Вам необходимо создать notesRichTextStyle, используя сеанс.

1 голос
/ 28 июля 2011

Полагаю, вы хотите создать письмо в формате HTML? В этом случае было бы лучше использовать классы сущностей MIME для генерации собственных писем HTML, а не полагаться на преобразование NotesRichText в HTML.

Более подробную информацию о сущности MIME можно найти в Справке дизайнера: http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/index.jsp?topic=/com.ibm.designer.domino.main.doc/H_NOTESMIMEENTITY_CLASS_OVERVIEW.html

0 голосов
/ 27 июля 2011 
$ perl -Mdiagnostics -e " []->{1}=2 "
Not a HASH reference at -e line 1 (#1)
    (F) Perl was trying to evaluate a reference to a hash value, but found a
    reference to something else instead.  You can use the ref() function to
    find out what kind of ref it really was.  See perlref.

Uncaught exception from user code:
        Not a HASH reference at -e line 1.
 at -e line 1

, поэтому, что бы ни возвращал NotesRichTextStyle, не нравится ->{...}, поэтому, возможно, используйте ->SetProperty... или что-то еще: /

...