Hi All, I am writing a agent for mail as well as I am sending the url of the document.
All things are fine but The url is not created.
Dim session As New NotesSession
Dim doc As NotesDocument
Dim docm As NotesDocument
Dim db As NotesDatabase
Set db=session.CurrentDatabase
Set docm= New NotesDocument(db)
Dim richstyle As NotesRichTextStyle
Dim bodyitem As New NotesRichTextItem(docm,"body")
Set richstyle=session.CreateRichTextStyle
richstyle.Bold=True
richstyle.FontSize=12
richstyle.NotesColor=COLOR_BLUE
richstyle.NotesFont=FONT_HELV
Set doc=session.DocumentContext
emailreq=doc.emailaddress(0)
applicant=doc.Applicant(0)
empno=doc.E_No(0)
frmdt=doc.s_date(0)
todt=doc.e_date(0)
purpose=doc.purpose(0)
dutyjoin=doc.resume(0)
altname=doc.alternate_name(0)
docm.form="Memo"
docm.subject="Leave request "
docm.sendto=Cstr(emailreq)
nid = doc.UniversalId
aUrl = "http://192.168.8.13/leave.nsf/"+Selection+"/"+Cstr(nid) +"?OpenDocument"
Call bodyitem.AppendText(aUrl)
Call bodyitem.AppendText(" Mr ")
Call bodyitem.AppendText(applicant)
Call bodyitem.AppendText(" Wants leave from ")
Call bodyitem.AppendText(frmdt)
Call bodyitem.AppendText(" to ")
Call bodyitem.AppendText(todt)
Call bodyitem.AppendText(" for ")
Call bodyitem.AppendText(purpose)
Call bodyitem.AppendText(". He will join on ")
Call bodyitem.AppendText(dutyjoin)
Call bodyitem.AppendText(". In his absence ")
Call bodyitem.AppendText(" Mr ")
Call bodyitem.AppendText(altname)
Call bodyitem.AppendText(" will look his work. ")
Call bodyitem.AddNewline(1)
Call bodyitem.AppendText("For More Deatails Please Follow The Link---------->")
Call bodyitem.AddNewline(5)
Call docm.save(True,True)
docm.Send(False)
====================
please guide me