Autor Tema: Como Enviar Correo Por Smtp (Leído 1653 veces)

Sagma · « **en:** Jueves 16 de Marzo de 2006, 18:20 »

hola a todos,

he usado el siguiente codigo para enviar mensajes desde mi app web asp.net

Código: Text

 
Option Explicit On 
Module Module1 
  Sub Main()
    Const ConfigNamespace As String = _
    &#34;http://schemas.microsoft.com/cdo/configuration/&#34; 
    Dim oMsg As New System.Web.Mail.MailMessage 
    Dim Flds As System.Collections.IDictionary 
    Flds = oMsg.Fields 
    With Flds 
      .Add(ConfigNamespace & &#34;smtpserver&#34;, &#34;smtp.mail.dominio&#34;) 
      .Add(ConfigNamespace & &#34;smtpserverport&#34;, 25) 
      Add(ConfigNamespace & &#34;sendusing&#34;, 2) 
      .Add(ConfigNamespace & &#34;sendusername&#34;, &#34;usuario&#34;) 
      .Add(ConfigNamespace & &#34;sendpassword&#34;, &#34;contraseña&#34;) 
      .Add(ConfigNamespace & &#34;smtpauthenticate&#34;, 1) 
    End With 
    With oMsg 
      .From = &#34;usuario@dominio&#34; 
      .To = &#34;alguien@dominio&#34; 
      Subject = &#34;Test con MailMessage.Fields&#34; 
      .Body = &#34;Hola Mundo&#34; 
    End With 
    System.Web.Mail.SmtpMail.Send(oMsg) 
  End Sub 
End Module
 
 

Pero tengo problemas para enviar mensajes a cuentas de hotmail.com, actualmente envia a otros dominios (gmail, otros) sin problemas.

si alguien puede ayudarme ?

gracias

mustang

Hola, te pongo un ejemplo que yo uso para envío de correos SMTP y no tengo problemas a ninguna cuenta, te aclaro que yo en el valor de smtpserver en lugar de dejar "smtp.mail.midominio" lo cambié a "localhost" porque no enviaba nada y me trabajó bién:
No olvides el Imports System.Web.Mail.SmtpMail

Citar

Dim Mensaje As New System.Web.Mail.MailMessage
Mensaje.To = "alguien@hotmail.com"
Mensaje.From = "yo@midominio.com"
Mensaje.Subject = "Mensaje de prueba con SMTP"
Mensaje.BodyFormat = Mail.MailFormat.Html
Mensaje.Body = "<html><body>Este mensaje es para avisar de las pruebas de correo con <b>SMTP</b></body></html>"
Mail.SmtpMail.SmtpServer = "localhost"
Mail.SmtpMail.Send(Mensaje)
Mensaje = Nothing

y ni un solo problema!! espero te ayude

Sagma

gracias por responder mustang.
Ha probarlo

SoloCodigo

Autor Tema: Como Enviar Correo Por Smtp (Leído 1653 veces)

Sagma

Como Enviar Correo Por Smtp

mustang

Re: Como Enviar Correo Por Smtp

Sagma

Re: Como Enviar Correo Por Smtp