Imports System.Net.Mail
Partial Class iletisim_keso
Inherits System.Web.UI.Page
Protected Sub gonder_Click(sender As Object, e As EventArgs) Handles gonder.Click
ASPPLUS_Webmail()
End Sub
Protected Sub ASPPLUS_Webmail()
LblMailSent.Text = ""
LblMailSent.Visible = False
'-------------- kontrol kodunu check eder
If IsNothing(Session("ASPCAPTCHA")) OrElse Session("ASPCAPTCHA").ToString.Trim.Length = 0 Then
'lblResult.Text = "This test has expired."
'lblResult.ForeColor = Drawing.Color.Red
lblResult.Text = "GEÇERSİZ GÜVENLİK KODU"
Exit Sub
Else
Dim TestValue As String = txtCaptcha.Text.Trim.ToUpper(System.Globalization.CultureInfo.CreateSpecificCulture("en-US"))
If StrComp(TestValue, Session("ASPCAPTCHA").ToString.Trim, CompareMethod.Text) = 0 Then
lblResult.Text = "" '"CAPTCHA PASSED"
lblResult.ForeColor = Drawing.Color.Green
Else
lblResult.Text = "GEÇERSİZ GÜVENLİK KODU"
lblResult.ForeColor = Drawing.Color.Red
Exit Sub
End If
'//IMPORTANT: You must remove session value for security after the CAPTCHA test//
Session.Remove("ASPCAPTCHA")
'//////////
End If
'------------------------------------------
Dim client As New SmtpClient
Dim mail2 As New System.Net.Mail.MailMessage
client.Credentials = New System.Net.NetworkCredential("sitedenmail@adanet.gen.tr", "72740204")
client.Host = "mail.adanet.gen.tr"
mail2.From = New MailAddress("sitedenmail@adanet.gen.tr", "KESO")
mail2.To.Add("keso@keso.org.tr")
mail2.Subject = "WEB SİTENİZDEN İLETİŞİM FORMU"
Dim HTMLmessage As String
HTMLmessage = ""
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "İLETİŞİM FORMU"
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "![]()
"
HTMLmessage = HTMLmessage & "
"
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "- Gönderen: " & isim.Text
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "- Gönderen E-Posta: " & email.Text
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "- Telefon: " & tel.Text
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "- Mesaj: " & mesaj.Text
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "- Tarih: " & Now()
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & "- IP: " & Request.ServerVariables("REMOTE_ADDR")
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & ""
HTMLmessage = HTMLmessage & ""
mail2.Body = HTMLmessage
mail2.IsBodyHtml = True
Try
client.Send(mail2)
LblMailSent.Text = "Mesajnız gönderildi, teşekkürler"
LblMailSent.Visible = True
LblMailNotSent.Visible = False
gonder.Enabled = "False"
gonder.Text = "GÖNDERİLDİ"
Catch ex As Exception
LblMailNotSent.Text = "Mesajınız gönderilemedi, tekrar deneyin !!! "
LblMailNotSent.Visible = True
LblMailSent.Visible = False
gonder.Enabled = "False"
gonder.Text = "GÖNDERİLEMEDİ"
End Try
End Sub
End Class