Visual Basic.NET - envio de correos desde VB .net

 
Vista:

envio de correos desde VB .net

Publicado por Fany (25 intervenciones) el 08/10/2008 17:39:52
Hola a todos, necesitaría vuestra ayuda. Quiero programar el envio de un correo con cierta información desde código en visual studio 2008. Sería interesante no usar ninguna cuenta (@gmail, @ yahoo, ...), me gustaría hacerlo con algún paquete que tenga el visual (desde access lo hacia, con visual for aplications)
Si esto no es posible, pues me gustaría que me explicarais como debo configurar el GMAIL para que permita salir correos (ya tengo activa la opcion de correos pop). Pues me bajé algunas aplicaciones de envio de mensajes desde una cuenta de gmail, pero no me funciona ninguna,
Muchas gracias. Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:envio de correos desde VB .net

Publicado por Huguin (83 intervenciones) el 09/10/2008 20:33:09
Hola, tambien ando buscando la forma de enviar mail desde cualquier cuenta, a diferencia de vos yo si puedo enviar desde cuentas de correo gmail. Pues si te interesa alli te pongo el codigo.

Imports System.Net.Mail

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Dim strPara(2) As String
Dim ArchivoAdjunto(2) As String
strPara(0) = "[email protected]"
ArchivoAdjunto(0) = "D:Desarrollo RCS ede hoySistema TedefStores.txt"
'FileAttach(0) = "c:archivo1.txt"
'FileAttach(1) = "c:archivo2.txt"
EnviarMail("[email protected]", strPara, "Error de Facturacion", _
"Prueba de Envio Maisvo de Correos", ArchivoAdjunto)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Public Function EnviarMail(ByVal StrDesde As String, ByVal StrPara() As String, ByVal StrAsunto As String, ByVal StrMensaje As String, ByVal StrFiles() As String)
Try
For Each item As String In StrPara
If Not item = "" Then
Dim MailMsg As New MailMessage(New MailAddress(StrDesde.Trim()), New MailAddress(item))
MailMsg.Subject = StrAsunto.Trim()
MailMsg.Body = StrMensaje.Trim() & vbCrLf
MailMsg.Priority = MailPriority.High
' MailMsg.IsBodyHtml = True
' ciclo por si vienen archivos adjuntos
For Each strfile As String In StrFiles
If Not strfile = "" Then
Dim MsgAttach As New Attachment(strfile)
MailMsg.Attachments.Add(MsgAttach)
End If
Next
Dim _SMTP As New SmtpClient
_SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "tu password gmail")
_SMTP.Host = "smtp.gmail.com"
_SMTP.Port = 587
_SMTP.EnableSsl = True
_SMTP.Send(MailMsg)
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:envio de correos desde VB .net

Publicado por fany (25 intervenciones) el 10/10/2008 14:38:24
Muchas gracias, pero es que me da "ERROR AL ENVIAR CORREO". ¿Tengo que hacer algo en la cuanta de Gmail verdad? Te cuento lo que hice a ver si me puedes ayudar:
Configuración - Reenvio y correo POP/IMAP :
-Habilitar POP para todos los mensajes (incluso si ya se han descargado)
-Habilitar IMAP
y guardamos los cambios.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:envio de correos desde VB .net

Publicado por Pedro Dorian (1 intervención) el 01/11/2008 04:03:04
SOS UN CAPO ERA JUSTO LO QUE NECESITABA
ANDA PERFECTO!!!!!!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar