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ı

Public NotInheritable Class Yardim Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() End Sub Private Sub Yardim_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.Top = AnaForm.Top Me.Left = AnaForm.Left - (Me.Width + 10) End Sub End Class

bu Ekim 16, 2014 Komentar

Related Posts

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

4/ 5

Oleh bu