% 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 = "" & cStr(cStr(Request.Form("oemail"))) & "" MailSubject = "New Application Form" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("smtp.appliedi.net") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "Business Name: " MailBody = MailBody & cStr(Request.Form("businessname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "dba: " MailBody = MailBody & cStr(Request.Form("dba")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Business Type: " MailBody = MailBody & cStr(Request.Form("businesstype")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address: " MailBody = MailBody & cStr(Request.Form("mailingaddress")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City: " MailBody = MailBody & cStr(Request.Form("city")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State: " MailBody = MailBody & cStr(Request.Form("state")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip: " MailBody = MailBody & cStr(Request.Form("zip")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Toll free: " MailBody = MailBody & cStr(Request.Form("tollfree")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Fax: " MailBody = MailBody & cStr(Request.Form("fax")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Website: " MailBody = MailBody & cStr(Request.Form("weburl")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Business Type II: " MailBody = MailBody & cStr(Request.Form("type")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Number of Stores: " MailBody = MailBody & cStr(Request.Form("numberstores")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "----------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "Principal Name: " MailBody = MailBody & cStr(Request.Form("principalname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Principal Title: " MailBody = MailBody & cStr(Request.Form("otitle")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("ophone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-Mail Address: " MailBody = MailBody & cStr(Request.Form("oemail")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Principal Other: " MailBody = MailBody & cStr(Request.Form("oother")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "----------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser Contact Name: " MailBody = MailBody & cStr(Request.Form("contactname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser Title: " MailBody = MailBody & cStr(Request.Form("ptitle")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser Phone: " MailBody = MailBody & cStr(Request.Form("pphone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser E-Mail: " MailBody = MailBody & cStr(Request.Form("pemail")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "-----------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "Account Contact Name: " MailBody = MailBody & cStr(Request.Form("accname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Account Title:" MailBody = MailBody & cStr(Request.Form("acctitle")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Account E-Mail: " MailBody = MailBody & cStr(Request.Form("accmail")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "------------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "References" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "Name 1: " MailBody = MailBody & cStr(Request.Form("ref1name")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Contact Person 1: " MailBody = MailBody & cStr(Request.Form("ref1cont")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Title 1: " MailBody = MailBody & cStr(Request.Form("ref1title")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone 1: " MailBody = MailBody & cStr(Request.Form("ref1phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-Mail 1: " MailBody = MailBody & cStr(Request.Form("ref1email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address 1:" MailBody = MailBody & cStr(Request.Form("ref1address")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City 1:" MailBody = MailBody & cStr(Request.Form("ref1city")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State 1: " MailBody = MailBody & cStr(Request.Form("ref1state")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip 1: " MailBody = MailBody & cStr(Request.Form("ref1zip")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Name 2: " MailBody = MailBody & cStr(Request.Form("ref2name")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Contact Person 2: " MailBody = MailBody & cStr(Request.Form("ref2contact")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Title 2: " MailBody = MailBody & cStr(Request.Form("ref2title")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone 2: " MailBody = MailBody & cStr(Request.Form("ref2phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-Mail 2:" MailBody = MailBody & cStr(Request.Form("ref2email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address 2:" MailBody = MailBody & cStr(Request.Form("ref2address")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City 2:" MailBody = MailBody & cStr(Request.Form("ref2city")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State 2:" MailBody = MailBody & cStr(Request.Form("ref2state")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip 2:" MailBody = MailBody & cStr(Request.Form("ref2zip")) 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 ((cStr(Request.Form("Submit")) <> "")) then 'WA Universal Email object="AspMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("newaccounts@babysmartusa.com") 'Send Mail All Entries if ("appform_thankyou.asp"<>"") then Response.Redirect("appform_thankyou.asp") end if end if %>
![]() ![]() |