Hi im I need help with contact form functionality for it to send anything that im missing from my Java please help it is not sending…
Imports System.Net.Mail
Public Class register
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As EventArgs)
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs)
Try
Dim mailMessage As New MailMessage()
mailMessage.From = New MailAddress("myemail@mydomain.com")
mailMessage.[To].Add("myemail@mydomain.com")
mailMessage.Subject = txtSubject.Text
mailMessage.Body = "<b>Sender Name : </b>" + txtname.Text + "<br/>" + "<b>Sender Email : </b>" + txtEmail.Text + "<br/>" + "<b>Comments : </b>" + txtComments.Text
mailMessage.IsBodyHtml = True
Dim smtpClient As New SmtpClient("smtpout.secureserver.net ", 465)
smtpClient.EnableSsl = True
smtpClient.Credentials = New System.Net.NetworkCredential("myemail@mydomain.com", "password")
smtpClient.Send(mailMessage)
Label1.Text = "Thank for contacting us"
Label1.ForeColor = System.Drawing.Color.Blue
txtname.Enabled = False
txtEmail.Enabled = False
txtComments.Enabled = False
txtSubject.Enabled = False
Button1.Enabled = False
Catch generatedExceptionName As Exception
' Log - Event Viewer or table
Label1.ForeColor = System.Drawing.Color.Blue
Label1.ForeColor = System.Drawing.Color.Red
Label1.Text = "There is an unknown problem. Please try later"
End Try
End Sub
Protected Sub DropDownList1_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
Protected Sub ddlCountries_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
End Class
'=======================================================
'Service provided by Telerik (www.telerik.com)
'Conversion powered by NRefactory.
'Twitter: @telerik
'Facebook: facebook.com/telerik
'=======================================================
Exception Details: System.Security.SecurityException: Request for the permission of type 'System.Net.Mail.SmtpPermission, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' failed.
Source Error:
Line 37: Label1.ForeColor = System.Drawing.Color.Red
Line 38: Label1.Text = generatedExceptionName.Message
Line 39: Throw
Line 40: End Try
Line 41: End Sub