<%
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 = "info@toc-ltd.com"
MailSubject = "TOC online enquiry"
'Global Variables
gBodyFormat = ""
set WA_MailObject = WAUE_Definition("toc-ltd.com","25","dan.simmons","roarfilm4")
if (RecipientEmail <> "") then
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
else
'To Entries
end if
'Attachment Entries
'BCC Entries
'CC Entries
'Body Format
set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1)
MailBodyFormat = gBodyFormat
'Set Importance
set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3")
'Start Mail Body
MailBody = MailBody & "Testing"
'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="AspEmail"
'Send Loop Once Per Entry
WA_Universal_Email_1_SendMail("john@hairybullet.com")
'Send Mail All Entries
if ("emailus_thankyou.asp"<>"") then
Response.Redirect("emailus_thankyou.asp")
end if
end if
%>
Tools of Coventry - Precision Engineers, Design, Prototypes & Production - Products
