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

[Shureg]

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

 

[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)

 

[Medevic]

@Command([Compose]; @MailDbName; "Reply"])

Может форма Memo всё-таки? Reply - это ответ.

 

[KLif]

Может форма Memo всё-таки? Reply - это ответ.

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

 

[Shureg]

Может форма Memo всё-таки? Reply - это ответ.

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

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

Нее, база стандартная, лотусовая

Попробовал

@Command([Compose]; @MailDbName; "Memo");
@UpdateFormulaContext;
FIELD SendTo := "123@mail.ru";

поле SendTo не заполняется(((

 

[Medevic]

@Command([MailComposeMemo]);
@UpdateFormulaContext;
@SetField("EnterSendTo"; "123@mail.ru")

 

[Shureg]

Set maildb = session.GetDatabase(server, path)

Поясните, что нужно указать в качестве path, плз? Путь к чему?

 

[Medevic]

Поясните, что нужно указать в качестве path, плз? Путь к чему?

Путь к почтовой базе.

 

[Shureg]

@Command([MailComposeMemo]);
@UpdateFormulaContext;
@SetField("EnterSendTo"; "123@mail.ru")

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

 

[KLif]

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

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

 

[Shureg]

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

 

[Akupaka]

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

@URLOpen("mailto:usermail@mail.com")

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

 

[Shureg]

Интересная и очень простая реализация)) Спасибо)

 

[morpheus]

а можно и так
https://codeby.net/threads/14072.html