El Siguiente codigo Lo utilizo para enviar Mail desde una Aplicacion de VB NET mas solo funciona una vez (la primera), y ya no vuelve a enviar mail, alguien puede echarle un ojo y decirme que esta mal.
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''
Dim MiPrimerCorreo As New MailMessage()
'Establece el nombre del servidor de transmisión de correo SMTP
'que se va a utilizar para enviar los mensajes de correo electrónico.
SmtpMail.SmtpServer = "C2EXCHSRV1"
'Se Indica la Dirección de correo que envia
MiPrimerCorreo.From = txtde.Text
'Se Indica la Dirección de correo que recibira
MiPrimerCorreo.To = txtpara.Text
'se indica la dirección de correo del usuario al que se copia
MiPrimerCorreo.Cc = txtcc.Text
'Se Indica el Asunto del correo a enviar
MiPrimerCorreo.Subject = txtasunto.Text
'El Mensaje del Correo
MiPrimerCorreo.Body = txtmensaje.Text
'establece el tipo de contenido del texto del mensaje de correo elect.
'MailFormat.Html o MailFormat.Text
MiPrimerCorreo.BodyFormat = MailFormat.Text
'Establece la prioridad del mensaje de correo electrónico
'MailPriority.High, MailPriority.Normal o MailPriority.Low
MiPrimerCorreo.Priority = MailPriority.Normal
'Envía un mensaje de correo electrónico utilizando argumentos
'suministrados en las propiedades de la clase MailMessage.
SmtpMail.Send(MiPrimerCorreo)
'Sleep(5000)
MessageBox.Show("Mensaje Enviado.")
MiPrimerCorreo = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''
Si alguien Encontreo algun error y podria orientarme.
Gracias por su Ayuda
ralmeida@sewsus.com.mx
El Sig. Codigo utilizo para enviar Mail, Mas No Funciona, 
Mode Lineal
