Email in VB.Net

[Torre1992]

Ciao a tutti, mi sono dato al VB x motivi scolastici... Sto provando a fare un programmino che mandi un email consentendo di scegliere il server SMTP ma non funge...
Ecco il codice:

Imports System.Net.Mail
Imports System.Net

Public Class Form1
    Dim client As SmtpClient

    Sub Invia()
        If txtdestinatario.Text = "" Then
            MsgBox("Errore nel campo destinatario", MsgBoxStyle.Critical, "Errore")
            Return
        End If

        If txtmittente.Text = "" Then
            MsgBox("Errore nel campo mittente", MsgBoxStyle.Critical, "Errore")
            Return
        End If

        If txtoggetto.Text = "" Then
            MsgBox("Errore nel campo oggetto", MsgBoxStyle.Critical, "Errore")
            Return
        End If

        Dim msg As MailMessage
        Dim dest As MailAddress
        Dim author As New MailAddress(txtmittente.Text) 'Omesso il , "")
        dest = New MailAddress(txtdestinatario.Text)    'Omesso il , "")

        msg = New MailMessage

        msg.Subject = txtoggetto.Text
        msg.Sender = author
        msg.From = author
        msg.Body = testomsg.Text
        msg.ReplyTo = author
        msg.To.Add(dest)

        client = New SmtpClient(txtserver.Text)
        Try
            client.Credentials = New System.Net.NetworkCredential("", "")
            client.Send(msg)
            MsgBox("Email inviata correttamente", MsgBoxStyle.Information, "Email inviata")
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "ERRORE DI INVIO")
        End Try
    End Sub


    Private Sub btninvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninvia.Click
        Invia()
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        End
    End Sub


    Private Sub SmtpmailyahooitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahooitToolStripMenuItem.Click
        txtserver.Text = "mail.libero.it"
    End Sub

    Private Sub MailhclamelacomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MailhclamelacomToolStripMenuItem.Click
        txtserver.Text = "smtp.live.com"
    End Sub

    Private Sub Mail191itToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mail191itToolStripMenuItem.Click
        txtserver.Text = "mail.191.it"
    End Sub

    Private Sub OutaliceitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutaliceitToolStripMenuItem.Click
        txtserver.Text = "out.alice.it"
    End Sub

    Private Sub SmtptiscaliitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtptiscaliitToolStripMenuItem.Click
        txtserver.Text = "smtp.tiscali.it"
    End Sub

    Private Sub SmtpmailyahoocomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahoocomToolStripMenuItem.Click
        txtserver.Text = "smtp.mail.yahoo.com"
    End Sub

    Private Sub SmtparubaitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtparubaitToolStripMenuItem.Click
        txtserver.Text = "smtp.aruba.it"
    End Sub

    Private Sub SmtpemailitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpemailitToolStripMenuItem.Click
        txtserver.Text = "smtp.email.it"
    End Sub
End Class

Grazie in anticipo..

 

[fojeaf]

ehi, sei qua da un po', sai cosa c'è nel tuo post che nn va

 

[fojeaf]

warn per yawn, che sta diventando Bronsa2 la vendemmia, spero la smetta.

 

[Torre1992]

giusto giusto... chiedo scusa ma è passato tanto tempo

 

[fojeaf]

eh.. intendo che nn dici perché nn funge.. cioè, che errore ti dice o monate varie.

 

[yawn]

warn per yawn, che sta diventando Bronsa2 la vendemmia, spero la smetta.

hey no.. questo e' un colpo basso
cancello e faccio ammenda

 

[Torre1992]

ah... ahahha pensavo l'icona problema davanti alla discussione..
beh in effetti non hai tutti i torti.. ahhah

cmq mi da sempre un errore durante l'invio...
Cioè qui va sempre nell'eccezione:

Try
            client.Credentials = New System.Net.NetworkCredential("", "")
            client.Send(msg)
            MsgBox("Email inviata correttamente", MsgBoxStyle.Information, "Email inviata")
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "ERRORE DI INVIO")
        End Try

mi da un errore immenso che in poche parole è nome di cassetta postale non consentito... quindi mi viene da dire che sia un problema del server, ma avevo scaricato una sorgente di un programma simile sempre in vb che avevo provato con lo stesso server che uso da qui e funzionava quindi per questo non capisco..