testing :: copy it out from CAS during save and copy back during open QueryOpen
|
1 2 3 4 5 6 7 8 9 |
Dim testRTF As Variant Set testRTF = doc.GetFirstItem("C_AckAttach") If (testRTF.type = RICHTEXT) Then Call testRTF.Remove End If Set testRTF = New NotesRichTextItem(doc, "C_AckAttach") Dim rti As NotesRichTextItem Set rti = doc.GetFirstItem("testRTF2") Call testRTF.appendRTItem(rti) |
agent for saving doc
|
1 2 3 4 5 6 7 8 9 10 11 12 |
' TEST by HP 1808 Dim rti As Variant Set rti = doc.GetFirstItem("testRTF2") If (rti.type = RICHTEXT) Then Call rti.remove End If Set rti = New NotesRichTextItem(doc, "testRTF2") Dim rticas As NotesRichTextItem 'create new rti for testRTF2 Set rticas = doc.getFirstItem("C_AckAttach") Call rti.appendRTItem(rticas) ' end test |
明天終極一戰 要多d memory ~~ 你問我星期一有冇upload 過某template 上 UAT ….. 成四十幾個template … 鬼記得有冇搞過…… 陣容不整 ….. 被忘記了………….. 好慘 🙂 禪 ……. 係要”頓悟” 的…… 有緣千里來相會，無緣對面不相逢
上唔到newsgroup ….. 星期日晚組聚 ( 8 – 10 個掛 ) ~~~ 想去cafe 但又唔想 包場… 仔女話冇 $$ ~ 唔知book 得唔得既呢 …………… http://www.up4food.com/viewCafe.do?catererId=yaumukyan http://www.up4food.com/viewCafe.do?catererId=calefe 各位有冇好推介呢 ~~