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

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

Shureg

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

KLif

#2
Доброго времени суток! Помогите начинающему лотусисту, плз.
Есть 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

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

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

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
Код:
@Command([MailComposeMemo]);
@UpdateFormulaContext;
@SetField("EnterSendTo"; "123@mail.ru")
 
K
#10
Спасибо огромное!! Заработало)) Подскажи еще плз, а как терь вместо строки "123@mail.ru" подставить значение поля из БД с поручениями (поле ctbAuthor)
Код:
Address := @GetField("ctbAuthor");
@Command([MailComposeMemo]);
@UpdateFormulaContext;
@SetField("EnterSendTo"; Address)
 
S

Shureg

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#12
вот забавный вариант :)

Код:
@URLOpen("mailto:usermail@mail.com")
непременно попытается запустить Вашу почтовую (по-умолчанию) программу и создаст исходящее письмо с указаным адресатом ;)
 
S

Shureg

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