• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Вставить массив данных в письмо Lotus Script

  • Автор темы lensu1
  • Дата начала
L

lensu1

Есть поле документа Reviewers, которая содержит несколько Фио через запятую
Reviewers: Иванов иван Иванович, Петров Петр Петрович, Сидоров Сидр Сидорович

Наша задача - товарищей из этого поля перенести в тело письма/
В агенте указываю следующее

Dim reviewers As Variant
........

reviewers = Evaluate ("Reviewers", note)
Call Body.AppendText (subj(0) & Chr(13) & reviewers(0))


В итоге в письме в нужной строке попадает только первый челвоек - иванов Иван Иванович.

Подскажите, где ошибка? Как закинуть в текст письма всех людей?
 

dimat

Well-known member
31.07.2008
508
0
BIT
0
Dim nri as NOtesRichTextItem
Set nri=note.GetFirstItem("Reviewers")
Reviewers$=nri.text
call Body.AppendText(subj(0) & Chr(13)+chr(10) & Reviewers$)
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
reviewers = Evaluate ("Reviewers", note)
Это что такое? :facepalm:
reviewers = note.GetItemValue("Reviewers")

Call Body.AppendText (subj(0) & Chr(13) & reviewers(0))


В итоге в письме в нужной строке попадает только первый челвоек - иванов Иван Иванович.

Подскажите, где ошибка? Как закинуть в текст письма всех людей?
Call Body.AppendText (subj(0) & Chr(13) & Join(reviewers, ", "))
 

Cleric-Lviv

Well-known member
03.01.2008
603
0
BIT
0
lensu1

на будущее: метод Evaluate предназначен для вичиления собако-формул в скрипте, и применять ево для вичиления значения поля некоректно.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!