Impossibile accedere all'oggetto CDO.MESSAGE".

questo è l'errore che mi compare quando cerco di spedire una mail
codice:
imports system.web.mail 

Public Function InviaEmail(ByVal Destinatario As String, ByVal Oggetto As String, ByVal Corpo As String, Optional ByVal Allegati As String = "") As Boolean 
Try 
SmtpMail.SmtpServer = "mail.server.it" 
Dim Messaggio As MailMessage = New MailMessage 
Messaggio.From = "utente@server.it" 
Messaggio.To = Destinatario 
Messaggio.Subject = Oggetto 
Messaggio.Body = Corpo 
If Allegati.Trim <> "" Then 
Dim ElencoAllegati As String() = Allegati.Split(",") 
Dim DettaglioAllegati As String 
For Each DettaglioAllegati In ElencoAllegati 
Dim AllegatoEmail As New MailAttachment(DettaglioAllegati) 
Messaggio.Attachments.Add(AllegatoEmail) 
Next 
End If 
SmtpMail.Send(Messaggio) 
Return True 
Catch ex As Exception 
MsgBox(ex.Message, MsgBoxStyle.Critical) 
Return False 
End Try 
End Function
per il codice va bene
saperte dirmi in cosa sbaglio?
grazie