>>ox = CREATEOBJECT( "MSWinsock.Winsock.1) >>ox.RemoteHost = 'acs-server' && Substitute server name >>ox.RemotePort = 1001 && Substitute as needed >>ox.Connect() >>? ox.State && Returns 7 (Connected) >>ox.SendData( "Something or other" ) >>ox.Close() >>RELEASE ox >>>
>ox = CREATEOBJECT( "MSWinsock.Winsock.1" ) >ox.RemoteHost = 'mail.someserver.com' && E-mail server >ox.RemotePort = 25 && SMTP >ox.Connect() > <b>>DO WHILE ox.State < 7 > ? ox.State && Returns 7 (Connected) >ENDDO</b> > >?ox.State > >IF ox.State = 7 > ?"Connected" > ox.SendData( "Something or other" ) >ENDIF > >ox.Close() >RELEASE ox > >>