including form items in a message body Persits

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

including form items in a message body Persits

Logged in as: Guest

arrSession:exec spGetSession 2,3,1802

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> including form items in a message body Persits
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

including form items in a message body Persits - 1/7/2005 8:05:54 PM

passage

Posts: 1
Score: 0
Joined: 1/7/2005
From:
Status: offline

Hello!

I am having some problems with my code. It works almost perfectly, the only problem is that when sending the e-mail, it only sends the Message and not all fields. I need for this to send all fields in the form in the e-mail. Sorry for this very easy question but I am pulling my hair out here. It only sends one field, the "Message" field in the e-mail when it sends it. I guess the thing I have to fix lies somewhere in the lines of Mail.Body = Message and thereabout?

Please anyone help me out on this one! thanks!

<%
'Dim variables
Dim vTry, bValidForm
Dim vName, vEmail, vSubject, vName2, vMessage
Dim bName, bEmail, bSubject, bName2, bMessage

vTry = Request.QueryString("Try")
bValidForm = False
vName = ""
Email = ""
vSubject = ""
vName2 = ""
vMessage = ""

vName = Request.Form("txtName")
vEmail = Request.Form("txtEmail")
vSubject = Request.Form("txtSubject")
vName2 = Request.Form("txtName2")
vMessage = Request.Form("txtMessage")

'Check if E-mail adrress is valid.
function isValidEmail(byval vEmail)
' very simple email validation function.
returnVal = false
if not isEmpty(vEmail) then
if instr(vEmail, "@") > 0 and instr(vEmail, ".") > 0 then
returnVal = true
end if
end if
isValidEmail = returnVal
end function

'Check if field is filled with data and if e-mail is correct

if vName = "" then bName = false else bName = true end if
if isValidEmail(vEmail) then bEmail = true else bEmail = false end if
if vSubject = "" then bSubject = false else bSubject = true end if
if vName2 = "" then bName2 = false else bName2 = true end if
if vMessage = "" then bMessage = false else bMessage = true end if

If bName and bEmail and bSubject and bMessage = True and vTry = "Second" or vTry = "Third" Then

bValidForm = True
Name = Request.Form("txtName")
Email = Request.Form("txtEmail")
Subject = Request.Form("txtSubject")
Name2 = Request.Form("txtName2")
Message = Request.Form("txtMessage")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.mymail.com" ' Specify a valid SMTP server
Mail.From = Email ' Specify sender's address
Mail.FromName = Name ' Specify sender's name

Mail.AddAddress "mymail@mymail.com"
Mail.AddReplyTo Email

Mail.Subject = Subject
Mail.Body = Message

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If

Response.Redirect "SendSucces.asp"

Else

bValidForm = False

End If

If vTry = "" Then
vTry = "Second"
Else
vTry = "Third"
End If

If Request.QueryString("Try") = "Second" or Request.QueryString("Try") = "" Then
%>

_____________________________

Erik Thorsen

Post #: 1

Re: including form items in a message body Persits - 3/2/2005 11:49:51 PM

VBS

Posts: 110
Score: 0
Joined: 3/2/2005
From: Lebanon
Status: offline

Dear Passage,
U r right the problem is in the Mail.Body = Message
so to fix it use this example:

Mail.Body = "Field1_Name" & Field1 & vbCrLf & "Field2_Name" & Field2 & vbCrLf & Message

Hope this is what u mean

Don't forget to post the results

Best Regards
Firas S Assaad

(in reply to passage)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> ASP >> including form items in a message body Persits

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts