Login en servidor SMTP con .NET

07/03/2007 - 13:07 por David C | Informe spam
Hola a todos,

Esta funcion nos permite enviar un correo electrónico, el problema es que no
me permite enviar del todo el email, porque tengo que hacer login al
servidor SMTP, porque el mesaje del sistema es que no se permite hacer
relay.

Alguien sabe utilitzar algo si como "Credentials".

Como puedo hacer el login al servidor con VS.NET 2005?

Salu2

PD: Adjunto esta el trozo de código

Private Sub BtnEnviar_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) _
Handles btnEnviar.Click

Dim mmMail As New System.Net.Mail.MailMessage
Dim adress As New System.Net.Mail.MailAddress("direccion correo")
Dim objSmtpServer As New System.Net.Mail.SmtpClient
mmMail.From = adress
mmMail.To.Add(adress)
mmMail.Subject = "Asunto"
mmMail.Body = "Cuerpo del Mensaje"
'Dim oAttachment As System.Net.Mail.MailMessage = New
System.Net.Mail.MailMessage("C:\prueba.txt")
''mmMail.Attachments.Add(oAttachment)
objSmtpServer.Host = "servidor"
Try
objSmtpServer.Send(mmMail)
Catch ex As Exception
MessageBox.Show("Error en envió:" & vbCrLf & ex.Message)
End Try

End Sub

Preguntas similare

Leer las respuestas

#1 Angel. E. Ruiz. P
07/03/2007 - 15:53 | Informe spam
Espero que te ayude amigoDim correo As New
System.Net.Mail.MailMessagecorreo.From = New
System.Net.Mail.MailAddress(txtDe.Text)
correo.To.Add(txtPara.Text)
correo.Subject = txtAsunto.Text
correo.Body = txtTexto.Text
correo.IsBodyHtml = true
correo.Priority = System.Net.Mail.MailPriority.NormalDim smtp As New
System.Net.Mail.SmtpClient
smtp.Host = "tu servidor de correo"smtp.Credentials = New
System.Net.NetworkCredential("user", "password")Try
smtp.Send(correo)
LabelError.Text = "El Mensaje fue enviado satisfactoriamente"
Catch ex As Exception
LabelError.Text = "ERROR: " & ex.Message
End TrySaludos cordiales,Ángel RuizMCTS .NET Framework 2.0 Windows
ApplicationsCaracas - Venezuela"El conocimiento es un bien, que crece a
medida que se comparte""David C" escribió en el mensaje
news:%
Hola a todos,

Esta funcion nos permite enviar un correo electrónico, el problema es que
no me permite enviar del todo el email, porque tengo que hacer login al
servidor SMTP, porque el mesaje del sistema es que no se permite hacer
relay.

Alguien sabe utilitzar algo si como "Credentials".

Como puedo hacer el login al servidor con VS.NET 2005?

Salu2

PD: Adjunto esta el trozo de código

Private Sub BtnEnviar_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) _
Handles btnEnviar.Click

Dim mmMail As New System.Net.Mail.MailMessage
Dim adress As New System.Net.Mail.MailAddress("direccion correo")
Dim objSmtpServer As New System.Net.Mail.SmtpClient
mmMail.From = adress
mmMail.To.Add(adress)
mmMail.Subject = "Asunto"
mmMail.Body = "Cuerpo del Mensaje"
'Dim oAttachment As System.Net.Mail.MailMessage = New
System.Net.Mail.MailMessage("C:\prueba.txt")
''mmMail.Attachments.Add(oAttachment)
objSmtpServer.Host = "servidor"
Try
objSmtpServer.Send(mmMail)
Catch ex As Exception
MessageBox.Show("Error en envió:" & vbCrLf & ex.Message)
End Try

End Sub



Respuesta Responder a este mensaje
#2 David C
07/03/2007 - 16:39 | Informe spam
Gracias "company",

David desde Vilafranca cerca de Barcelona.

"Angel. E. Ruiz. P" escribió en el mensaje
news:
Espero que te ayude amigoDim correo As New
System.Net.Mail.MailMessagecorreo.From = New
System.Net.Mail.MailAddress(txtDe.Text)
correo.To.Add(txtPara.Text)
correo.Subject = txtAsunto.Text
correo.Body = txtTexto.Text
correo.IsBodyHtml = true
correo.Priority = System.Net.Mail.MailPriority.NormalDim smtp As New
System.Net.Mail.SmtpClient
smtp.Host = "tu servidor de correo"smtp.Credentials = New
System.Net.NetworkCredential("user", "password")Try
smtp.Send(correo)
LabelError.Text = "El Mensaje fue enviado satisfactoriamente"
Catch ex As Exception
LabelError.Text = "ERROR: " & ex.Message
End TrySaludos cordiales,Ángel RuizMCTS .NET Framework 2.0 Windows
ApplicationsCaracas - Venezuela"El conocimiento es un bien, que crece a
medida que se comparte""David C" escribió en el mensaje
news:%
Hola a todos,

Esta funcion nos permite enviar un correo electrónico, el problema es que
no me permite enviar del todo el email, porque tengo que hacer login al
servidor SMTP, porque el mesaje del sistema es que no se permite hacer
relay.

Alguien sabe utilitzar algo si como "Credentials".

Como puedo hacer el login al servidor con VS.NET 2005?

Salu2

PD: Adjunto esta el trozo de código

Private Sub BtnEnviar_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) _
Handles btnEnviar.Click

Dim mmMail As New System.Net.Mail.MailMessage
Dim adress As New System.Net.Mail.MailAddress("direccion correo")
Dim objSmtpServer As New System.Net.Mail.SmtpClient
mmMail.From = adress
mmMail.To.Add(adress)
mmMail.Subject = "Asunto"
mmMail.Body = "Cuerpo del Mensaje"
'Dim oAttachment As System.Net.Mail.MailMessage = New
System.Net.Mail.MailMessage("C:\prueba.txt")
''mmMail.Attachments.Add(oAttachment)
objSmtpServer.Host = "servidor"
Try
objSmtpServer.Send(mmMail)
Catch ex As Exception
MessageBox.Show("Error en envió:" & vbCrLf & ex.Message)
End Try

End Sub







Respuesta Responder a este mensaje
#3 Angel. E. Ruiz. P
07/03/2007 - 18:53 | Informe spam
Siempre a la orden amigo


Saludos cordiales,
Ángel Ruiz
MCTS .NET Framework 2.0 Windows Applications
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"

"David C" escribió en el mensaje
news:
Gracias "company",

David desde Vilafranca cerca de Barcelona.

"Angel. E. Ruiz. P" escribió en el mensaje
news:
Espero que te ayude amigoDim correo As New
System.Net.Mail.MailMessagecorreo.From = New
System.Net.Mail.MailAddress(txtDe.Text)
correo.To.Add(txtPara.Text)
correo.Subject = txtAsunto.Text
correo.Body = txtTexto.Text
correo.IsBodyHtml = true
correo.Priority = System.Net.Mail.MailPriority.NormalDim smtp As New
System.Net.Mail.SmtpClient
smtp.Host = "tu servidor de correo"smtp.Credentials = New
System.Net.NetworkCredential("user", "password")Try
smtp.Send(correo)
LabelError.Text = "El Mensaje fue enviado satisfactoriamente"
Catch ex As Exception
LabelError.Text = "ERROR: " & ex.Message
End TrySaludos cordiales,Ángel RuizMCTS .NET Framework 2.0 Windows
ApplicationsCaracas - Venezuela"El conocimiento es un bien, que crece a
medida que se comparte""David C" escribió en el
mensaje news:%
Hola a todos,

Esta funcion nos permite enviar un correo electrónico, el problema es
que no me permite enviar del todo el email, porque tengo que hacer login
al servidor SMTP, porque el mesaje del sistema es que no se permite
hacer relay.

Alguien sabe utilitzar algo si como "Credentials".

Como puedo hacer el login al servidor con VS.NET 2005?

Salu2

PD: Adjunto esta el trozo de código

Private Sub BtnEnviar_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) _
Handles btnEnviar.Click

Dim mmMail As New System.Net.Mail.MailMessage
Dim adress As New System.Net.Mail.MailAddress("direccion correo")
Dim objSmtpServer As New System.Net.Mail.SmtpClient
mmMail.From = adress
mmMail.To.Add(adress)
mmMail.Subject = "Asunto"
mmMail.Body = "Cuerpo del Mensaje"
'Dim oAttachment As System.Net.Mail.MailMessage = New
System.Net.Mail.MailMessage("C:\prueba.txt")
''mmMail.Attachments.Add(oAttachment)
objSmtpServer.Host = "servidor"
Try
objSmtpServer.Send(mmMail)
Catch ex As Exception
MessageBox.Show("Error en envió:" & vbCrLf & ex.Message)
End Try

End Sub











Respuesta Responder a este mensaje
#4 Saito_kyu
15/03/2007 - 12:16 | Informe spam
Hola a todos!!!

David C podrías explicarme cómo hiciste para enviar adjuntos por smtp o
enviarme un link donde pueda encontrar información al respecto.

Te agradecería mucho la ayuda ya que es urgente.

Cordial Saludo,
Saito_kyu.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida