EPosta Adresini Doğrulayıcı Proje Örneği

NOT: Projedeki eksik ve yanlışlıklar gözden geçirilip Düzeltildi (09.03.2015)

Email Doğrula Ve Gönder İNDİR

Anaform Kodları

Imports System.Text.RegularExpressions Imports System.Net.Mail Imports System.IO Imports System.Net.Sockets Imports System.Text Imports System.Net.Security Public Class AnaForm      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Try             Dim mail As New MailMessage()             Dim SmtpServer As New SmtpClient             SmtpServer.Timeout = 999999999             SmtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text + TextBox5.Text, TextBox2.Text)             SmtpServer.Port = 587             SmtpServer.Host = ComboBox1.SelectedItem.ToString              If ComboBox1.SelectedItem = "smtp.mail.yahoo.com" Then                 SmtpServer.EnableSsl = False             Else                 SmtpServer.EnableSsl = True             End If             mail.To.Add(KimeTxt.Text)             mail.From = New MailAddress(TextBox1.Text + TextBox5.Text)             mail.Subject = TextBox6.Text             mail.Body = "<b><font color=black>" + TextBox4.Text             mail.IsBodyHtml = True              If TextBox7.Text = "--Eklenti Yok--" Then                 SmtpServer.Send(mail)             Else                 mail.Attachments.Add(New Net.Mail.Attachment(OpenFileDialog1.FileName.ToString))                 SmtpServer.Send(mail)             End If             MsgBox("E-posta başarıyla gönderildi", MsgBoxStyle.Information)         Catch ex As Exception             MsgBox(ex.Message, MsgBoxStyle.Critical, "Hata")         End Try         Return     End Sub      Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged         If TextBox1.Text = "" Or TextBox2.Text = "" Or KimeTxt.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text = "" Then             Button1.Enabled = False         Else             Button1.Enabled = True         End If     End Sub      Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged         If TextBox1.Text = "" Or TextBox2.Text = "" Or KimeTxt.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text = "" Then             Button1.Enabled = False         Else             Button1.Enabled = True         End If     End Sub      Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KimeTxt.TextChanged         If TextBox1.Text = "" Or TextBox2.Text = "" Or KimeTxt.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text = "" Then             Button1.Enabled = False         Else             Button1.Enabled = True         End If     End Sub      Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged         If TextBox1.Text = "" Or TextBox2.Text = "" Or KimeTxt.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text = "" Then             Button1.Enabled = False         Else             Button1.Enabled = True         End If     End Sub      Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged         If ComboBox1.SelectedItem = "smtp.gmail.com" Then             TextBox5.Text = "@gmail.com"             ComboBox2.Hide()             ComboBox3.Hide()             Label7.Hide()         End If         If ComboBox1.SelectedItem = "smtp.live.com" Then             ComboBox2.Show()             ComboBox3.Hide()             TextBox5.Clear()             Label7.Show()             TextBox5.Text = "E-Posta Sağlayıcı Seç"         End If          If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Hotmail" Then             TextBox5.Text = "@hotmail.com"         End If         If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Live" Then             TextBox5.Text = "@live.com"         End If         If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Outlook" Then             TextBox5.Text = "@outlook.com"         End If         If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Msn" Then             TextBox5.Text = "@msn.com"         End If         If ComboBox1.SelectedItem = "smtp.aol.com" Then             TextBox5.Text = "@aol.com"             ComboBox2.Hide()             ComboBox3.Hide()             Label7.Hide()         End If         If ComboBox1.SelectedItem = "smtp.mail.yahoo.com" Then             ComboBox2.Hide()             ComboBox3.Hide()             Label7.Hide()             TextBox5.Text = "@yahoo.com"         End If         If ComboBox1.SelectedItem = "smtp.gmx.com" Then             TextBox5.Clear()             ComboBox3.Hide()             ComboBox3.Show()             Label7.Show()             TextBox5.Text = "E-Posta Sağlayıcı Seç"          End If         If ComboBox1.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.com" Then             TextBox5.Text = "@gmx.com"         End If         If ComboBox1.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.us" Then             TextBox5.Text = "@gmx.us"         End If         If ComboBox1.SelectedItem = "smtp.hushmail.com" Then             ComboBox2.Hide()             ComboBox3.Hide()             Label7.Hide()             TextBox5.Text = "@hushmail.com"         End If         Button3.Enabled = True         Button4.Enabled = True         TextBox1.Focus()     End Sub      Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged          If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Hotmail" Then             TextBox5.Text = "@hotmail.com"         End If         If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Live" Then             TextBox5.Text = "@live.com"         End If         If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Outlook" Then             TextBox5.Text = "@outlook.com"         End If         If ComboBox1.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Msn" Then             TextBox5.Text = "@msn.com"         End If         If ComboBox2.Text = "Hotmail" Then             TextBox5.Text = "@hotmail.com"         End If         If ComboBox2.Text = "Live" Then             TextBox5.Text = "@live.com"         End If         If ComboBox2.Text = "Msn" Then             TextBox5.Text = "@msn.com"         End If         If ComboBox2.Text = "Outlook" Then             TextBox5.Text = "@outlook.com"         End If     End Sub      Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged          If TextBox1.Text = "" Or TextBox2.Text = "" Or KimeTxt.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text = "" Then             Button1.Enabled = False         Else             Button1.Enabled = True         End If      End Sub       Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged          If TextBox1.Text = "" Or TextBox2.Text = "" Or KimeTxt.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text = "" Then             Button1.Enabled = False         Else             Button1.Enabled = True         End If      End Sub      Private Sub YardimBtn_Click(sender As System.Object, e As System.EventArgs) Handles YardimBtn.Click         Yardim.Show()     End Sub      Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked         OpenFileDialog1.ShowDialog()     End Sub      Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk         TextBox7.Text = OpenFileDialog1.FileName.ToString     End Sub      Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked         TextBox7.Text = "--Eklenti Yok--"     End Sub      Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged          If ComboBox1.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.com" Then             TextBox5.Text = "@gmx.com"         End If         If ComboBox1.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.us" Then             TextBox5.Text = "@gmx.us"         End If         If ComboBox3.Text = "gmx.com" Then             TextBox5.Text = "@gmx.com"         End If         If ComboBox3.Text = "gmx.us" Then             TextBox5.Text = "@gmx.us"         End If      End Sub      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         AyarFrm.Left = Me.Left + Me.Width + 10         AyarFrm.Top = Me.Top         AyarFrm.Show()     End Sub      Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click         Button2.PerformClick()     End Sub      Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Timer2.Enabled = True     End Sub      Function IsConnected() As Boolean         Return My.Computer.Network.Ping("173.194.46.114") 'Ping at..     End Function      Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick          If IsConnected() = True Then             Label10.Text = ""             '106; 433             Label10.Location = New Point(106, 433)             Label10.Text = "İnternet Bağlı"             Timer2.Enabled = False             PicAnim.Visible = False             TextBox4.Text = ""          ElseIf IsConnected() = False Then             Label10.Text = "Bağlı Değil"             Dim msj As String = "  Internet Bağlı Değil." & vbCrLf & _                 " Bağlantınızı kontrol edip" & vbCrLf & _                 " tekrar deneyin lütfen. "             TextBox4.Text = msj         End If     End Sub      Private Sub Label10_TextChanged(sender As System.Object, e As System.EventArgs) Handles Label10.TextChanged          If IsConnected() = True And Label10.Text = "Bağlı" Then             PicAnim.Visible = False             Timer2.Enabled = False             TextBox4.Text = ""         ElseIf IsConnected() = False And Label10.Text = "Bağlı değil" Then             Timer2.Enabled = True         End If      End Sub      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click          If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox5.Text = "" Or ComboBox1.Text = "" Then             MsgBox("Kontrol için tüm Giriş Bilgilerini doldurun.", MsgBoxStyle.Exclamation)         Else             DogrulaFrm.Show()         End If      End Sub       Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click          If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox5.Text = "" Or ComboBox1.Text = "" Then             MsgBox("Kontrol için tüm Giriş Bilgilerini doldurun.", MsgBoxStyle.Exclamation)         Else             DogrulaFrm.YetkilendirmeyiBaslat_Click(sender, e)         End If      End Sub    End Class

Ayarlar Formu Kodları

Public Class AyarFrm      Public MySettings(,) As String     Dim intSettings1 As Integer      Private Sub AyarFrm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load         'Combo profil adlarını tutar         ProfilCmb.Focus()         ProfilCmb.Items.Clear()          If ProfilCmb.Text = "" Then             ProfilAktarBtn.Enabled = False             ProfilSilBtn.Enabled = False             SaklaBtn.Enabled = False             DuzenleBtn.Enabled = False         End If         Me.ProfilCmb.Text = "Profil Seçin"      End Sub      Private Sub SaklaBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaklaBtn.Click          SaveSetting(Application.ProductName, ProfilCmb.Text, "Combobox2", Me.ComboBox2.Text)         SaveSetting(Application.ProductName, ProfilCmb.Text, "textbox5", TextBox5.Text)         SaveSetting(Application.ProductName, ProfilCmb.Text, "Combobox3", Me.ComboBox3.Text)         SaveSetting(Application.ProductName, "ProfilAdı", ProfilCmb.Text, ProfilCmb.Text)         SaveSetting(Application.ProductName, ProfilCmb.Text, "AnaBilgisayarAdı", SaglayiciCmb.Text)         SaveSetting(Application.ProductName, ProfilCmb.Text, "KullanıcıAdı", email.Text)         SaveSetting(Application.ProductName, ProfilCmb.Text, "Şifre", SifreTxt.Text)          MsgBox("Ayarlar Başarı ile saklandı", MsgBoxStyle.Information, "Saklanıyor....")         SaklaBtn.Enabled = False         ProfilCmb.DropDownStyle = ComboBoxStyle.DropDownList         SaglayiciCmb.Enabled = False         ComboBox2.Enabled = False         ComboBox3.Enabled = False         email.ReadOnly = True         SifreTxt.ReadOnly = True         DuzenleBtn.Enabled = True         ProfilSilBtn.Enabled = False         ProfilAktarBtn.PerformClick()      End Sub      Private Sub ProfilCmb_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ProfilCmb.DropDown          On Error Resume Next          MySettings = GetAllSettings(Application.ProductName, "ProfilAdı")         ProfilCmb.Items.Clear()          For Me.intSettings1 = LBound(MySettings, 1) To UBound(MySettings, 1)             ProfilCmb.Items.Add(MySettings(intSettings1, 1))         Next intSettings1      End Sub      Private Sub ProfilCmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilCmb.SelectedIndexChanged          SaglayiciCmb.Text = GetSetting(Application.ProductName, ProfilCmb.Text, "AnaBilgisayarAdı")         email.Text = GetSetting(Application.ProductName, ProfilCmb.Text, "KullanıcıAdı")         SifreTxt.Text = GetSetting(Application.ProductName, ProfilCmb.Text, "Şifre")          SaveSetting(Application.ProductName, ProfilCmb.Text, "Combobox2", ComboBox2.Text)         SaveSetting(Application.ProductName, ProfilCmb.Text, "Combobox3", ComboBox3.Text)          Label10.Text = ProfilCmb.Text         ComboBox2.Text = GetSetting(Application.ProductName, ProfilCmb.Text, "Combobox2", ComboBox2.SelectedItem)         ComboBox3.Text = GetSetting(Application.ProductName, ProfilCmb.Text, "Combobox3", ComboBox3.SelectedItem)          TextBox5.Text = GetSetting(Application.ProductName, ProfilCmb.Text, "textbox5", TextBox5.Text)      End Sub      Private Sub ProfilAktarBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilAktarBtn.Click          If String.IsNullOrEmpty(ProfilCmb.Text) Or ProfilCmb.Text = "" Then Exit Sub          SaveSetting(Application.ProductName, "Seçilen", "Adı", ProfilCmb.Text)         AnaForm.ComboBox1.SelectedItem = Me.SaglayiciCmb.Text         AnaForm.TextBox1.Text = Me.email.Text         AnaForm.TextBox2.Text = Me.SifreTxt.Text         AnaForm.ComboBox2.SelectedItem = Me.ComboBox2.SelectedItem         AnaForm.ComboBox3.SelectedItem = Me.ComboBox3.SelectedItem         AnaForm.TextBox5.Text = Me.TextBox5.Text         Me.Dispose()      End Sub      Private Sub ProfilSilBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilSilBtn.Click          If String.IsNullOrEmpty(ProfilCmb.Text) Or ProfilCmb.Text = "" Then Exit Sub         DeleteSetting(Application.ProductName, ProfilCmb.Text)         DeleteSetting(Application.ProductName, "ProfilAdı", ProfilCmb.Text)         For Each CNTL As Control In Me.Controls             If TypeOf CNTL Is TextBox Then                 CNTL.Text = ""             End If         Next         MsgBox("Başarı ile silindi", MsgBoxStyle.Information, "Siliniyor....")      End Sub      Private Sub SaglayiciCmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaglayiciCmb.SelectedIndexChanged          If SaglayiciCmb.SelectedItem = "smtp.gmail.com" Then             TextBox5.Text = "@gmail.com"             ComboBox2.Hide()             ComboBox3.Hide()             Label7.Hide()         End If          If SaglayiciCmb.SelectedItem = "smtp.live.com" Then             ComboBox2.Show()             If SaklaBtn.Enabled = True Then                 ComboBox2.Enabled = True             Else                 ComboBox2.Enabled = False             End If             ComboBox3.Hide()             TextBox5.Clear()             Label7.Show()             TextBox5.Text = "E-Posta Sağlayıcı Seç"         End If          If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Hotmail" Then             TextBox5.Text = "@hotmail.com"         End If          If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Live" Then             TextBox5.Text = "@live.com"         End If          If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Outlook" Then             TextBox5.Text = "@outlook.com"         End If         If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Msn" Then             TextBox5.Text = "@msn.com"         End If          If SaglayiciCmb.SelectedItem = "smtp.aol.com" Then             TextBox5.Text = "@aol.com"             ComboBox2.Hide()             ComboBox3.Hide()             Label7.Hide()         End If          If SaglayiciCmb.SelectedItem = "smtp.mail.yahoo.com" Then             ComboBox2.Hide()             ComboBox3.Hide()             Label7.Hide()             TextBox5.Text = "@yahoo.com"         End If          If SaglayiciCmb.SelectedItem = "smtp.gmx.com" Then             TextBox5.Clear()             ComboBox2.Hide()             ComboBox3.Show()             If SaklaBtn.Enabled = True Then                 ComboBox3.Enabled = True             Else                 ComboBox3.Enabled = False             End If              Label7.Show()             TextBox5.Text = "E-Posta Sağlayıcı Seç"         End If         If SaglayiciCmb.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.com" Then             TextBox5.Text = "@gmx.com"         End If         If SaglayiciCmb.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.us" Then             TextBox5.Text = "@gmx.us"         End If      End Sub      Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged          If ComboBox3.Text = "gmx.com" Then             TextBox5.Text = "@gmx.com"         End If         If ComboBox3.Text = "gmx.us" Then             TextBox5.Text = "@gmx.us"         End If         If SaglayiciCmb.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.com" Then             TextBox5.Text = "@gmx.com"         End If         If SaglayiciCmb.SelectedItem = "smtp.gmx.com" And ComboBox3.Text = "gmx.us" Then             TextBox5.Text = "gmx.us"         End If      End Sub      Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged          If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Hotmail" Then             TextBox5.Text = "@hotmail.com"         End If         If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Live" Then             TextBox5.Text = "@live.com"         End If         If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Outlook" Then             TextBox5.Text = "@outlook.com"         End If         If SaglayiciCmb.SelectedItem = "smtp.live.com" And ComboBox2.Text = "Msn" Then             TextBox5.Text = "@msn.com"         End If         If ComboBox2.SelectedItem = "Hotmail" Then             TextBox5.Text = "@hotmail.com"         End If         If ComboBox2.SelectedItem = "Live" Then             TextBox5.Text = "@live.com"         End If         If ComboBox2.SelectedItem = "Outlook" Then             TextBox5.Text = "@outlook.com"         End If         If ComboBox2.SelectedItem = "Msn" Then             TextBox5.Text = "@msn.com"         End If      End Sub      Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged          If TextBox5.Text = "@hotmail.com" Then             ComboBox2.Text = "Hotmail"         End If         If TextBox5.Text = "@live.com" Then             ComboBox2.Text = "Live"         End If         If TextBox5.Text = "@msn.com" Then             ComboBox2.Text = "Msn"         End If      End Sub      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click          SaklaBtn.Enabled = True         DuzenleBtn.Enabled = False         ProfilAktarBtn.Enabled = False         ProfilSilBtn.Enabled = False         ProfilCmb.DropDownStyle = ComboBoxStyle.Simple         ProfilCmb.Text = "Yeni Profil"         SaglayiciCmb.Enabled = True         SaglayiciCmb.Text = "Seç"         ComboBox2.Enabled = True         ComboBox3.Enabled = True         Label10.Text = "Yeni Profil"         email.ReadOnly = False         email.Clear()         SifreTxt.ReadOnly = False         SifreTxt.Clear()      End Sub      Private Sub ProfilCmb_SelectedIndexchanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilCmb.SelectedIndexChanged         If ProfilCmb.Text = "" Then             ProfilAktarBtn.Enabled = False             ProfilSilBtn.Enabled = False             DuzenleBtn.Enabled = False         Else             ProfilAktarBtn.Enabled = True             ProfilSilBtn.Enabled = True             DuzenleBtn.Enabled = True         End If     End Sub      Private Sub ProfilCmb_textchanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilCmb.TextChanged          Label10.Text = ProfilCmb.Text          If ProfilCmb.Text = "" Then             DuzenleBtn.Enabled = False             ProfilAktarBtn.Enabled = False             ProfilSilBtn.Enabled = False         Else             DuzenleBtn.Enabled = True             ProfilAktarBtn.Enabled = True             ProfilSilBtn.Enabled = True         End If      End Sub      Private Sub DuzenleBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DuzenleBtn.Click          SaklaBtn.Enabled = True         DuzenleBtn.Enabled = False         ProfilCmb.DropDownStyle = ComboBoxStyle.DropDown         SaglayiciCmb.Enabled = True         ComboBox2.Enabled = True         ComboBox3.Enabled = True         email.ReadOnly = False         SifreTxt.ReadOnly = False      End Sub  End Class

Doğrulama Formu Kodları

Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Text Imports System.Windows.Forms Imports Email.NET.POP3.Command Imports Email.NET.POP3 Imports Email.NET.Common Imports Email.NET.Common.Configurations  Partial Public Class DogrulaFrm     Inherits Form     Public Sub New()         InitializeComponent()         etkilesimCmb.Items.AddRange(New Object() {EInteractionType.Plain, EInteractionType.SSLPort, EInteractionType.StartTLS})         etkilesimCmb.DropDownStyle = ComboBoxStyle.DropDownList         dogrulamaCmb.DropDownStyle = ComboBoxStyle.DropDownList         dogrulamaCmb.Items.AddRange(New Object() {EAuthenticationType.None, EAuthenticationType.Auto, EAuthenticationType.Plain, EAuthenticationType.CramMD5, EAuthenticationType.DigestMD5, EAuthenticationType.Login})         etkilesimCmb.SelectedIndex = 1         etkilesimCmb.Refresh()         dogrulamaCmb.SelectedIndex = 1         etkilesimCmb.Refresh()     End Sub      Private Sub KapatBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles KapatBtn.Click         Close()     End Sub      Public Sub YetkilendirmeyiBaslat_Click(ByVal sender As Object, ByVal e As EventArgs) Handles YetkilendirmeyiBaslat.Click         On Error Resume Next         'Parametreleri gerekli olan 'POP3 istemcisi oluşturma         'URL bağlanmak için         target.Host = HostTxt.Text          'Bağlantı için TCP portu         target.Port = CUShort(Math.Truncate(portNO.Value))          'POP3 sunucusunda oturum için Kullanıcı adı         target.Username = GirisTxt.Text          'POP3 sunucusunda oturum ve Şifre          target.Password = ParolaTxt.Text         target.SSLInteractionType = CType(etkilesimCmb.SelectedItem, EInteractionType)         target.AuthenticationType = CType(dogrulamaCmb.SelectedItem, EAuthenticationType)          'Sunucuya giriş yap         Dim Yanit As Pop3Response = target.Login()          If Yanit.Type = EPop3ResponseType.OK Then             MessageBox.Show("Bu E-posta DOĞRU.", "Email Doğrulayıcı", MessageBoxButtons.OK, MessageBoxIcon.Information)             Me.Close()         Else             MessageBox.Show("Bu e-posta DOĞRU DEĞİL.", "Email Doğrulayıcı", MessageBoxButtons.OK, MessageBoxIcon.Stop)             Me.Close()         End If         'Sunucudan çıkış         target.Logout()     End Sub      Private Sub Goster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load                If AnaForm.ComboBox1.Text = "smtp.aol.com" Then             HostTxt.Text = "pop.aol.com"         End If         If AnaForm.ComboBox1.Text = "smtp.gmail.com" Then             HostTxt.Text = "Giriş Bilgileri"         End If         If AnaForm.ComboBox1.Text = "smtp.live.com" Then             HostTxt.Text = "pop3.live.com"         End If         If AnaForm.ComboBox1.Text = "smtp.mail.yahoo.com" Then             HostTxt.Text = "pop.mail.yahoo.com"         End If         If AnaForm.ComboBox1.Text = "smtp.gmx.com" Then             HostTxt.Text = "pop.gmx.com"         End If         ParolaTxt.Text = AnaForm.TextBox2.Text         GirisTxt.Text = AnaForm.TextBox1.Text + AnaForm.TextBox5.Text         Me.Top = AnaForm.Top         Me.Left = AnaForm.Left - (Me.Width + 10)     End Sub  End Class  <br />

Yardım Formu Kodları

bu Ekim 16, 2014 Komentar

EPosta Adresini Doğrulayıcı Proje Örneği

4/ 5

Oleh bu

vb.net

reklam

16 Ekim 2014 Perşembe