email validation

[blueye89]

Hi,I have a question for anyone who knows to resolve.
I making an "sign in" application for checking email address with username and password as input.As output it will show me msgbox with content "Your email and password are correct!" or Not.

There is a code:

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Declare variables
Dim sSelectedSMTPServer As String = ""
Dim iSelectedSMTPPort As Integer

'Check wich email account is selected and provide correct smtp address / port.
Select Case True
Case CheckBox1.Checked
sSelectedSMTPServer = "smtp.gmail.com"
iSelectedSMTPPort = 587
Case CheckBox2.Checked
sSelectedSMTPServer = "smtp.live.com"
iSelectedSMTPPort = 587
Case CheckBox3.Checked
sSelectedSMTPServer = "smtp.mail.yahoo.com"
iSelectedSMTPPort = 465
Case Else
'If no account is selected you will get a message and the program will not attempt to send the email.
MsgBox("Please choose your email service.", vbInformation)
End Select
'For multiple selection
If CheckBox1.Checked And CheckBox2.Checked Then
MsgBox("You must select only one email service.", vbInformation)
ElseIf CheckBox1.Checked And CheckBox3.Checked Then
MsgBox("You must select only one email service.", vbInformation)
ElseIf CheckBox2.Checked And CheckBox3.Checked Then
MsgBox("You must select only one email service.", vbInformation)
ElseIf CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked Then
MsgBox("You must select only one email service.", vbInformation)
End If

Exit Sub

Dim SMTP As New SmtpClient
'SSL enabled for outgoing mail.
SMTP.EnableSsl = True
'Get login credentials.
SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
'SMTP Port that will be used.
SMTP.Port = iSelectedSMTPPort

Try
What???
MsgBox("Successfully logged", MsgBoxStyle.Information, "Report")
Me.Close()
Catch ex As Exception
MsgBox("Unsuccessfully logged", MsgBoxStyle.Exclamation, "Report")
End Try
End Sub

[DataMiser]

So what is the question?

[Cimperiali]

the code is obviously half a porting from vb6, and the question is in the last part of it:

Try
What???

in net since 2.0 we have the permission class for that.THis is a translation of C# code from
http://msdn.microsoft.com/en-us/libr...ccess.aspx#Y69

privatec function  CreateConnectPermission() As SmtpPermission

    dim connectAccess as new   SmtpPermission(SmtpAccess.Connect)
    if connectAccess.Access then
        Debug.writeLine("Accessed")
    end if
    
    return connectAccess
end function

[blueye89]

This permission class looks good,but is not working.I modify it,but still not working.

Private Function CreateConnectPermission() As SmtpPermission
Dim connectAccess As New SmtpPermission(SmtpAccess.Connect)

If
connectAccess.Access = True
MsgBox("Successfully logged", MsgBoxStyle.Information, "Report")
Else
MsgBox("Unsuccessfully logged", MsgBoxStyle.Information, "Report")
End If

End Function

[blueye89]

I was trying to resolve as you say but nothing.
I'am waiting for a right person to resolve problem.
Tnx anyway.

[Cimperiali]

instead of remaining sit and wait, why don't you try a different query with google - like "verify email address"?

http://www.labnol.org/software/verif...address/18220/

http://www.webdigi.co.uk/blog/2009/h...ding-an-email/

http://forums.asp.net/t/1545019.aspx/1