Automatically save attachments to network drive

I have a mail-in database that receives e-mail with attachments. We need these attachments automatically saved...

to a network drive. I've found some code that will detach the file and save it to the network and document where it saved it to, but this only works when run from the client manually. I need an agent that will run on the server either on all new documents that will detach the file to the network drive.

Here's the code I've used to do it manually. How can this be tweaked to run from the server on a scheduled basis? If I use the code as is, in an agent set to run on a schedule, it does not run.

Sub Initialize 
        Dim session As New NotesSession 
        Dim db As NotesDatabase 
        Dim doc As NotesDocument 
        Dim dc As NotesDocumentCollection 
        Dim rtitem As Variant 
        Dim attachname As String 
        Dim filename As String 
        Dim body As NotesRichTextItem 
        Dim emphasize As NotesRichTextStyle 
        
        Set db = session.CurrentDatabase 
        Set dc = db.UnprocessedDocuments 
        Set doc = dc.GetFirstDocument 
        Set rtitem = doc.GetFirstItem( "Body" ) 
        
        If ( rtitem.Type = RICHTEXT ) Then 
Forall obj In rtitem.EmbeddedObjects 
If ( obj.Type = EMBED_ATTACHMENT ) Then 
Set emphasize = session.CreateRichTextStyle 
emphasize.Bold = True 
emphasize.NotesColor = COLOR_RED 
Set body = doc.GetFirstItem("Body") 
Call rtitem.AddNewLine( 2 ) 
Call body.AppendStyle(emphasize)         
attachname = obj.source 
Call obj.ExtractFile
( "\\
QDSWJDE1AMstarUnProcessed\" 
& attachname ) 
                                
Call rtitem.AddNewLine( 2 ) 
Call rtitem.AppendText(( "Your file was 
downloaded to\
\QDSWJDE1AMstarUnProcessed 
as filename: " ) & 
attachname) 
Call doc.Save( False, True ) 
                                
                        End If 
                End Forall 
        End If 
End Sub