How do I put a Notes link in an email to link to a Notes DB? I would think it goes here → Call rtitem.AppendText_( “Notes:\Server\DBName”)
I have the AppendDocLink working but don’t want to use that.
My Code:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim Flag As String
Dim user As String
Dim sentList List As String
user = session.UserName
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Dim view As NotesView
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set view = db.GetView( "My Verifications\By Status" )
Server = doc.DBServer(0)
DBName = doc.DBName(0)
SDB = Server + DBName
While Not(doc Is Nothing)
doc.Status = "Requires Verification"
doc.DocReaders = user
Call doc.Save( False, True )
If Not Iselement(sentList(doc.Dupont_ROS_Verifier(0))) Then
sentList(doc.Dupont_ROS_Verifier(0)) = doc.Dupont_ROS_Verifier(0)
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendText _
( "Notes:\\Server\DBName")
'Call rtitem.AppendText _
'( "Click on link to see the list of Employee/Hours under your responsibility ---> " )
Call rtitem.AppendDocLink _
( view, view.Name & " in " & db.Title )
newDoc.Subject = "Here is a link to the - My Verificaion - by Status View"
'Messagebox "Name : " & doc.Dupont_ROS_Verifier(0)
newDoc.SendTo = doc.Dupont_ROS_Verifier(0)
Call newDoc.Send( False )
End If
Set doc = collection.GetNextDocument(doc)
Wend