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

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

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

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

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

Изменение значение поля одной БД из другой

  • Автор темы Shureg
  • Дата начала
S

Shureg

Доброго времени суток! Помогите начинающему лотусисту, плз.
Есть 2 БД на одном сервере. Одна - почтовая, другая - с поручениями. Задача состоит в следующем: надо в форме поручения сделать кнопку, которая запускала бы почтовую форму с заполненным полем SendTo (в качестве значения поля SendTo - адрес составителя поручения). Кнопку создал. Для ссылки на нужную форму использую формулу:
@Command([Compose]; @MailDbName; "Reply"])
При нажатии форма открывается, но SentTo содержит ненужные мне адреса. Подскажите, плз, какую-нить формулу или скриптик для моей кнопки, чтоб он задавал значение определенного поля, определенной формы в другой БД.
 
K

KLif

Доброго времени суток! Помогите начинающему лотусисту, плз.
Есть 2 БД на одном сервере. Одна - почтовая, другая - с поручениями. Задача состоит в следующем: надо в форме поручения сделать кнопку, которая запускала бы почтовую форму с заполненным полем SendTo (в качестве значения поля SendTo - адрес составителя поручения). Кнопку создал. Для ссылки на нужную форму использую формулу:
@Command([Compose]; @MailDbName; "Reply"])
При нажатии форма открывается, но SentTo содержит ненужные мне адреса. Подскажите, плз, какую-нить формулу или скриптик для моей кнопки, чтоб он задавал значение определенного поля, определенной формы в другой БД.

@:

Код:
@Command([Compose]; @MailDbName; "Reply"]);
@UpdateFormulaContext;
FIELD FieldName := Value;

LS:

Код:
Dim ws as New NotesUIWorkspace
Dim uidoc as NotesUIDocument

Dim session as New NotesSession
Dim maildb as NotesDatabase
Dim maildoc as NotesDocument

Set uidoc = ws.CurrentDocument
Set maildb = session.GetDatabase(server, path)
If Not maildb.IsOpen Then
Call maildb.Open(server, path)
End if

Set maildoc = maildb.CreateDocument
maildoc.Form = "форма"
Call maildoc.ReplaceItemValue("поле на форме", uidoc.FieldGetText("поле откуда брать значение"))
Call ws.EditDocument(True, maildoc)
 
S

Shureg

Может форма Memo всё-таки? Reply - это ответ.
Да можна и ее. Прост Reply юзал так как в ней уже было автоматическое заполнение поля "Кому"(правд не тем адресом, который мне нужен)

Мне почему то подумалось, что это не стандартная почтовая база лотуса, а какая-то самописная БД, которая хранит уведомления ....
Нее, база стандартная, лотусовая

Попробовал
Код:
@Command([Compose]; @MailDbName; "Memo");
@UpdateFormulaContext;
FIELD SendTo := "123@mail.ru";
поле SendTo не заполняется(((
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Код:
@Command([MailComposeMemo]);
@UpdateFormulaContext;
@SetField("EnterSendTo"; "123@mail.ru")
 
S

Shureg

Код:
@Command([MailComposeMemo]);
@UpdateFormulaContext;
@SetField("EnterSendTo"; "123@mail.ru")
Спасибо огромное!! Заработало)) Подскажи еще плз, а как терь вместо строки "123@mail.ru" подставить значение поля из БД с поручениями (поле ctbAuthor)
 
K

KLif

Спасибо огромное!! Заработало)) Подскажи еще плз, а как терь вместо строки "123@mail.ru" подставить значение поля из БД с поручениями (поле ctbAuthor)

Код:
Address := @GetField("ctbAuthor");
@Command([MailComposeMemo]);
@UpdateFormulaContext;
@SetField("EnterSendTo"; Address)
 
S

Shureg

Ура, действует!! Спасибо и респект всем кто помог!!!))))
 
A

Akupaka

вот забавный вариант :)

Код:
@URLOpen("mailto:usermail@mail.com")

непременно попытается запустить Вашу почтовую (по-умолчанию) программу и создаст исходящее письмо с указаным адресатом ;)
 
S

Shureg

Интересная и очень простая реализация)) Спасибо)
 
Мы в соцсетях:

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