HAi All, I am running a agent in web which saves attachments in c: drive.
When I am wring the agent in Local server its working well.
But when I am running the agent in server its giving me error.
Agent ‘agent1’ error: Disk i/o is a restricted
in the server its shows.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
fileCount = 0
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
fileCount = fileCount + 1
'Call o.ExtractFile ( "c:\Attachment" & Cstr(fileCount) )
Call o.ExtractFile ( "e:\Attachment" & Cstr(fileCount) )
Print|<script>alert("|+"File Saved As Attachment"& Cstr(fileCount)+|")</script>|
End If
End Forall
End If