<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "sb@documentscanning.net" MailSubject = "Look at this site " 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("smtp.fasthosts.co.uk","25","","","") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"simon.boakes@virgin.net") set WA_MailObject = WAUE_AddBCC(WA_MailObject,"sb@allanwebb.co.uk") MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "A friend thought you would like the following:" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Hi " MailBody = MailBody & Request.Form("friend") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Take a look at www.documentscanning.net they are a leading " & vbCrlf & "" MailBody = MailBody & "document management company who could save you space and money." & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "My Comments about them:" & vbCrlf & "" MailBody = MailBody & Request.Form("comments") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & Request.Form("name") MailBody = MailBody & " was the friend who sent you" & vbCrlf & "" MailBody = MailBody & "this invitation from " MailBody = MailBody & Request.Form("friend-email") MailBody = MailBody & "." 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("" & cStr(Request.form("friend-email")) & "") 'Send Mail All Entries if ("thankyouindex.shtml"<>"") then Response.Redirect("thankyouindex.shtml") end if end if %> Document Scanning and Data Conversion Services
 
Home
Scanning Services
Data Capture Services
The Benefits
Hardware Sales
Links and Downloads
Clients & Testimonials
Contact Us
News
Special Offers


Quick Call Back:
Enter details below

Full Name

Telephone Number

Freephone:
0800 1972804
For a Free Quote
and Sample
tick Recommend Us
fav Add to Favourites


 
 
 
Document Scanning Benefits :

Arrow The Benefits   

Case Studies...
 
Help
 
Security Gauranteed
 
Collection Delivery
 

 

We will send the following message to the recipient you nominate:

I think this company will be of interest to you. Document Scanning are a paper filing Specilist who, as an alternative to your Paper, offer extremely competitive rates, call them now!

Visit their site at http://www.documentscanning.net

 

Your Name
Your Email*
Friends Name
Friends Email*
Comments
 

TopTop

  
 
 
 

© Documentscanning net 2006.       Phone:   UK +44 (0) 800 197 2804       All rights reserved worldwide