Email a form: VB.net

Email a form

Uncle! I am out of time and lost on what I am doing wrong in many places. I have been pulling pieces of code from everywhere I can find it, and I can't get this email form to work.

Goal of this page: Take the contents from the form and send them in the body of the email.

What is working: The email features works perfect, using godaddy smtp (hosted at godaddy) and when preset variables are set.

What is not working/what I cant figure out:
      I need to get the contents of the form into the email function
      I need to get all the variables into the email body. (see the code, its partially commented out)
      I need to post back a message to the user that their message has gone through successfully or if it has failed.

Any help would be greatly appreciated. I am an advanced-novice at vb.net so please be as clear as possible. Thanks!!!!

<script runat="server">
 
Sub TiggerEmail(sender as Object, e as EventArgs) Handles MyBase.Load
	SendMail (Request.Form("fname") + Request.Form("contacttime") + Request.Form("email") + Request.Form("phone"))
	end sub
 
 
 
'QUESTION 1 - HOW TO GET MY FORM VALUES INTO THIS SUB 
Private Sub SendMail(ByVal fname As String, ByVal phone As String, ByVal email As String, ByVal contacttime As String)
 
        'Set the HostName
        Dim host As String = "SMTP SERVER"
        Dim ToEmail As String = "joe@joe.com"
		Dim FromEmail As String = "bill@bill.com"
 
        Dim Subject As String = "Contact submission"
		
			'QUESTION 2 - HOW DO I GET THSE VALUES INTO THE BODY?
		Dim body as string = "Name: " '& fname & "   Phone: " & phone & "    Email: " & email & "     Contact Time: " & contacttime
 
		Dim Result As String = ""
 
 
        Dim Email As New System.Net.Mail.MailMessage(FromEmail, ToEmail)
		
 
		Dim mailClient As New System.Net.Mail.SmtpClient(host)
		mailClient.Host = host
		'mailClient.EnableSsl = True
		
        Email.Subject = Subject
        Email.Body = body
 
        
        'Dim port As Int32 = 465  ' WITH SSL
		Dim port As Int32 = 80	' NO SSL
              
        Dim authenticationInfo As _
          New System.Net.NetworkCredential( _
           "username", _
           "password")
 
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = authenticationInfo
       
        Try
		  mailClient.Send(Email)
		  Result = "OK"
		  
		  Catch ex As Exception
		  
			Response.Write("Unable to send email, the following error has occurred:" & vbCrLf & vbCrLf & _
		 ex.Message)
		 
		End Try
 
 
        Email.Dispose()
        mailClient = Nothing
		Host = Nothing
        GC.Collect()
 
    End Sub
 
</script>
<BODY>
 
<table width="300px" height="200px">
	<tr>
		<td>        
 
	<!-- QUESTION 3 - How do I post back a message that says their submission went through?  -->
   	<div>
    	<p>Your submission has been sent successfully.</p>
    </div>
    
      <form id="contactform" runat="server">
    
    
    <div>
	    <asp:ValidationSummary
    		ID                  = "Summary"
            runat               = "server"
            DisplayMode         = "BulletList" /></div>
    
    
    
    <div>First Name:
    	<asp:TextBox ID="fname" runat="server"></asp:TextBox></div>
    	<asp:RequiredFieldValidator
        	ID                  = "rfname"
        	runat               = "server"
            ControlToValidate   = "fname"
            ErrorMessage        = "Name Required"
            Display             = "None" />
    <div>Phone: Ex.(222-222-2222 x22)
    <asp:TextBox ID="phone" runat="server"></asp:TextBox></div>
    	<asp:RegularExpressionValidator
    		ID                  = "regPhone"
            runat               = "server"
            ControlToValidate   = "phone"
            Display             = "None"
            ErrorMessage        = "Invalid Phone Number"
            ValidationExpression= "((\(\d{3}\) ?)|(\d{3}-))?\d{3}-\d{4}( x\d{0,})?" />
                                
    <div>Email address:
    	<asp:TextBox ID="email" runat="server"></asp:TextBox></div>
        <asp:RegularExpressionValidator
        ID                  = "regEmail"
        runat               = "server"
        ControlToValidate   = "Email"
        Display             = "None"
        ErrorMessage        = "Invalid Email"
        ValidationExpression= "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" />
             
    
    <div>
    	<asp:DropDownList ID="contacttime" runat="server">
        <asp:ListItem Value="9am_12pm">9am-12pm</asp:ListItem>
        <asp:ListItem Value="12pm_3pm">12pm-3pm</asp:ListItem>
        <asp:ListItem Value="3pm_6pm">3pm-6pm</asp:ListItem>
        </asp:DropDownList></div>
    </div>
    
    
  		<asp:button id="btnSubmit" runat="server" OnClick="SendMail" Text="Submit" />
  
            </form>
		</td>
  </tr>                         
</table>
  
</BODY>

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:

Select all Open in new window

Instant Access to this Solution

Plus...

30 Day FREE access, no risk, no obligation

Collaborate with the world's top tech experts

Unlimited access to our exclusive solution database

Never be left without tech help again

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

"The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.

"Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin

"Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.

Screenshot of Experts Exchange Knowledgebase

Need individual assistance?

Our experts are ready to help.

If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.

Want to learn from the best?

Read articles from industry experts.

Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.

Working on a long term project?

Store your work and research.

Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.

Join the Community

Give a Little. Get a Lot.

Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.

Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click SendMail(fname.Text, contacttime.SelectedItem.ToString(), emailadd.Text, phone.Text) End Sub

Question

Email a form

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

VB.net

Programming for ASP.NET

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press