Envio de mails en aspx

[MasQueUnIntento]

Hola lista,
Estoy trabajando con Microsoft Visual Studio .NET 2003. En mi sitio Web tengo esta funcion en el global.asax de mi solucion. El problema es que no me funciona en IIS 5 alguien tiene alguna idea de la razon? porque tampoco es que lanza errores, simplemente los mails no llegan...

Código:

    Public Sub EnviarMailNotifica(ByVal sFrom As String, ByVal sTo As String, ByVal sSubject As String, ByVal sTextBody As String, Optional ByVal sAddAttachment As String = "")
        Const ConfigNamespace As String = "http:" 
        Dim iConfig As CDO.Configuration = Nothing
        Dim Flds As ADODB.Fields = Nothing
        Dim oMsg As CDO.Message = Nothing

        Try
            oMsg = New CDO.Message
            iConfig = New CDO.Configuration
            Flds = iConfig.Fields
            'CONFIGURACION DEL SERVIDOR SMTP (Remoto)
            '===========================================              
            With Flds
                ' servidor Smpt por ejemplo "smtp.telefonica.net"
                .Item(ConfigNamespace & "smtpserver").Value = "smtp.gmail.com "
                .Item(ConfigNamespace & "smtpserverport").Value = 587 '25
                .Item(ConfigNamespace & "sendusing").Value = CDO.CdoSendUsing.cdoSendUsingPort

                ' Usuario y palabra de paso para el servidor Smtp
                .Item(ConfigNamespace & "sendusername").Value = "[email protected]"
                .Item(ConfigNamespace & "sendpassword").Value = "passgmail"
                .Item(ConfigNamespace & "smtpauthenticate").Value = CDO.CdoProtocolsAuthentication.cdoAnonymous 'cdoBasic
                .Update()
            End With
            ' MONTAR EL  MENSAJE
            '===========================================
            With oMsg
                .Configuration = iConfig
                .From = sFrom
                .To = sTo
                .Subject = sSubject
                .TextBody = sTextBody
                If sAddAttachment <> "" Then
                    .AddAttachment(sAddAttachment)
                End If
                .Send()
            End With

        Catch ex As System.Runtime.InteropServices.COMException

            If ex.ErrorCode = -2147220973 Then
                Throw New InvalidOperationException( _
                 " La Conexión con Internet da problemas. " & _
                   ControlChars.CrLf & _
                 " Hay en Error de transporte en la conexión al servidor. " & _
                   ControlChars.CrLf & _
                 " Comprueba que la conexión con Internet esté establecida", ex)
            End If

            Throw New InvalidOperationException( _
            " Componente CDO. Error no controlado " & ControlChars.CrLf & _
            " Numero del error: " & ex.ErrorCode & ControlChars.CrLf & _
            " Texto del error : " & ex.Message & ControlChars.CrLf, ex)

        Catch ex As Exception
            Throw ex
        Finally
            oMsg = Nothing
            Flds = Nothing
            iConfig = Nothing
        End Try
    End Sub

Desde ya Enorme Gracias!!!!!!