>In the smtpmail.prg, this is the createobject line.
>
>

>
>Sock=create('mswinsock.winsock')
>** OR
>*Sock=create('vfpWinSock')
>** to use the winsock emulator class below (wayyyy below!) to avoid
>**   the licensing issues stemming from OCX's, and to avoid having to
>**   register MSWINSCK.OCX on the customers' machines.
>
>

>
>My new class name is "Oletest1.vsx" and the name is "Oletest". Did you mean that I should change "Sock=create('mswinsock.winsock')" to sock=create( --??--).

Yes, change it to

Sock = newobject('OleTest','OleTest1.vcx')