Dit is de code die ik ingeef maar het opent enkel winfax door de shell functie maar voor de rest doet het niets.
Het rare is dat het ook geen foutmelding geeft, ik heb overal op het internet gezocht maar niets gevonden dus dit is mijn laatste hoop.
hier is de code
Dim I
Dim channel As Variant
I = Shell("C:\Program Files\WinFax\FAXMNG32.EXE", 6) 'winfax openen
Set db = DBEngine.Workspaces(0).Databases(0)
channel = DDEInitiate("FAXMNG32", "control") 'de faxlink maken
Debug.Print DDERequest(channel, "STATUS")
Debug.Print channel
DDETerminate channel
channel = DDEInitiate("FAXMNG32", "TRANSMIT") 'de faxlink make
Debug.Print channel
DDEExecute channel, "GoIdle"
Debug.Print channel
Dim strRecipient As String
DDEPoke channel, "sendfax", "recipient(" + Chr$(34) + "1(905)5553545" + Chr$(34) + ",,,," + Chr$(34) + "Cautbien & Sons" + Chr$(34) + "," + Chr$(34) + "BFT" + Chr$(34) + ")"
Het rare is dat het ook geen foutmelding geeft, ik heb overal op het internet gezocht maar niets gevonden dus dit is mijn laatste hoop.
hier is de code
Dim I
Dim channel As Variant
I = Shell("C:\Program Files\WinFax\FAXMNG32.EXE", 6) 'winfax openen
Set db = DBEngine.Workspaces(0).Databases(0)
channel = DDEInitiate("FAXMNG32", "control") 'de faxlink maken
Debug.Print DDERequest(channel, "STATUS")
Debug.Print channel
DDETerminate channel
channel = DDEInitiate("FAXMNG32", "TRANSMIT") 'de faxlink make
Debug.Print channel
DDEExecute channel, "GoIdle"
Debug.Print channel
Dim strRecipient As String
DDEPoke channel, "sendfax", "recipient(" + Chr$(34) + "1(905)5553545" + Chr$(34) + ",,,," + Chr$(34) + "Cautbien & Sons" + Chr$(34) + "," + Chr$(34) + "BFT" + Chr$(34) + ")"
