any notes experts please chime in .. I need some direction

[$mokey]

So here is the deal. We are using Domino but we don't have admin rights to it. Our parent company won't allow it so we can't run a BES off it for blackberries. So here's our workaround solution

We've given one user editor access to each ACL of each mailfile we want to have running on blackberries.

1. We have a client machine with notes 6.5 that runs every 5 minutes replicating everyones mail from our Parent company's domino server to a local client machine.

2. From the client machine we have an agent that runs every 10 minutes that replicates from local to our Domino server that we have setup with BES running.

That's pretty much it but we've came across some issues in that the mail doesn't seem to be properly replicating to our BES server from the client machine. It's hit a miss when its running on the schedule. We can run the agent manually and all the mail replicates. Here is the code of the agent.

Can anyone think of a better solution or an agent that actually works correctly?

Sub Initialize
Dim dbdir As New NotesDbDirectory("" )
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)

If ( db.DesignTemplateName = "StdR6MailV2" Or db.DesignTemplateName = "StdR6Mail" Or db.DesignTemplateName = "ExtR7Mail" Or db.DesignTemplateName = "StdR7Mail" Or db.DesignTemplateName = "StdR6MailV2_Siebel" Or db.DesignTemplateName = "StdR85Mail_Siebel" Or db.DesignTemplateName = "StdR85Mail" ) Then
Msgbox db.Title, , db.FileName

Call db.Replicate("cwcbes01")
End If

Set db = dbdir.GetNextDatabase

Wend

End Sub