How to open a document in Notes Client in web(mail with link to document) using NotesURL command.
I’d tried it, but it returns an error like this :
invalid directory name or device not ready
The code I used to send mail with link, like the one below :
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = New NotesDocument(db)
Dim recipient As String
recipient = “test@test.com”
'initialized Memo document for sending mail
Call doc.ReplaceItemValue(“Form”,“Memo”)
Call doc.ReplaceItemValue(“Principal”,“TESTING”)
Call doc.ReplaceItemValue(“SendTo”,recipient)
Call doc.ReplaceItemValue(“Subject”,“Testing”)
'make the body field
Dim rtitem As NotesRichTextItem
Set rtitem = New NotesRichTextItem(doc,“Body”)
Call rtitem.AppendText(“Dear " + recipient +”,")
Call rtitem.AddNewline(3)
Dim richStyles As NotesRichTextStyle
Set richStyles = session.CreateRichTextStyle
richStyles.PassThruHTML = True
'THIS CODE IS THE ONE I USED TO MAKE LINK IN THE WEB
Call rtitem.AppendStyle(richStyles)
Call rtitem.AppendText(“<A HREF=”“” + olddoc.NotesURL + “”“>” + “testingdoank” + “”)
richStyles.PassThruHTML = False
Call rtitem.AppendStyle(richStyles)
Call rtitem.AddNewline(3)
Set richStyles = Nothing
Call doc.Send(True)
Any one has solutions??
Thanks before