Back in April, I mentioned that version 9.0.1 would include a new function (RTI_SENDFAX) that provides OpenInsight developers with the ability to send a fax directly from within OpenInsight (from Basic+ to be precise) using the standard Windows Fax Server that is included in Windows XP, Vista, Server 2003 and Server 2008.
Revelation have recently released an example of how to use this new function and it is copied below.
0001 Declare Function RTI_SendFax
0002 ReceiverFax = "+44 123 4567 8910"
0003 ReceiverName = "Bill Smith"
0004 Subject = "A Fax from OpenInsight's "
0005 Subject:= "RTI_SendFax"
0006 Note = "This is a test fax" : @vm
0007 Note:= "from the" : @vm :
0008 Note:= "RTI_Sendfax command"
0009 CoverPage = ""
0010 HostFile = ""
0011 ItemName = "c:\revdotnet.txt"
0012 SenderName = ""
0013 SenderEmail = me@myemailaddress.com
0014 SenderFax = "01234 567891"
0015 FaxServer = ""
0016 SendFax_Status = ""
0017 JobID = RTI_SendFax(ReceiverFax, ReceiverName,
Subject, Note, CoverPage, HostFile, ItemName,
SenderName, SenderEmail, SenderFax, FaxServer,
SendFax_Status)
0018 If jobId Else
0019 * Error Handling
0020 end
0002 ReceiverFax = "+44 123 4567 8910"
0003 ReceiverName = "Bill Smith"
0004 Subject = "A Fax from OpenInsight's "
0005 Subject:= "RTI_SendFax"
0006 Note = "This is a test fax" : @vm
0007 Note:= "from the" : @vm :
0008 Note:= "RTI_Sendfax command"
0009 CoverPage = ""
0010 HostFile = ""
0011 ItemName = "c:\revdotnet.txt"
0012 SenderName = ""
0013 SenderEmail = me@myemailaddress.com
0014 SenderFax = "01234 567891"
0015 FaxServer = ""
0016 SendFax_Status = ""
0017 JobID = RTI_SendFax(ReceiverFax, ReceiverName,
Subject, Note, CoverPage, HostFile, ItemName,
SenderName, SenderEmail, SenderFax, FaxServer,
SendFax_Status)
0018 If jobId Else
0019 * Error Handling
0020 end
No comments:
Post a Comment