Dear All,
I have developed a workflow application with a function of sending email notification with document link. Upon user click on the submit action, the application should auto send out a email notification with document link.
The recipient managed to recieved the email notification but without document link.
I have been using the same function and code in my other workflow application databases, it work fine.And being debug the code using Notes debugger, it run through the Appenddoclink without any error. But don’t know why the email notification sent out without doc link.
Below are the function to send out email notification with doc link :
Sub MailSend( cSendTo As String, Subject As String, Content As Variant)
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim i As Integer
On Error Resume Next
Set newDoc = New NotesDocument(WF_CurDb )
Set rtitem = New NotesRichTextItem(newDoc, "Body" )
newDoc.SendTo = cSendTo
newDoc.Subject = Subject
For i=0 To Ubound(Content)
Call rtitem.AppendText(Content(i))
Call rtitem.Addnewline(1)
Next
Call rtitem.AppendText(“Click on the doclink below to view problem details.”)
Call rtitem.Addnewline(1)
Call rtitem.AppendDocLink (WF_curdoc,“Click the doclink for detail.”)
Call newDoc.send(False)
End Sub
I hope anyone who face same problem before could share with me your solution to overcome this problem.
Thanks very much in advance.