Anyone sending VB code to control FAX server

[DougP]

I get an Error on line 2 &quot;Can't create Active X control&quot;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;Dim FaxServer As Object<br>&gt;&gt;&gt;&gt;&nbsp;&nbsp;&nbsp;&nbsp;Set FaxServer = CreateObject(&quot;FaxServer.FaxServer&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim FD As Object<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim ServerName As String<br>&nbsp;&nbsp;&nbsp;&nbsp;ServerName = &quot;\\SMALLBSERVER&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;FaxServer.Connect (ServerName)<br>&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim FileName As String<br>&nbsp;&nbsp;&nbsp;&nbsp;FileName = &quot;c:\TestFAX.doc&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;FD = FaxServer.CreateDocument(FileName)<br>&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;' Assign Display name<br>&nbsp;&nbsp;&nbsp;&nbsp;FD.DisplayName = Forms![frm-CreatePO]![dbo_Suppliers subform].Form![CONTACT]<br>&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;' Assign FAX Number<br>&nbsp;&nbsp;&nbsp;&nbsp;FD.FaxNumber = &quot;367-3397&quot; ' FaxNumber<br> <p>DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br> Ask me how Bar-codes can help you be more productive.

 

[finster]

I assume that this code is running on a Win2000/XP server with the shared fax service installed? if not, then there's the first problem ...