Problemas envio de mail con VB.NET

Carlos Paul
06 de Mayo del 2008
Dim mailMsg As New System.Net.Mail.MailMessage
Dim SmtpMM As New System.Net.Mail.SmtpClient("IP Server", 25)

Try
SmtpMM.Host = "IP SERVER"
SmtpMM.Credentials = New System.Net.NetworkCredential("user dominio", "paswword dominio", "Dominio")
mailMsg.From = New MailAddress("mailFROM@ xxx.com")
mailMsg.To.Add("[email protected]")
mailMsg.Subject = "Envio mail"
mailMsg.Body = "Este es el cuerpo de un mensaje de prueba para el FAMIBUZON"

SmtpMM.Send(mailMsg)
MsgBox("Los correos fueron enviados a sus respectivos destinatarios.")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try



Tengo el MENSAJE DE ERROR:
En todos los intentos que he querido enviar un mail desde una direccion fija empresarial hacia otra.

{"No se ha podido establecer conexión ya que el equipo de destino ha denegado activamente dicha conexión"}