Capraza
Legacy Member
Hey 9lives,
Als onderdeel van mijn eindwerk moet ik een asp.net website maken en een onderdeel van dit project is een emailpagina. Met dit laatste heb ik echter enkele problemen. telkens wanneer ik de contactpagina debug geeft MS web developer 2010 Express volgende foutcode : "Service niet beschikbaar. Transmissiekanaal wordt gesloten. Het serverantwoord is: Cannot connect to SMTP server 173.194.66.109 (173.194.66.109:25), connect error 10060". Deze foutcode wordt specifiek gegeven bij MM.Send(...)
Hieronder staat de code. Help aub!
Als onderdeel van mijn eindwerk moet ik een asp.net website maken en een onderdeel van dit project is een emailpagina. Met dit laatste heb ik echter enkele problemen. telkens wanneer ik de contactpagina debug geeft MS web developer 2010 Express volgende foutcode : "Service niet beschikbaar. Transmissiekanaal wordt gesloten. Het serverantwoord is: Cannot connect to SMTP server 173.194.66.109 (173.194.66.109:25), connect error 10060". Deze foutcode wordt specifiek gegeven bij MM.Send(...)
Hieronder staat de code. Help aub!
Code:
Imports System.Web.Mail
Imports System.Text
Partial Class Contact
Inherits System.Web.UI.Page
Protected Sub btnMail_Click(sender As Object, e As System.EventArgs) Handles btnMail.Click
Dim Body As String = "From: " + txtNaam.Text + " " + txtFamilienaam.Text + Environment.NewLine + "Email: " + txtEmail.Text + Environment.NewLine + Environment.NewLine + "Message" + Environment.NewLine + txtEmail.Text
Dim MM As New System.Net.Mail.SmtpClient
MM.EnableSsl = True
MM.Host = "smtp.gmail.com"
Dim cred As New System.Net.NetworkCredential("[email protected]", "password")
MM.Credentials = cred
MM.Send(txtEmail.Text, "[email protected]", txtOnderwerp.Text, Body)
ClearFields()
lblMail.ForeColor = Drawing.Color.Green
lblMail.Text = "U bericht werdt verzonden!"
lblMail.Visible = True
End Sub
Protected Sub ClearFields()
txtNaam.Text = ""
txtFamilienaam.Text = ""
txtEmail.Text = ""
txtOnderwerp.Text = ""
txtBericht.Text = ""
End Sub
End Class