NOOP Method

Do null operation to keep remote TCP/IP connection alive.

long NOOP()

Return Value

Return value is zero if this method succeeds; otherwise return value is non-zero.

Remarks

If you use TCP/IP to access server, you need to use NOOP method of ServerRoot to keep the TCP/IP connection alive if you don't invoke any method of emailarchitectobjects in "Connection timeout" interval.

Usage Example

Dim server, user, password, requestAddr
server = "mail.adminsystem.com 7328" 'access remote server by TCP/IP
user = "myuser@adminsystem.com"
password = "mypassword"
requestAddr = "192.168.0.1"

Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot")
r = oSvr.Connect( server, user, password, 0, requestAddr ) 
If r <> 0 Then
  WScript.Echo( "connect server failed!" )
  WScript.Quit
End If

Dim i, nCount
nCount = 10000
For i = 0 To nCount
  'do other thing
  oSvr.NOOP 'send null request to server.
Next