Creating a ReplicationPostingAcceptor Object

You create a new ReplicationPostingAcceptor object by calling the ReplicationServer.OpenPostingAcceptor method, as in the following example, where ReplPA is the name you give to the new ReplicationPostingAcceptor object:

Option Explicit 
On Error Resume Next

dim ReplServer
set ReplServer = CreateObject("Crsapi.ReplicationServer")
ReplServer.Initialize("")

dim ReplPA
set ReplPA = ReplServer.OpenPostingAcceptor
...

'Release objects
set ReplServer = Nothing
set ReplPA = Nothing