Problema para enviar un Correo

Saludos Señores, quisiera molestarlo con un pregunta que a
lo mejor ya la tiene resuelto alguno de ustedes y me puede
dar una manito.
Necesito que mi aplicacion windows envie un correo,
declaro la clase "Imports System.Web.Mail", y utilizo el
siguiente codigo
Dim email As New MailMessage
email.From = "roberto.sanchez@rosen.cl"
email.To = "roberto.sanchez@rosen.cl"
email.Subject = "Prueba correito"
email.Body = Str_Sele0 & Str_Sele
SmtpMail.SmtpServer = "<< Mi Servidor de Correo >>"
SmtpMail.Send(email)
Este codigo funciona, en otra maquina donde el equipo es
Servidor, pero en mi estacion de trabajo aunque se ejecuta
todo el codigo sin errores el correo nunca llega a destino.

Será que debo darle algun tipo de permisos a mi
maquina o algo de eso, si me puden dar una manito se los
agradeceria por favor.

Gracias.