ciao a tt..gg ho avuto l'idea di provare a inviare email

però continua a darmi l'errore..

codice:
Dim mail As New MailMessage
        mail.From = New MailAddress("immitente")
        mail.To.Add(New MailAddress("destinatario"))
        Dim client As New SmtpClient("smtp", porta)
        Dim access As New Net.NetworkCredential
        access.UserName = "username"
        access.Password = "password"
        client.Credentials = access
try        
        client.Send(mail)
catch as smtpexception
        msgbox"errore!"
end try
e mi compare il messaggio di errore..cm mai?
il server smtp e la porta sono giusti..
thx