[範例來源：developerWorks > Lotus > Forums & community > Notes/Domino 6 and 7 Forum ]
也是我自己所遇過的情形之一：
問題：
AppendDocLink in Script not working
Posted by F1 Help on 12.Jul.07 at 上午 07:02 using a Web browser
Category: Domino DesignerRelease: 6.5.4Platform: Windows XP
Hi There,
I have a script library, and in there i would like to send a mail with a doc link to the relevent document. here is the code in the script :
Sub SendEmail(w,uidoc,strstatus)
'declare variables
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim maildoc As NotesDocument
Dim strStatusDesc As String
'Set the variables
Set db = s.CurrentDatabase
Set doc = uidoc.document
Set maildoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(maildoc, "Body")
'Assign a User-Friendly quote to the status number
If strstatus = "5" Then
strStatusDesc = "Awaiting Quote."
Elseif strstatus = "10" Then
strStatusDesc = "Awaiting Authorisation."
Elseif strStatus = "15" Then
strStatusDesc = "Order Placed."
Elseif strstatus = "20" Then
strStatusDesc = "Order Delivered"
Elseif strstatus = "25" Then
strStatusDesc = "Order Dispatched"
End If
'Prepare subject and body text
maildoc.subject = "Your I.T. Order is at status : " & strStatusDesc
maildoc.SendTo = doc.UName(0)
maildoc.Body = "Hello"
'Attach DocLink
Call rtitem.AppendDocLink(doc,"Your Order","")
'Send Mail
maildoc.Send(False)
End Sub
----
解決方式 ：
Check in your database no Default view are there ....
untill unless have one difault view to send doclink
因為在資料庫中 沒有 預設的視界 ；只要再將資料庫的重新設定「預設的視界」，即可運作。
因為adj習慣用bash...QQ)