CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Envio De Email Vb2003 Al Vb2005

(1/3) > >>

Cajami:
Hola amigos bueno esta vez mi interrogante es la sgten, revisando algunas paginas de www.vb-mundo.com encontré como se podía mandar e-mail desde vb me imagino que será del 2003 este codigo ya que en el 2005 ps no funciona:

Dim mmMail As New System.Web.Mail.MailMessage()
Dim objSmtpServer As System.Web.Mail.SmtpMail
mmMail.From = `me@me.com`
mmMail.To = `you@you.com`
mmMail.Subject = `My subject`
mmMail.Body = `My body`
objSmtpServer.SmtpServer = `my smtp server`
objSmtpServer.Send(mmMail)

No se si funciona o tal vez he puesto mal pero no me sale, alguno de ustedes me puede ayudar para que salga en el 2005, muchas gracias de antemano.  :hola:


Tumbes - Perú

RiLaRos:
Hola!!!  :hola:

Este es el codigo para enviar mails desde VB .NET 2005


--- Código: Text ---Public Sub sendMail()        Dim msg As New MailMessage()         msg.From = New MailAddress("remitente@dominio.com")        msg.To.Add("otroemail@dominio.com")        msg.Subject = txtsubject.Text        msg.Body = txtbody.Text        msg.IsBodyHtml = False         Dim smtpServer As New SmtpClient("tu servidor smtp")         Try            smtpServer.Send(msg)            Response.Write("Mensaje enviado Satisfactoriamente!!")        Catch ex As Exception            Response.Write("ERROR: " & ex.Message)        End Try     End Sub 
Espero te sirva.

Salu2...  :kicking:

Cajami:
Hola que tal RiLaRos bueno hice lo que me dijiste mira y asi puse el codigo:

Imports System.Net.Mail


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim msg As New MailMessage()

        msg.From = New MailAddress(Me.TxtDe.Text)
        msg.To.Add(Me.TxtPara.Text)
        msg.Subject = Me.TxtAsunto.Text
        msg.Body = Me.TxtCuerpo.Text
        msg.IsBodyHtml = False

        Dim smtpServer As New SmtpClient("_____")

        Try
            smtpServer.Send(msg)
            MessageBox.Show("Mensaje enviado Satisfactoriamente!!")
        Catch ex As Exception
            MessageBox.Show("ERROR: " & ex.Message)
        End Try
    End Sub
End Class

Ahora mira donde esta la linea ps pongo el nombre de mi PC, asi entre comillas "NombredePc", por que no se que será tu servidor smtp, bueno cuando entra en Try alli donde dice: smtpServer.Send(msg), pues se salta al Catch, que me falto por favor, para poder mandar e-mail, muchas gracias.  :hola:

Tumbes - Perú

Soultaker:
Aca hay un tema sobre eso

http://foros.solocodigo.com/index.php?show...c=10634&hl=mail

 :comp:

Cajami:
Ok muchas gracias pero ya en el vb2005 no esta el NameSpace Imports System.Web.Mail, lo unico que hay es el Imports System.Net.Mail, y ps este codigo me sale error:

CODE  
Dim miCorreo as New MailMessage()


3. Le das las caracteristicas al mail
CODE  
miCorreo.From = "yo@hotmail.com"
miCorreo.To = "Parati@hotmail.com"
miCorreo.Subject = "elAsunto"
miCorreo.Body = "miMensjae"


4.y ahora lo envias:
CODE  
SmtpMail.Send(miCorreo)

La verdad quisiera poder enviar E-mail por vb2005 pero expliquemente que tendria que poner en smtpServer.Send(msg) que mas arriba puse y pregunté que podia poner alli, bueno esperaré su prengunta.  :hola:

_________________________________________________________
El Estudio y el Amor no se junta, pero hacen al ser humano completo

Navegación

[0] Índice de Mensajes

[#] Página Siguiente