Ciao ragazzi,
scusatemi ma questo invio email mi sta uccidendo e non riesco a trovare soluzioni definitive...

Quando invio una email ad un indirizzo di libero ottengo che l'email resta in queue e non parte, cosa che non accade invece con altri destinatari differenti da libero.

Sapete dirmi se per caso c'è qualche errore in questo codice?
grazie a tutti

codice:
            Dim objMM As New MailMessage()

            'Set the properties

            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "indirizzo_ip_server")
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "username")
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "password")

            objMM.To = regolare
            objMM.From = "Mittente < username>"

            'Send the email in HTML format
            objMM.BodyFormat = MailFormat.Html

            'Set the subject
            objMM.Subject = oggetto

            'Set the body - use VbCrLf to insert a carriage return
            objMM.Body = "contenuto"


            SmtpMail.Send(objMM)