I have create a gaent which is copy a mail to common database & send a link mail to selected user. It is workig on Lotus Notes but I need it web version, please any one help me.
Sub Initialize
Dim uiws As New notesuiworkspace
Dim nSuccess As Variant
Dim w As notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim archiveDb As NotesDatabase
Dim db As NotesDatabase
Dim dateTime As NotesDateTime
Dim doc As NotesDocument
Dim j As Integer
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim TempDoc As NotesDocument
nSuccess=uiws.PickListStrings( PICKLIST_NAMES , True)
If ( Isempty( nSuccess ) ) Then
Messagebox “Please Select User” , ,“Canceled”
Else
Forall plist In nSuccess
messagelist = messagelist & plist & Chr(10)
End Forall
Messagebox messagelist , , “User selected”
Set archiveDB= New NotesDatabase(“IN-KOLMAIL001.magma.co.in”,“help\test”)
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
For j = 1 To collection.Count
Set doc = collection.GetNthDocument( j )
doc.Author =nSuccess
Set TempDoc = New NotesDocument( archiveDb)
Call doc.CopyAllItems( TempDoc, True )
Call TempDoc.Save( True, True )
'Call doc.CopyToDatabase( archiveDb )
'++++++++++++++++ Send Mail ++++++++++++++++++++
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, “Body” )
Call rtitem.AppendDocLink ( TempDoc, doc.Subject(0) )
newDoc.Subject = “Here is a link document in the Repository Database”
newDoc.SendTo = nSuccess
Call newDoc.Send( False )
'+++++++++++++++++++++++++++++++++++++++++
Next
End If
End Sub