Ho scritto la seguente funzione pedire una mail.

Public Function SendEMail() As Boolean
Dim vRet As Boolean
Dim oMsg As New MailMessage()
Try
'Imposta il mittente: favicarlo@gmail.com
oMsg.From = New MailAddress(_from)
'Allegato: nessuno
If Allegato IsNot Nothing Then
For Each ElemAllegato As String In Allegato
oMsg.Attachments.Add(New Attachment(ElemAllegato))
Next
End If
'destinatario: c.favi@libero.it
oMsg.To.Add(New MailAddress(_to))
'per conoscienza: nessuno
If _cc IsNot Nothing AndAlso _cc.Trim <> "" Then
oMsg.CC.Add(New MailAddress(_cc))
End If
If _Bcc IsNot Nothing AndAlso _Bcc.Trim <> "" Then
oMsg.Bcc.Add(New MailAddress(_Bcc))
End If
'Imposto oggetto: Prova
oMsg.Subject = _subject
'Imposto contenuto: Prova
oMsg.Body = _body
oMsg.IsBodyHtml = False
'Imposto il Server Smtp: smtp.gmail.com
Dim oSmtp As New SmtpClient(_smtp)
'Imposta il metodo di spedizione di tipo consegna diretta.
oSmtp.DeliveryMethod = SmtpDeliveryMethod.Network
'accesso autenticato: _user=favicarlo@gmail.com, _pass=....., _domain=gmail.com
If _user <> "" Or _pass <> "" Then
Dim oCredential As New NetworkCredential(_user, _pass, _domain)
oSmtp.Credentials = oCredential
oSmtp.UseDefaultCredentials = False
oSmtp.EnableSsl = False
Else
oSmtp.UseDefaultCredentials = True
End If
'porta: 465
If Porta <> 0 Then
oSmtp.Port = Porta
End If
If _ConnessioneSicura = "S" Then
'Impostiamo la modalità di connessione sicura
oSmtp.EnableSsl = True
End If
'Spediamo la mail
oSmtp.Send(oMsg)
vRet = True
Catch ex As Exception
vRet = False
End Try
Return vRet
End Function

Ho provato la funzione in debug: tutti i valori vengono caricati correttamente (li ho descritti nei commenti nel codice precedente) ma la funzione non funziona!!!!!
Dove ho sbagliato?

Grazie a tutti.