JulesUK73
01-27-2006, 09:50 AM
Hey there,
I've designed a form on our intranet site that uses CDONTS, everything works great apart from the Email that it sends. I need to format the replies in the form using HTML and not have it as Plain Text, well all I really want to do is make the text a lot larger and have the questions in Bold and the answers normal.
At the moment it comes out as this:
CLIENT OR HOST NAME
Joe Bloggs
DEPARTMENT
Equine
TELEPHONE EXTN
2480
BUDGET CODE
TK421
DATE OF FUNCTION
25/01/2006
LOCATION OF FUNCTION
Main Hall
NUMBER OF PEOPLE
40
BUFFET MENU TYPE
buffet menu 3
COFFEE REQUIRED?
No
and so on...I want the capitalised bits, larger and bolder and the data just larger as this email will be printed out and stuck on a wall for catering staff to read and they need it, well, bigger. Can anybody help? I know Ihave to add
ObJMail.BodyFormat =0
ObJMail.MailFormat =0
But where I go after that I'm not sure!
Here's all the ASP code I have in the file.
<%
Dim t1name,t1,t2name,t2
t1name = "CLIENT OR HOST NAME"
t1 = Request.Form("t1")
t2name = "DEPARTMENT"
t2 = Request.Form("t2")
Dim t3name,t3
t3name = "TELEPHONE EXTN"
t3 = Request.form("t3")
Dim t4name,t4
t4name = "BUDGET CODE"
t4 = Request.Form("t4")
Dim t5name, t5
t5name = "DATE OF FUNCTION"
t5 = Request.Form("t5")
Dim t6name, t6
t6name = "LOCATION OF FUNCTION"
t6 = Request.form("t6")
Dim t7name, t7
t7name = "NUMBER OF PEOPLE"
t7 = Request.form("t7")
Dim t8name, t8
t8name = "BUFFET MENU TYPE"
t8 = Request.form("t8")
Dim t9name, t9
t9name = "COFFEE REQUIRED?"
t9 = Request.form("t9")
Dim t10name, t10
t10name = "HOW MANY COFFEE'S?"
t10 = Request.form("t10")
Dim t11name, t11
t11name = "TEA REQUIRED?"
t11 = Request.form("t11")
Dim t12name, t12
t12name = "HOW MANY TEA'S REQUIRED?"
t12 = Request.form("t12")
Dim t13name, t13
t13name = "ORANGE JUICE REQUIRED?"
t13 = Request.form("t13")
Dim t14name, t14
t14name = "HOW MANY ORANGE JUICE'S REQUIRED"
t14 = Request.form("t14")
Dim t15name, t15
t15name = "BISCUITS REQUIRED?"
t15 = Request.form("t15")
Dim t16name, t16
t16name = "HOW MANY BISCUITS REQUIRED?"
t16 = Request.form("t16")
Dim t17name, t17
t17name = "TIME REQUIRED?"
t17 = Request.form("t17")
Dim t18name, t18
t18name = "CLEAR UP TIME?"
t18 = Request.form("t18")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "myname@myweb.com"
'in the next line you can change that email address to something else
'like "myform@myurl.com", just be sure and put it between quotes " "
ObjMail.From = "HOSPITALITY_REQUEST"
'you can also change "Form Submission" to something else like "form results" etc.
ObjMail.Subject = "Hospitality Request Form"
ObjMail.Body = t1name & vbcrlf&_
t1 & vbcrlf&_
t2name & vbcrlf&_
t2 & vbcrlf&_
t3name & vbcrlf&_
t3 & vbcrlf&_
t4name & vbcrlf&_
t4 & vbcrlf&_
t5name & vbcrlf&_
t5 & vbcrlf&_
t6name & vbcrlf&_
t6 & vbcrlf&_
t7name & vbcrlf&_
t7 & vbcrlf&_
t8name & vbcrlf&_
t8 & vbcrlf&_
t9name & vbcrlf&_
t9 & vbcrlf&_
t10name & vbcrlf&_
t10 & vbcrlf&_
t11name & vbcrlf&_
t11 & vbcrlf&_
t12name & vbcrlf&_
t12 & vbcrlf&_
t13name & vbcrlf&_
t13 & vbcrlf&_
t14name & vbcrlf&_
t14 & vbcrlf&_
t15name & vbcrlf&_
t15 & vbcrlf&_
t16name & vbcrlf&_
t16 & vbcrlf&_
t17name & vbcrlf&_
t17 & vbcrlf&_
t18name & vbcrlf&_
t18 & vbcrlf&_
t19name & vbcrlf&_
t19
ObjMail.Send
Set ObjMail = Nothing
'HERE you make a choice. You can redirect the user to any page in your site
Response.Redirect "HRF_thankyou.htm"
'Or just say thanks. Delete the line you dont want. Either above or below
'Response.Write"Thank You"
%>
Thanks a lot.
Jules
I've designed a form on our intranet site that uses CDONTS, everything works great apart from the Email that it sends. I need to format the replies in the form using HTML and not have it as Plain Text, well all I really want to do is make the text a lot larger and have the questions in Bold and the answers normal.
At the moment it comes out as this:
CLIENT OR HOST NAME
Joe Bloggs
DEPARTMENT
Equine
TELEPHONE EXTN
2480
BUDGET CODE
TK421
DATE OF FUNCTION
25/01/2006
LOCATION OF FUNCTION
Main Hall
NUMBER OF PEOPLE
40
BUFFET MENU TYPE
buffet menu 3
COFFEE REQUIRED?
No
and so on...I want the capitalised bits, larger and bolder and the data just larger as this email will be printed out and stuck on a wall for catering staff to read and they need it, well, bigger. Can anybody help? I know Ihave to add
ObJMail.BodyFormat =0
ObJMail.MailFormat =0
But where I go after that I'm not sure!
Here's all the ASP code I have in the file.
<%
Dim t1name,t1,t2name,t2
t1name = "CLIENT OR HOST NAME"
t1 = Request.Form("t1")
t2name = "DEPARTMENT"
t2 = Request.Form("t2")
Dim t3name,t3
t3name = "TELEPHONE EXTN"
t3 = Request.form("t3")
Dim t4name,t4
t4name = "BUDGET CODE"
t4 = Request.Form("t4")
Dim t5name, t5
t5name = "DATE OF FUNCTION"
t5 = Request.Form("t5")
Dim t6name, t6
t6name = "LOCATION OF FUNCTION"
t6 = Request.form("t6")
Dim t7name, t7
t7name = "NUMBER OF PEOPLE"
t7 = Request.form("t7")
Dim t8name, t8
t8name = "BUFFET MENU TYPE"
t8 = Request.form("t8")
Dim t9name, t9
t9name = "COFFEE REQUIRED?"
t9 = Request.form("t9")
Dim t10name, t10
t10name = "HOW MANY COFFEE'S?"
t10 = Request.form("t10")
Dim t11name, t11
t11name = "TEA REQUIRED?"
t11 = Request.form("t11")
Dim t12name, t12
t12name = "HOW MANY TEA'S REQUIRED?"
t12 = Request.form("t12")
Dim t13name, t13
t13name = "ORANGE JUICE REQUIRED?"
t13 = Request.form("t13")
Dim t14name, t14
t14name = "HOW MANY ORANGE JUICE'S REQUIRED"
t14 = Request.form("t14")
Dim t15name, t15
t15name = "BISCUITS REQUIRED?"
t15 = Request.form("t15")
Dim t16name, t16
t16name = "HOW MANY BISCUITS REQUIRED?"
t16 = Request.form("t16")
Dim t17name, t17
t17name = "TIME REQUIRED?"
t17 = Request.form("t17")
Dim t18name, t18
t18name = "CLEAR UP TIME?"
t18 = Request.form("t18")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "myname@myweb.com"
'in the next line you can change that email address to something else
'like "myform@myurl.com", just be sure and put it between quotes " "
ObjMail.From = "HOSPITALITY_REQUEST"
'you can also change "Form Submission" to something else like "form results" etc.
ObjMail.Subject = "Hospitality Request Form"
ObjMail.Body = t1name & vbcrlf&_
t1 & vbcrlf&_
t2name & vbcrlf&_
t2 & vbcrlf&_
t3name & vbcrlf&_
t3 & vbcrlf&_
t4name & vbcrlf&_
t4 & vbcrlf&_
t5name & vbcrlf&_
t5 & vbcrlf&_
t6name & vbcrlf&_
t6 & vbcrlf&_
t7name & vbcrlf&_
t7 & vbcrlf&_
t8name & vbcrlf&_
t8 & vbcrlf&_
t9name & vbcrlf&_
t9 & vbcrlf&_
t10name & vbcrlf&_
t10 & vbcrlf&_
t11name & vbcrlf&_
t11 & vbcrlf&_
t12name & vbcrlf&_
t12 & vbcrlf&_
t13name & vbcrlf&_
t13 & vbcrlf&_
t14name & vbcrlf&_
t14 & vbcrlf&_
t15name & vbcrlf&_
t15 & vbcrlf&_
t16name & vbcrlf&_
t16 & vbcrlf&_
t17name & vbcrlf&_
t17 & vbcrlf&_
t18name & vbcrlf&_
t18 & vbcrlf&_
t19name & vbcrlf&_
t19
ObjMail.Send
Set ObjMail = Nothing
'HERE you make a choice. You can redirect the user to any page in your site
Response.Redirect "HRF_thankyou.htm"
'Or just say thanks. Delete the line you dont want. Either above or below
'Response.Write"Thank You"
%>
Thanks a lot.
Jules