Que tal a todos, directo al grano:

Tengo una aplicación, por X motivo, debo enviar un correo, aquí el codigo:

Dim miCorreo As New System.Net.Mail.MailMessage

miCorreo.IsBodyHtml = False

miCorreo.From = New System.Net.Mail.MailAddress("ti@respuesta.cl") 'mail desde donde se envía

miCorreo.To.Add("p_bascunan@empresa.cl") 'Mail del destinatario

miCorreo.Subject = "Mensaje de prueba desde aplicación windows [solovb.net]" 'Asunto

miCorreo.Body = "cvzxcvxzcvzxcv" 'Cuerpo del mensaje

miCorreo.Priority = System.Net.Mail.MailPriority.Normal 'Prioridad

Dim smtp As New System.Net.Mail.SmtpClient



smtp.Host = "mail.empresa.cl"

'para las credenciales debo pasarle la cuenta y la clave desde donde se envía

smtp.Credentials = New System.Net.NetworkCredential("correo", "clave")


Try

smtp.Send(miCorreo)

MsgBox("Mensaje enviado.", MsgBoxStyle.OkOnly, "solovb.net")

Catch ex As Exception

MsgBox("ERROR: " & ex.Message, MsgBoxStyle.OkOnly, "Error!")

End Try

El asunto es que lo envia correctamente desde mi maquina virtual en Windows Xp, pero cuando compilo y lo envio al pc real con Windows 7, no manda el correo y me da el error "ERROR": Error al enviar el correo, cabe señalar que tengo IIS instalado y corriendo en windows 7, ya me tiene con la cabeza bien quemada, asi que me voy para la casa ahora, espero que mañana tenga alguna respuesta, saludos a todos.

Saludos:

Ocupo esta funcion para que cuando algo me falle en mi aplicacion, me envie un email con un JPG de la pantalla, capturando el momento en que ocurrio la excepcion:

Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.Unhandle dExceptionEventArgs) Handles Me.UnhandledException
Dim myMailMessage As New MailMessage("fromuser@email.com", "myemail@mymail.com")
myMailMessage.Priority = MailPriority.High
myMailMessage.Subject = "Unhandled Error At : " & Now

Dim MediaType As String = "text/html"
Dim BodyText As String = CreateExceptionText(e.Exception)
Dim HTMLContent As AlternateView = AlternateView.CreateAlternateViewFromString(BodyTe xt, Nothing, MediaType)
Me.TakeScreenShot()
Dim Screenshot As New LinkedResource("error.jpg")
Screenshot.ContentId = "SCREENSHOT"
HTMLContent.LinkedResources.Add(Screenshot)
myMailMessage.AlternateViews.Add(HTMLContent)
Dim smtpServer As New SmtpClient("mail.mymail.com")
smtpServer.Credentials = New System.Net.NetworkCredential("myemail@mymail.com", "password")
smtpServer.Send(myMailMessage)
MsgBox("An Unexpected Error Has Occurred. " & vbCrLf & "Being to sent to : Techno Logic Support. The program is Shutting Down. ", MsgBoxStyle.Critical, "Unexpected Error. Mailing it. ")
End
End Sub

Private Sub TakeScreenShot()
Dim Bounds As Rectangle = My.Computer.Screen.Bounds
Using b As New Bitmap(Bounds.Width, Bounds.Height)
Using g = Graphics.FromImage(b)
g.CopyFromScreen(Point.Empty, Point.Empty, Bounds.Size)
End Using
b.Save("error.jpg", Imaging.ImageFormat.Jpeg)
End Using

End Sub

Private Function CreateExceptionText(ByVal ex As Exception) As String
Dim BodyStr As Object
BodyStr = <p>
<pre>
-------------------------------------------------------------------
An Error has Occurred in <%= My.Application.Info.AssemblyName %>
-------------------------------------------------------------------
<%= FormatException(ex) %>
</pre>
<img src='cid:SCREENSHOT'/>
</p>

Return BodyStr.ToString

End Function

Private Function FormatException(ByVal ex As Exception) As String
Dim ExObj As Object

If ex Is Nothing Then
ExObj = ""
Else
ExObj = <pre><%= ex.ToString %>
---------------------------------------------------
<%= FormatException(ex.InnerException) %>
</pre>.Value
End If

Return ExObj.ToString
End Function

Me funciona a las mil maravillas en cualquier OS (WinXP, W7, Vista).

Espero ayude.


JOSE LUIS

adecuo el código para mi aplicación, al enviarlo con mi maquina virtual, llega sin problemas, pero al enviarlo desde windows 7, me dice "error al enviar el correo", sera configuración de mi windows 7?, voy a revisar, espero me des otra mano, saludos.

Bueno, el asunto es que era el Fucking antivirus, deben darle en las excepciones el nombre del ejecutable y pasa toitito jaja,

Gracias por la respuesta

Saludos.

Saludos:

Me alegra haber sido de ayuda.

La proxima vez, por favor procura guardar tu lenguaje. Este es un foro de profesionales y debemos estar a la altura. Mucha gente pasa por aca y debemos guardar el testimonio.

Gracias.


JOSE LUIS