POP3 Account
With this method the current client Mail 2 Fax can be used
With this method there are again two clients, with which faxes can be sent:
- with the individual client, which sends faxes on a web page - DCOM
Methods syntax of the Visendo Fax Server component
InitConnection-method
FaxSvr.InitConnection FileExtension As String, Username As String, DeliveryTime As String |
SendFile-method
FaxSvr.SendFile( FileBuffer ) |
Send-method
Return As Bool = FaxSvr.Send(FaxNr As String, Email As String, Username As String, DeliveryTime As String, NumberofRetries As Long, FileExtension As String |
EndConnection-method
On some web pages you can find a fax feature. That is, you can usually enter a text and send this text as fax to a certain number. Some of this web pages even offer a service, with which you can send pictures as fax. With the help of a new product now everyone can build such a fax service into his Website.
The fax functionality is provided by the product Visendo Fax Server of the company ppedv , which is freely available as beta version for a short time. Here is the link.
Requisites:
See above.
This software already contains a functional WebClient, with which you can fax. This will only be installed if you installed IIS. In a subdirectory of Visendo Fax Server an ASP side named faxsender.asp is located. This side contains field validations, upload and fax function.
In the following article it was already discussed, how you can accomplish an upload.
The fax feature:
In this article we only want to concentrate on the fax function itself. I will show here a short hardcoded example, how you can send a fax with ASP. Naturally the fixed registered values in the example should be inserted dynamically over a form. Here is the pure functionality:
<%@ Language=VBScript %>
<%
const C_lBUFFERSIZE = 4096 , maximale BufferSize
on error resume next Fax Komponente instantiieren
set FaxSvr = Server.CreateObject("FaxServer.FaxServer")
, Verbindung herstellen
FaxSvr.InitConnection cstr("jpg"), cstr("DemoUser"), cstr(time())
, Datei als Binar-Stream an FaxServer Komponente ubergeben!
, Die FaxSvr-Komp. kann nur einen maximalen Buffer von 4096 Bytes lesen
set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile Server.MapPath("./images/ppedv1.jpg")
st.Position = 0
do until st.EOS
, Buffer senden
FaxSvr.SendFile st.Read(C_lBUFFERSIZE)
loop
set st = nothing
, Fax beschreiben
x = FaxSvr.Send(cstr("44"), _
cstr("bernharde@ppedv.de "), cstr("DemoUser"), _
cstr(time()), clng("3"), cstr("jpg"))
, Verbindung beenden
FaxSvr.EndConnection()
set FaxSvr = Nothing
, Check ob Fax senden erfolgreich
if err.number = 0 then
sMsg = "Fax gesendet."
else
sMsg = "Fax senden fehlgeschlagen."
end if
on error goto 0
Response.Write sMsg
%>
Notes:
*UserID = The current announced user--> can also be implemented over an ASP based login.
*ADODB.Stream = This Object gives ASP the possibility to handle data fully binary.
*sFileExt = Valid formats in the beta version are: jpg, bmp, tif, sff, txt, pcx.
TIP!
The faxes already sent will be stored in a access database, these you can also indicate with each ASP side. Look for the file sentfaxes.asp.
|