[VB2010 Class library] Problema con System.net.mail

[Cronoluis]

Ciao a tutti.

Ho un problema con la libreria System.net.mail, che permette di spedire delle eMail utilizzando un SMTP locale o remoto.

Io sto programmando un Application Server, che quindi va installato su un Server, che ha dei compiti specifici per gestire un database MySQL.
Inoltre quest'applicazione deve anche spedire alcune eMail, se si verifica un errore e anche in altri casi.

Testando l'applicazione in locale, tutto funziona a meraviglia. Anche le eMail vengono spedite correttamente tramite Yahoo e anche tramite GMail. Quando invece testo il programmino sul server con IP dedicato acquistato tramite Aruba, funziona tutto tranne la libreria System.net.mail, impedendomi di spedire le eMail.

Ho provato ad aprire tutte le porte sul firewall di Windows Server 2003, ma non c'è verso di fargli inviare queste eMail, mi da che non trova il server SMTP.
Allego un immagine dell'errore.

Qualcuno può aiutarmi con questo problema? Devo configurare qualcosa in Windows Server 2003?

Grazie mille per le risposte

PS: Ho testato anche l'applicazione su una macchina virtuale con Windows Server 2003, e anche in questo caso tutto funziona correttamente. Il problema viene quindi riscontrato solo su Windows Server 2003 di questo Server che ho acquistato da Aruba.


EDIT: Mi sono dimenticato il codice che uso:

Dim sendTo As New MailAddress("XX@gmail.com")
        Dim from As MailAddress = New MailAddress("XX@gmail.com")
        Dim message As New MailMessage(from, sendTo)
        message.IsBodyHtml = False
        message.Subject = "Oggetto del messaggio"
        message.Body = "Messaggio del messaggio"
        Dim basicAuthenticationInfo As New System.Net.NetworkCredential("XX@gmail.com", "password")
        Dim SMTPServer As New SmtpClient("smtp.googlemail.com")
        SMTPServer.UseDefaultCredentials = False
        SMTPServer.Port = 587
        SMTPServer.Credentials = basicAuthenticationInfo
        SMTPServer.EnableSsl = True
        Try
            SMTPServer.Send(message)
            MsgBox("Inviato...")
        Catch ex As Exception
            MsgBox("Non funzia..." + ex.ToString())
        End Try