我試圖將應用程序的字段值傳遞到在瀏覽器中打開的我自己的郵件數據庫。在瀏覽器中的xpages郵件nsf
我得到了整個URL(我的第一反應:哇,這麼長)
https://server/MyName.nsf/($Inbox)/$new/?EditDocument&Form=h_PageUI&PresetFields=h_EditAction;h_New,s_NotesForm;Memo,s_ParentContentId;($Inbox)1,s_ViewName;(%24Inbox),s_InheritAttachment;false,s_SortOrder;1,s_SortColumnPN;$70&ui=portal
我怎麼可以參考輕易給收件人場? (To:
字段)從郵件數據庫?
我想使用一個sessionScope來選擇所需的值,然後將它傳遞給上述字段。
我做了使用LotusScript這樣的事情在Lotus Notes應用程序的上述要求:
Sub Click(Source As Button)
// soome declarations
Set db=s.CurrentDatabase
Dim dcc As NotesDocumentCollection
Set dcc = db.UnprocessedDocuments
Dim item As NotesItem
Set doc = dcc.GetFirstDocument
' em$=doc.nms_Email(0)
While Not (doc Is Nothing)
If doc.HasItem ("nms_Email") Then
Set item=doc.GetFirstItem("nms_Email")
Else
If doc.HasItem ("txt_Email") Then
Set item=doc.GetFirstItem("txt_Email")
Else
Messagebox "No value for the field!"
Exit Sub
End If
End If
Forall e In item.values
If Len(e) > 2 Then em$=em$+e+"; "
End Forall
Set doc=dcc.GetNextDocument(doc)
Wend
If em$=";" Then Exit Sub
test$=Strleftback(em$, ";")
var=Evaluate({@Explode("} & test$ & {"; ";")})
var2=Evaluate("@MailDbName")
mdb$=var2(1)
msv$ =var2(0)
Set dbm=s.GetDatabase(msv$, mdb$, False)
Set docW = dbm.CreateDocument
docW.form = "Memo"
docW.SendTo=var
Set uidoc = w.EditDocument(True,docW)
End Sub
可是我該怎麼辦XPages中同樣的事情?
最有可能不可能,除非您添加邏輯到您的郵件模板從URL讀取參數。 – 2014-10-02 06:32:46