[求助]在B/S下,如何在文档保存的时候,将附件放到RTF域中?

chxzh1999

同上!

suchen

你是想在rtf域中显示这个附件吗？

kissAngel

用代理，你看看下面的代码对你有没有用
Sub Initialize
        Dim s As New NotesSession
        Dim doc As NotesDocument
        Dim db As NotesDatabase
        Dim strForm As String
        Dim path As Variant
       
        Set db = s.Currentdatabase
        Set doc = s.DocumentContext
        strName = doc.form( 0 )
        'Print str1
        path = Evaluate(|@replacesubstring(@subset(@dbname;-1);" ":"\\";"+":"/")|,doc)
       
        doc.Form = "AttachNew"
        doc.OrgForm = strName
        Call doc.save(True,False)
        strForm = "/0/" + doc.universalid + "?EditDocument"
        Print "["+path( 0 )+strform+"]"       
End Sub

chxzh1999

谢谢楼上两位.
我已经用其他方法解决了.
本来是想放到RTF域里的,后来找到另一种方法在页面上显示附件了.现在就是还没做好删除附件.