Probleme envois de mail

Bonjour,

J'ai un probleme quand j'essaie d'envoyer un mail en utlisant la classe MailMessage, il me met une erreur sur la commande "SmtpMail.Send(newMail)", le message est "Erreur lors du chargement de la bibliothèque/DLL du type" et je ne comprends pas d'ou ça vient, voici le code de ma fonction :
Public Function envoyer_mail(ByRef code_err As Integer) As Boolean
        Dim newMail As New MailMessage

        envoyer_mail = True
        newMail.From = "monmail@free.fr"
        newMail.To = adresseMail
        Select Case typeMessage
            Case "err"
                newMail.Subject = "Vous avez signalé une erreur concernant le dossier : " + nAnnonce.ToString
            Case "mod"
                newMail.Subject = "Vous avez signalé une modification concernant le dossier : " + nAnnonce.ToString
            Case "inf"
                newMail.Subject = "Vous avez apporté des informations complémentaires concernant le dossier : " + nAnnonce.ToString
        End Select
        newMail.Body = descriptionMessage

        SmtpMail.SmtpServer = "smtp.demaboite.com"

        Try
            SmtpMail.Send(newMail)
        Catch ex As Exception
                envoyer_mail = False
                code_err = 2
        End Try

        Return (envoyer_mail)

    End Function

AlfKenobi