Thanks. It does not seem to be the ip of the firewall.

>From Windows command prompt:
>
>TRACERT www.gmail.com
>
>Look at the output to determine where the route fails. If it's the ip address of the firewall, you know that's your problem.
>
>>This code works on all the sites where I have installed it, except in some. The client.send() just fails. I guess this is firewall issue. I there anyway one can figure out why the client.send fails?
>>
>>Thanks (Sergey :) ).
>>
>>
>>

>>    Public Sub SendEmail(ByVal subject As String, ByVal messageBody As String, _
>>     ByVal fromAddress As String, ByVal toAddress As String, ByVal ccAddress As String)
>>
>>        Dim message As New MailMessage()
>>        Dim client As New SmtpClient()
>>
>>        'Set the sender's address
>>        message.From = New MailAddress(fromAddress)
>>        'Allow multiple "To" addresses to be separated by a semi-colon
>>        If (toAddress.Trim.Length > 0) Then
>>            For Each addr As String In toAddress.Split(";"c)
>>                message.To.Add(New MailAddress(addr))
>>            Next
>>        End If
>>
>>        'Allow multiple "Cc" addresses to be separated by a semi-colon
>>        If (ccAddress.Trim.Length > 0) Then
>>            For Each addr As String In ccAddress.Split(";"c)
>>                message.CC.Add(New MailAddress(addr))
>>            Next
>>        End If
>>        'Set the subject and message body text
>>        message.Subject = subject
>>        message.IsBodyHtml = False
>>        message.Body = messageBody
>>
>>        client.Host = "smtp.gMAIL.com"
>>        client.Credentials = New System.Net.NetworkCredential("***@gmail.com", "***")
>>        'client.Port = 587
>>        client.Port = 465
>>        client.EnableSsl = True
>>        'Send the e-mail message
>>        Dim l As Boolean = False
>>        Try
>>            client.Send(message)
>>        Catch
>>            l = True
>>        End Try
>>        If l Then
>>            MsgBox("Send failure")
>>        Else
>>            MsgBox("OK")
>>        End If
>>    End Sub
>>