WD Sending a fax

// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------

// Connection to the fax server (service found in Windows 2000 or XP)
onnectID = FaxConnect()

// Check the connection to the fax server
IF onnectID = 0 THEN
// The other actions are not possible without connection
FaxGroup..State=Grayed

// Display the error message
Error("The connection to the fax server failed."+...
" Check whether it has been started", ...
ErrorInfo(errSystemMessage))
ELSE
// The other actions are possible
FaxGroup..State=Active
END

//-----------------------------------------------------

// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------

// The actions on the fax server are not accessible anymore
FaxGroup..State=Grayed

// Disconnection from the fax server
FaxDisconnect(onnectID)