Re: AFax - device options

BTW. I've read following:

Fax Automation Solution Allow You To:
save money and streamline business processes by automating document 
delivery via fax instead of manual faxing 
centrally manage all outgoing and received faxes 
receive email notification that your faxed document made it to its 
destination 
automate the delivery of documents such as purchase orders, order 
acknowledgments, and invoices 
format existing documents with logos, bar codes, fonts, highlights, 
and add attachments such as terms and conditions
intelligently route incoming faxes directly to any email inbox, 
through workflow, and archive 
extract information from received faxes for routing, database update, 
storage 
fax from any desktop application 
provide an audit trail of all sent and received faxes 

Want you have this solution by AutoIt?

Valery

--- In [email protected], "valery_vi" <shehrer1@...> wrote:
>
> Hi,
> 
> Early I had problems with fax sending but today my fax device is 
> working fine (ACorp modem - $20). So I want to automate it's hard 
job 
> by AutoIt.
> 
> This is first simple AutoFax script which can connect to my 
FaxServer 
> and show it's options:
> 
> ; Important note:
> ; Minimum operating systems Windows XP, Windows Server 2003 
> 
> Global $FaxServer, $FaxActivity, $FaxDevices, $FaxDevice
> Dim $MsgTitle = 'Fax Sample'
> 
> $FaxServer = ObjCreate('FaxComEx.FaxServer')
> if Not IsObj($FaxServer) then 
>   MsgBox(0,$MsgTitle, 'FaxServer was not created!')
>   exit
> endif
> 
> ; Connect to the local fax server. 
> $FaxServer.Connect('')
> if @Error then 
>   MsgBox(0,$MsgTitle, 'FaxServer was not connected!')
>   exit
> endif
> MsgBox(0,$MsgTitle, 'FaxServer connected!')
> 
> $FaxActivity = $FaxServer.Activity
> if Not IsObj($FaxActivity) then 
>   MsgBox(0,$MsgTitle, 'FaxActivity was not created!')
>   exit
> endif
> MsgBox(0,$MsgTitle, 'FaxActivity created!')
> 
> ;Refresh the activity object
> $FaxActivity.Refresh()
> 
> ;Retrieves a list of fax devices
> $FaxDevices = $FaxServer.GetDevices()
> if Not IsObj($FaxDevices) then 
>   MsgBox(0,$MsgTitle, 'FaxDevices were not obtained!')
>   exit
> endif
> 
> MsgBox(0,$MsgTitle, 'FaxServer has ' & $FaxDevices.Count & ' 
> devices..')
> 
> $FaxDevice = $FaxDevices.Item(0)
> if Not IsObj($FaxDevice) then 
>   MsgBox(0,$MsgTitle, 'FaxDevice was not obtained!')
>   exit
> endif
> 
> $Msg = ''
> $Msg &= ' CSID: ' & $FaxDevice.CSID & @CrLf 
> $Msg &= ' TSID: ' & $FaxDevice.TSID & @CrLf 
> $Msg &= ' Description: ' & $FaxDevice.Description & @CrLf 
> $Msg &= ' Name: ' & $FaxDevice.DeviceName & @CrLf 
> $Msg &= ' Id: ' & $FaxDevice.Id & @CrLf 
> $Msg &= ' PoweredOff: ' & $FaxDevice.PoweredOff & @CrLf 
> $Msg &= ' ProviderUniqueName: ' & $FaxDevice.ProviderUniqueName & 
> @CrLf 
> $Msg &= ' ReceiveMode: ' & $FaxDevice.ReceiveMode & @CrLf 
> $Msg &= ' SendEnabled: ' & $FaxDevice.SendEnabled & @CrLf 
> 
> MsgBox(0,$MsgTitle, 'FaxDevice' & @CrLf & $Msg)
> 
> Enjoy,
> Valery
> 
> PS. Really my goal is to extract TIFF image from Fax device. I 
would 
> like to use this weird method to convert any text documents into 
> image form.
> :-)
>