Thanks for your reply. Below is a copy of my code:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim names As NotesDatabase
Dim view As notesview
Dim namesView As NotesView
Dim z As String
Dim resetDocID As String
Dim namesDocID As String
Dim resetDoc As NotesDocument
Dim namesDoc As NotesDocument
Dim outp As String
Set db = session.CurrentDatabase
Set doc = db.createdocument
doc.form = "Memo"
doc.subject = "Hello"
Call doc.send(False, "Viraj.Patel@abc.co.uk")
End Sub
I have have tried your code and that does not work either.
Think it will be best if you post here what errors are you getting - you can get them from either the server console or search for them in the server log file (log.nsf).There has got to be an error associated with your agent if it is falling over!