Mail

O tambien puedes utilizar el componente ASPMail, es gratuito y luego lo
añades, Project/Add References/Com

Dim mail As New ASPEMAILLib.MailSender

mail.Host = "adslmail.entelnet.bo" 'Servidor de correo
mail.From = from.Text 'Desde quien
mail.AddAddress(A.Text) 'A quien
mail.Subject = titulo.Text 'Subject
mail.Body = msge.Text 'Mensaje

If mail.Send() Then
MsgBox("Mail enviado")
Else
MsgBox("Mail no enviado")
End If

Bernardo
Santa Cruz-Bolivia

"RSanchez" wrote in message
news:13c301c512bf$8e5c14e0$
Señores, quisiera pedirles ayuda con el siguiente problema.

Necesito generar un correo desde mi equipo y enviarlo a un
destinatario. Para ello estoy usando las librerias de
Imports System.Web.Mail, el problema es que genero todo el
codigo y no logro hacer que esto funcione. el codigo no me
arroga ningun problema solo no me llega nunca el correo.
Hay alguien que me pueda dar una manito en esto por favor.
tengo el problema desde hace unos dias y no he encontrado
como resolverlo.


de antemano muchas gracias
Rsc

FLaco pon el codigo a ver si no tienes nada malo.

Miao...
Comprate un libro

Señores, quisiera pedirles ayuda con el siguiente

problema.

Necesito generar un correo desde mi equipo y enviarlo a

un

destinatario. Para ello estoy usando las librerias de
Imports System.Web.Mail, el problema es que genero todo

el

codigo y no logro hacer que esto funcione. el codigo no

me

arroga ningun problema solo no me llega nunca el correo.
Hay alguien que me pueda dar una manito en esto por

favor.

tengo el problema desde hace unos dias y no he

encontrado

como resolverlo.


de antemano muchas gracias
Rsc
.

Este es elcodigo.

Dim email As New MailMessage
email.From = ""
email.To = ""
email.Subject = "Prueba - Productos que no han sido
Clasificados"
email.Body = "Hola... Prueba Envio "
SmtpMail.SmtpServer = "MiServidor"
SmtpMail.Send(email)

Señores, quisiera pedirles ayuda con el siguiente

problema.

Necesito generar un correo desde mi equipo y enviarlo a

un

destinatario. Para ello estoy usando las librerias de
Imports System.Web.Mail, el problema es que genero todo

el

codigo y no logro hacer que esto funcione. el codigo no

me

arroga ningun problema solo no me llega nunca el correo.
Hay alguien que me pueda dar una manito en esto por favor.
tengo el problema desde hace unos dias y no he

encontrado

como resolverlo.


de antemano muchas gracias
Rsc
.

Hola,

aunque te han puesto por aquí rutinas de envío de correo... (no está mal),
tengo una duda y por eso te hago una pregunta... ¿estás ejecutando tu
aplicación sobre Windows XP Profesional?.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"RSanchez" wrote:

Señores, quisiera pedirles ayuda con el siguiente problema.

Necesito generar un correo desde mi equipo y enviarlo a un
destinatario. Para ello estoy usando las librerias de
Imports System.Web.Mail, el problema es que genero todo el
codigo y no logro hacer que esto funcione. el codigo no me
arroga ningun problema solo no me llega nunca el correo.
Hay alguien que me pueda dar una manito en esto por favor.
tengo el problema desde hace unos dias y no he encontrado
como resolverlo.


de antemano muchas gracias
Rsc

Amigo prueba con este codigo que viene en

los 101 ejemplos de .NeT

' Se aegura que el servivio SMTP esté instalado.
Dim services() As ServiceController = ServiceController.GetServices
Dim service As ServiceController
Dim blnHasSmtpService As Boolean = False
Dim strSQL As String
Dim dbCommand As SqlClient.SqlCommand
Dim drSQL As SqlClient.SqlDataReader

' Loop atrevés de todos los serviviosen la maquina y encuentra el
servicio SMTP .
For Each service In services
If service.ServiceName.ToLower = "smtpsvc" Then
blnHasSmtpService = True
Exit For
End If
Next

If Not blnHasSmtpService Then
MessageBox.Show("You do not have SMTP Service installed on this
" & _
"machine. Please check the Readme file for information on
how " & _
"to install SMTP Service.", Me.Text, _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

' Se asegura que el servico SMTP esté corriendo. si no , lo inicia.
If Not service.Status = ServiceControllerStatus.Running Then
Dim frmStatusMessage As New frmStatus
frmStatusMessage.Show("SMTP Service not currently running. " & _
"Starting service...")
Try
service.Start()
frmStatusMessage.Close()
Catch
MessageBox.Show("There was an error when attempting " & _
"to start SMTP Service. Please consult the Readme " & _
"file for more information.", Me.Text, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If

' Llena el Combo Priority con los valores MailPriority
With cboPriority
.Items.AddRange(New String() {"Normal", "Low", "High"})
.SelectedIndex = 0
End With

'Obteniendo la dirección electrónica destino
txtTo.Text = strEmail

'Obteniendo la dirección electrónica origen
ArchivoDatos = "TesaApps"
Try
conectar(strServidor, ArchivoDatos, strUserID, strPassword)


' Construye el Select para la tabla
strSQL = "SELECT * FROM usuario_notificacion"

dbCommand = New SqlCommand(strSQL, cxn)
drSQL = dbCommand.ExecuteReader()
''Poniendo la bandera en true para cerrar drSQL en la funcion
desconectar
If drSQL.Read Then
txtFrom.Text = Trim(drSQL.Item("email").ToString())
txtCC.Text = drSQL.Item("email").ToString()
strIP = Trim(drSQL.Item("ip").ToString())
End If


'If drSQL.Read() Then
' txtFrom.Text = drSQL.Item("ID_Usuario").ToString()
'End If
'**********************************
'cargando el archivo adjunto
Dim strFile As String
strFile = "C:\Notificar\Notificacion.pdf"

lstAttachments.Items.Add(GetFileName(strFile))

'**********************************
dbCommand.Dispose()
desconectar()
Catch Exp As SqlException
MsgBox(Exp.Message, MsgBoxStyle.Critical, "SQL Error")

Catch Exp As Exception
MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error")
End Try

el siguiente codigo esta en el boton enviar:
'******************************
'cargando el archivo adjunto
Dim strFile As String
strFile = "C:\Notificar\Notificacion.pdf"
' GetFileName(strFile)
If IsNothing(arlAttachments) Then
arlAttachments = New ArrayList

' Clear the "(No Attachments)" default text in the ListView
lstAttachments.Items.Clear()
End If
arlAttachments.Add(New MailAttachment(strFile))
lstAttachments.Items.Add(GetFileName(strFile))
' Perform validation on the To and From email address fields, which
are
' both required for sending an email.
If lstAttachments.Items.Count = 0 Then
MsgBox("Falta adjuntar el archivo.")
Exit Sub
End If
Try
ValidateEmailAddress(txtFrom)
Catch ex As Exception
txtFrom.Select(0, txtFrom.Text.Length)

' Set the ErrorProvider error with the text to display.
erpEmailAddresses.SetError(txtFrom, ex.Message)
Exit Sub
End Try

Try
ValidateEmailAddress(txtTo)
Catch exp As Exception
txtTo.Select(0, txtTo.Text.Length)

' Set the ErrorProvider error with the text to display.
erpEmailAddresses.SetError(txtTo, exp.Message)
Exit Sub
End Try

' Use the StringBuilder class instead of traditional string
concatenation.
' It is optimized for building strings because it is capable of
modifying
' the underlying buffer instead of having to make a copy of the
string for
' each concatenation. Consult the SDK documentation for more
information on
' this new class.
Dim sb As New StringBuilder

' Build the email message body.
sb.Append("Este E-Mail fue enviado por un sistema automatizado,
cualquier aclaración favor de comunicarse al teléfono: (01 33) 3540-5400,
ext. 1112. ")
sb.Append(vbCrLf)
sb.Append(vbCrLf)
' sb.Append("SUBJECT: ")
sb.Append(Trim(txtSubject.Text))
sb.Append(vbCrLf)
sb.Append(vbCrLf)
' sb.Append("MESSAGE: ")
sb.Append(Trim(txtBody.Text))
sb.Append(vbCrLf)

' Creating a mail message is as simple as instantiating a class and
' setting a few properties.
Dim mailMsg As New MailMessage
With mailMsg
.From = txtFrom.Text.Trim
.To = txtTo.Text.Trim
.Cc = txtCC.Text.Trim
' .Bcc = txtBCC.Text.Trim
.Subject = txtSubject.Text.Trim
.Body = sb.ToString
.Priority = CType(cboPriority.SelectedIndex, MailPriority)

If Not IsNothing(arlAttachments) Then
Dim mailAttachment As Object
For Each mailAttachment In arlAttachments
.Attachments.Add(mailAttachment)
Next
End If
End With

' Set the SmtpServer name. This can be any of the following
depending on
' your local security settings:

' a) Local IP Address (assuming your local machine's SMTP server has
the
' right to send messages through a local firewall (if present).

' b) 127.0.0.1 the loopback of the local machine.

' c) "smarthost" or the name or the IP address of the exchange
server you
' utilize for messaging. This is usually what is needed if you are
behind
' a corporate firewall.

' See the Readme file for more information.
' SmtpMail.SmtpServer = "smarthost" strIP
' SmtpMail.SmtpServer = "192.168.1.3"
SmtpMail.SmtpServer = strIP
' Use structured error handling to attempt to send the email message
and
' provide feedback to the user about the success or failure of their
' attempt. lstAttachments
Try
SmtpMail.Send(mailMsg)
lstAttachments.Items.Clear()
' lstAttachments.Items.Add("(No Attachments)")

MessageBox.Show("Tu correo ha sido enviado exitosamente!", _
"Estatus de envio", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch exp As Exception
MessageBox.Show("El siguiente problema ocurrió cuando intentaba
" & _
"enviar tu E-Mail: " & exp.Message, _
Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try



Saludos cordiales,
Ángel Ruiz
MCP C#
MVP de Visual Basic desde el 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"
"RSanchez" wrote in message
news:13c301c512bf$8e5c14e0$
Señores, quisiera pedirles ayuda con el siguiente problema.

Necesito generar un correo desde mi equipo y enviarlo a un
destinatario. Para ello estoy usando las librerias de
Imports System.Web.Mail, el problema es que genero todo el
codigo y no logro hacer que esto funcione. el codigo no me
arroga ningun problema solo no me llega nunca el correo.
Hay alguien que me pueda dar una manito en esto por favor.
tengo el problema desde hace unos dias y no he encontrado
como resolverlo.


de antemano muchas gracias
Rsc