p2p.wrox.com: Archives - asp_components archive

asp_components thread: Web to Fax solution...

Message #1 by Russell Peto <russell.peto@i...> on Thu, 19 Jul 2001 11:51:12 +0100

Hi all,



I am trying to set up a cheap solution that will send faxes from an ASP

page.

Does anyone know of any services or components that will allow me to send

details from a form and have them faxed to a standard fax number?

Is it likely to be a one-off fee or pay per fax?



To be honest I'm all at sea here and would appreciate any kind of advice,

even if it's bad news!



Thanks in advance.



Russell

Message #2 by "Tim Morford" <tmorford@n...> on Thu, 19 Jul 2001 07:35:16 -0400

Well I have not seen a lot of Components out there for this, and Unfortunate

for me my clients all have very low budgets (hundreds not thousands) but

what I did was set up there home system with the Winfax that comes with MS

office Pro 2000 and there outlook. I would send the message to the outlook

via CDONTS then outlook would send the message via fax to the number in the

Subject Line. If you want exact instructions I can post them, just let me

know. Also remember that you need two types of Network going on here,

Broadband and Modem (if they have Broadband try to push them to a Internet

Fax service, I take out a couple of steps, or Modem to Modem but just

remember your IRQ's





Tim Morford



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: Thursday, July 19, 2001 6:51 AM

To: ASP components

Subject: [asp_components] Web to Fax solution...





Hi all,



I am trying to set up a cheap solution that will send faxes from an ASP

page.

Does anyone know of any services or components that will allow me to send

details from a form and have them faxed to a standard fax number?

Is it likely to be a one-off fee or pay per fax?



To be honest I'm all at sea here and would appreciate any kind of advice,

even if it's bad news!



Thanks in advance.



Russell

Message #3 by Steve Driscoll <SteveD@D...> on Thu, 19 Jul 2001 12:18:35 +0100

Try Zetafax



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: 19 July 2001 11:51

To: ASP components

Subject: [asp_components] Web to Fax solution...





Hi all,



I am trying to set up a cheap solution that will send faxes from an ASP

page.

Does anyone know of any services or components that will allow me to 

send

details from a form and have them faxed to a standard fax number?

Is it likely to be a one-off fee or pay per fax?



To be honest I'm all at sea here and would appreciate any kind of 

advice,

even if it's bad news!



Thanks in advance.



Russell

Message #4 by Russell Peto <russell.peto@i...> on Thu, 19 Jul 2001 13:08:36 +0100

Tim,



Thanks, that's a neat solution! Could you post exact instructions, if 

it's

possible?

Do these internet fax services do a similar thing... for a fee, in case 

of

people who don't have an

always-on internet connection?



I appreciate the help...



Russell



-----Original Message-----

From: Tim Morford [mailto:tmorford@n...]

Sent: 19 July 2001 12:35

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





Well I have not seen a lot of Components out there for this, and 

Unfortunate

for me my clients all have very low budgets (hundreds not thousands) 

but

what I did was set up there home system with the Winfax that comes with 

MS

office Pro 2000 and there outlook. I would send the message to the 

outlook

via CDONTS then outlook would send the message via fax to the number in 

the

Subject Line. If you want exact instructions I can post them, just let 

me

know. Also remember that you need two types of Network going on here,

Broadband and Modem (if they have Broadband try to push them to a 

Internet

Fax service, I take out a couple of steps, or Modem to Modem but just

remember your IRQ's





Tim Morford



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: Thursday, July 19, 2001 6:51 AM

To: ASP components

Subject: [asp_components] Web to Fax solution...





Hi all,



I am trying to set up a cheap solution that will send faxes from an ASP

page.

Does anyone know of any services or components that will allow me to 

send

details from a form and have them faxed to a standard fax number?

Is it likely to be a one-off fee or pay per fax?



To be honest I'm all at sea here and would appreciate any kind of 

advice,

even if it's bad news!



Thanks in advance.



Russell

Message #5 by "Tim Morford" <tmorford@n...> on Thu, 19 Jul 2001 15:04:22 -0400

I have not found a Free web fax service yet. And if the client has Windows

2000 you can use there Fax server capabilities, But I did not have that

option. I will start to post the code in Three or Four parts if that is ok

with the List Manager, I might also post Screen shots of the Winfax and

Outlook setup, (let me know if this is ok to do list master!), If not I will

start with just the code tonight.



Tim



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: Thursday, July 19, 2001 8:09 AM

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





Tim,



Thanks, that's a neat solution! Could you post exact instructions, if it's

possible?

Do these internet fax services do a similar thing... for a fee, in case of

people who don't have an

always-on internet connection?



I appreciate the help...



Russell



-----Original Message-----

From: Tim Morford [mailto:tmorford@n...]

Sent: 19 July 2001 12:35

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





Well I have not seen a lot of Components out there for this, and Unfortunate

for me my clients all have very low budgets (hundreds not thousands) but

what I did was set up there home system with the Winfax that comes with MS

office Pro 2000 and there outlook. I would send the message to the outlook

via CDONTS then outlook would send the message via fax to the number in the

Subject Line. If you want exact instructions I can post them, just let me

know. Also remember that you need two types of Network going on here,

Broadband and Modem (if they have Broadband try to push them to a Internet

Fax service, I take out a couple of steps, or Modem to Modem but just

remember your IRQ's





Tim Morford



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: Thursday, July 19, 2001 6:51 AM

To: ASP components

Subject: [asp_components] Web to Fax solution...





Hi all,



I am trying to set up a cheap solution that will send faxes from an ASP

page.

Does anyone know of any services or components that will allow me to send

details from a form and have them faxed to a standard fax number?

Is it likely to be a one-off fee or pay per fax?



To be honest I'm all at sea here and would appreciate any kind of advice,

even if it's bad news!



Thanks in advance.



Russell

Message #6 by Russell Peto <russell.peto@i...> on Fri, 20 Jul 2001 09:37:00 +0100

Thanks Tim, you're a life saver.

Message #7 by "Tim Morford" <tmorford@n...> on Fri, 20 Jul 2001 19:27:22 -0400

OK here is the ASP code I will send the Rest of the information tonight

<%

option Explicit

' Decalre variables

Dim objMail,location,currentpage,IP,fax_int,fax_body,fax_num,txtmain



' Request the current page

currentpage = Request.ServerVariables("SCRIPT_NAME")



' This is optional but I use it for Security

IP = Request.ServerVariables("LOCAL_ADDR")



' If this is this

If Request.Form("display") <> "" then



	location = "display"



elseif Request.Form("fax") <> "" then



	location = "fax"



Else



	location = "home"



End if



%>

<HTML>

<HEAD>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<TITLE></TITLE>

</HEAD>

<BODY>

<%

' case stuff to show what page we are on

select case location



	case "home"



		Response.Write("<table cellspacing=1 cellpadding=1 border=0>")

		Response.Write("<form value=" & currentpage & " method=post>")

		Response.Write("<tr><td>Enter Fax Number:")

		Response.Write("</td><td><input Name=number></td></tr>")

		Response.Write("<tr><td colspan=2>Enter Fax Information:</td></tr>")

		Response.Write("<tr><td colspan=2><textarea cols=50 rows=5

name=body></textarea></td></tr>")

		Response.Write("<TR><TD colspan=2><input type=Submit name='display'

value=fax></td></tr>")

		Response.Write("</table>")



	case "display"



		fax_int = Request.Form("number")

		txtmain = Request.Form("body")

		Response.Write ("<table cellspacing=1 cellpadding=1 Border=1>")

		Response.Write("<form value=" & currentpage & " method=post id=form1

name=form1>")

		Response.Write ("<tr><td colspan=2>" & fax_int & "</td></tr>")

		Response.Write ("<tr><td colspan=2>" & txtmain & "</td></tr>")

		Response.Write ("<input type=hidden value=" & fax_int &" name=fax>")

		Response.Write ("<input type=hidden value=" & txtmain &" name=main_body>")

		Response.Write ("<tr><td><input type=submit name=fax

value=OK></td><td><input type=button value=Back

onclick='history(-1)'></td></tr>")

		Response.Write ("</table>")



	Case "fax"



		fax_num = Request.Form("fax")

		fax_body = Request.Form("main_body")

		' create the object maik

		set objMail = Server.CreateObject("CDONTS.NewMail")

		' for security

		objMail.From = IP

		objMail.Subject = fax_num

		' enter in your email

		objMail.To = "you@w..._ever.net"

		objMail.Body = fax_body

		objMail.Send

		Response.Write ("Your fax has been Sent")

		' clean up your room

		set objMail = Nothing



end select

%>

</BODY>

</HTML>



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: Friday, July 20, 2001 4:37 AM

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





Thanks Tim, you're a life saver.

Message #8 by "Tim Morford" <tmorford@n...> on Fri, 20 Jul 2001 21:11:35 -0400

OK set up outlook with Winfax from the Office 2000 CD if not done already,

done, OK



Click on the Following

TOOLS

OPTIONS

PREFERANCES

EMAIL OPTIONS

check the box that says AUTOMATICLY PUT PEOPLE I REPLIE IN TO





OK here is the Rest of the Code this is in VB This code needs to have Active

Messaging Library installed on the system that it is compiled on



  'Active Messaging related declarations

   Dim objSession As MAPI.Session

   Dim objMsg As Message

   Dim objNewMsg As Message

   Dim strToName As String



   Private Sub Form_Load()

      'Create Session and Logon using currently existing Session & Profile

      Set objSession = CreateObject("MAPI.Session")

      objSession.Logon ShowDialog:=False, NewSession:=False



      'Receive MessageID as a parameter, then "forward" the

      'Message to the target recipient

      Set objMsg = objSession.GetMessage(Command)

      strFixedText = "This text will precede the body of the message you are

'forwarding'." _

                   & vbCrLf & vbCrLf & "------------" & vbCrLf

      Set objNewMsg = objSession.Inbox.Messages.Add( _

                    Subject:="You have been forwarded a Message", _

                    Text:=strFixedText & objMsg.Text)





      'This sample assumes a fully qualified address of the recipient to

forward to is the

      'sole content of the Subject line of the message that triggered this

application.

      'Note:  You cannot assign the .Subject directly to the Recipients Name

property.

      strToName = objMsg.Subject

      objNewMsg.Recipients.Add Name:=strToName



      'Resolve Recip, then send "forwarded" Message

      objNewMsg.Recipients.Resolve

      objNewMsg.Send



      'Bailout

      objSession.Logoff

      Unload Me

   End Sub



you will need launcher.dll



Copy the Launcher.dll and Forward.exe files to a directory on your

hard disk. A suggested good place to locate it is in a subdirectory

of your Exchange directory called "Custom Actions." You will

probably need to create this directory.



Your registry must be updated to so the Inbox Assistant can find

Launcher.dll. Here's how to do this:



Run Regedit (Windows 95) or Regedt32 (Windows NT).

Goto hkey_local_machine\Software\Microsoft\Exchange\Client.

Create a "Custom Actions" key under Client if one doesn't exist.

Create a string value.

Enter value name "Launch."

Enter value data "4.0;PathToTheDLL;1" where path to the .dll

is the file path to the Launcher.dll; that is,

C:\Program Files\Microsoft Exchange\Custom Actions\Launcher.dll





The one thing I forgot to put in I think is in the subject line you have to

put FAX:(###)###-####



there is an article that I got some of this information from



http://support.microsoft.com/support/kb/articles/q173/9/15.asp



I just could not find it again



Tim Morford



-----Original Message-----

From: Tim Morford [mailto:tmorford@n...]

Sent: Friday, July 20, 2001 7:27 PM

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





OK here is the ASP code I will send the Rest of the information tonight

<%

option Explicit

' Decalre variables

Dim objMail,location,currentpage,IP,fax_int,fax_body,fax_num,txtmain



' Request the current page

currentpage = Request.ServerVariables("SCRIPT_NAME")



' This is optional but I use it for Security

IP = Request.ServerVariables("LOCAL_ADDR")



' If this is this

If Request.Form("display") <> "" then



	location = "display"



elseif Request.Form("fax") <> "" then



	location = "fax"



Else



	location = "home"



End if



%>

<HTML>

<HEAD>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<TITLE></TITLE>

</HEAD>

<BODY>

<%

' case stuff to show what page we are on

select case location



	case "home"



		Response.Write("<table cellspacing=1 cellpadding=1 border=0>")

		Response.Write("<form value=" & currentpage & " method=post>")

		Response.Write("<tr><td>Enter Fax Number:")

		Response.Write("</td><td><input Name=number></td></tr>")

		Response.Write("<tr><td colspan=2>Enter Fax Information:</td></tr>")

		Response.Write("<tr><td colspan=2><textarea cols=50 rows=5

name=body></textarea></td></tr>")

		Response.Write("<TR><TD colspan=2><input type=Submit name='display'

value=fax></td></tr>")

		Response.Write("</table>")



	case "display"



		fax_int = Request.Form("number")

		txtmain = Request.Form("body")

		Response.Write ("<table cellspacing=1 cellpadding=1 Border=1>")

		Response.Write("<form value=" & currentpage & " method=post id=form1

name=form1>")

		Response.Write ("<tr><td colspan=2>" & fax_int & "</td></tr>")

		Response.Write ("<tr><td colspan=2>" & txtmain & "</td></tr>")

		Response.Write ("<input type=hidden value=" & fax_int &" name=fax>")

		Response.Write ("<input type=hidden value=" & txtmain &" name=main_body>")

		Response.Write ("<tr><td><input type=submit name=fax

value=OK></td><td><input type=button value=Back

onclick='history(-1)'></td></tr>")

		Response.Write ("</table>")



	Case "fax"



		fax_num = Request.Form("fax")

		fax_body = Request.Form("main_body")

		' create the object maik

		set objMail = Server.CreateObject("CDONTS.NewMail")

		' for security

		objMail.From = IP

		objMail.Subject = fax_num

		' enter in your email

		objMail.To = "you@w..._ever.net"

		objMail.Body = fax_body

		objMail.Send

		Response.Write ("Your fax has been Sent")

		' clean up your room

		set objMail = Nothing



end select

%>

</BODY>

</HTML>



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: Friday, July 20, 2001 4:37 AM

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





Thanks Tim, you're a life saver.

Message #9 by Russell Peto <russell.peto@i...> on Tue, 24 Jul 2001 09:34:25 +0100

Thank you Tim.

Just what I needed...



-----Original Message-----

From: Tim Morford [mailto:tmorford@n...]

Sent: 21 July 2001 02:12

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





OK set up outlook with Winfax from the Office 2000 CD if not done already,

done, OK



Click on the Following

TOOLS

OPTIONS

PREFERANCES

EMAIL OPTIONS

check the box that says AUTOMATICLY PUT PEOPLE I REPLIE IN TO





OK here is the Rest of the Code this is in VB This code needs to have Active

Messaging Library installed on the system that it is compiled on



  'Active Messaging related declarations

   Dim objSession As MAPI.Session

   Dim objMsg As Message

   Dim objNewMsg As Message

   Dim strToName As String



   Private Sub Form_Load()

      'Create Session and Logon using currently existing Session & Profile

      Set objSession = CreateObject("MAPI.Session")

      objSession.Logon ShowDialog:=False, NewSession:=False



      'Receive MessageID as a parameter, then "forward" the

      'Message to the target recipient

      Set objMsg = objSession.GetMessage(Command)

      strFixedText = "This text will precede the body of the message you are

'forwarding'." _

                   & vbCrLf & vbCrLf & "------------" & vbCrLf

      Set objNewMsg = objSession.Inbox.Messages.Add( _

                    Subject:="You have been forwarded a Message", _

                    Text:=strFixedText & objMsg.Text)





      'This sample assumes a fully qualified address of the recipient to

forward to is the

      'sole content of the Subject line of the message that triggered this

application.

      'Note:  You cannot assign the .Subject directly to the Recipients Name

property.

      strToName = objMsg.Subject

      objNewMsg.Recipients.Add Name:=strToName



      'Resolve Recip, then send "forwarded" Message

      objNewMsg.Recipients.Resolve

      objNewMsg.Send



      'Bailout

      objSession.Logoff

      Unload Me

   End Sub



you will need launcher.dll



Copy the Launcher.dll and Forward.exe files to a directory on your

hard disk. A suggested good place to locate it is in a subdirectory

of your Exchange directory called "Custom Actions." You will

probably need to create this directory.



Your registry must be updated to so the Inbox Assistant can find

Launcher.dll. Here's how to do this:



Run Regedit (Windows 95) or Regedt32 (Windows NT).

Goto hkey_local_machine\Software\Microsoft\Exchange\Client.

Create a "Custom Actions" key under Client if one doesn't exist.

Create a string value.

Enter value name "Launch."

Enter value data "4.0;PathToTheDLL;1" where path to the .dll

is the file path to the Launcher.dll; that is,

C:\Program Files\Microsoft Exchange\Custom Actions\Launcher.dll





The one thing I forgot to put in I think is in the subject line you have to

put FAX:(###)###-####



there is an article that I got some of this information from



http://support.microsoft.com/support/kb/articles/q173/9/15.asp



I just could not find it again



Tim Morford



-----Original Message-----

From: Tim Morford [mailto:tmorford@n...]

Sent: Friday, July 20, 2001 7:27 PM

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





OK here is the ASP code I will send the Rest of the information tonight

<%

option Explicit

' Decalre variables

Dim objMail,location,currentpage,IP,fax_int,fax_body,fax_num,txtmain



' Request the current page

currentpage = Request.ServerVariables("SCRIPT_NAME")



' This is optional but I use it for Security

IP = Request.ServerVariables("LOCAL_ADDR")



' If this is this

If Request.Form("display") <> "" then



	location = "display"



elseif Request.Form("fax") <> "" then



	location = "fax"



Else



	location = "home"



End if



%>

<HTML>

<HEAD>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<TITLE></TITLE>

</HEAD>

<BODY>

<%

' case stuff to show what page we are on

select case location



	case "home"



		Response.Write("<table cellspacing=1 cellpadding=1

border=0>")

		Response.Write("<form value=" & currentpage & "

method=post>")

		Response.Write("<tr><td>Enter Fax Number:")

		Response.Write("</td><td><input Name=number></td></tr>")

		Response.Write("<tr><td colspan=2>Enter Fax

Information:</td></tr>")

		Response.Write("<tr><td colspan=2><textarea cols=50 rows=5

name=body></textarea></td></tr>")

		Response.Write("<TR><TD colspan=2><input type=Submit

name='display'

value=fax></td></tr>")

		Response.Write("</table>")



	case "display"



		fax_int = Request.Form("number")

		txtmain = Request.Form("body")

		Response.Write ("<table cellspacing=1 cellpadding=1

Border=1>")

		Response.Write("<form value=" & currentpage & " method=post

id=form1

name=form1>")

		Response.Write ("<tr><td colspan=2>" & fax_int &

"</td></tr>")

		Response.Write ("<tr><td colspan=2>" & txtmain &

"</td></tr>")

		Response.Write ("<input type=hidden value=" & fax_int &"

name=fax>")

		Response.Write ("<input type=hidden value=" & txtmain &"

name=main_body>")

		Response.Write ("<tr><td><input type=submit name=fax

value=OK></td><td><input type=button value=Back

onclick='history(-1)'></td></tr>")

		Response.Write ("</table>")



	Case "fax"



		fax_num = Request.Form("fax")

		fax_body = Request.Form("main_body")

		' create the object maik

		set objMail = Server.CreateObject("CDONTS.NewMail")

		' for security

		objMail.From = IP

		objMail.Subject = fax_num

		' enter in your email

		objMail.To = "you@w..._ever.net"

		objMail.Body = fax_body

		objMail.Send

		Response.Write ("Your fax has been Sent")

		' clean up your room

		set objMail = Nothing



end select

%>

</BODY>

</HTML>



-----Original Message-----

From: Russell Peto [mailto:russell.peto@i...]

Sent: Friday, July 20, 2001 4:37 AM

To: ASP components

Subject: [asp_components] RE: Web to Fax solution...





Thanks Tim, you're a life saver.

Return to Index

P2P Archives