Agregar direcciones
Publicado por buhyr (1 intervención) el 19/09/2012 17:53:47
Hola a todos soy nuevo en esto de visual basic, el caso es que he creado un programa para mandar mails pero no se como hacer para que en la pestaña de añadir mail salgan por defecto mis contactos de hotmail, he creado una base de datos con acces importando los contactos de hotmail, pero yua no se seguir este es el codigo.,gracias
Imports System.Net
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Quieres enviar el mail??")
Try
Dim usuario As String = TextBox1.Text
Dim contraseña As String = TextBox2.Text
Dim server As String = TextBox3.Text
Dim puerto As Integer = Integer.Parse(TextBox4.Text)
Dim para As String = TextBox5.Text
Dim asunto As String = TextBox6.Text
Dim contenido As String = TextBox7.Text
Dim correo As New MailMessage
With correo
.From = New MailAddress(usuario)
.Subject = asunto
.To.Add(para)
.Body = contenido
End With
Dim servidor As New SmtpClient
With servidor
.Host = server
.Port = puerto
.EnableSsl = True
.Credentials = New NetworkCredential("direccion "contraseña")
.Send(correo)
End With
MessageBox.Show("correo enviado exitosamente gracias a Ivan")
Catch ex As Exception
MessageBox.Show(ex.Message, "error")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("seguro que quieres salir??")
Me.Close()
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MessageBox.Show("Hola bienvenido")
End Sub
End Class
Imports System.Net
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Quieres enviar el mail??")
Try
Dim usuario As String = TextBox1.Text
Dim contraseña As String = TextBox2.Text
Dim server As String = TextBox3.Text
Dim puerto As Integer = Integer.Parse(TextBox4.Text)
Dim para As String = TextBox5.Text
Dim asunto As String = TextBox6.Text
Dim contenido As String = TextBox7.Text
Dim correo As New MailMessage
With correo
.From = New MailAddress(usuario)
.Subject = asunto
.To.Add(para)
.Body = contenido
End With
Dim servidor As New SmtpClient
With servidor
.Host = server
.Port = puerto
.EnableSsl = True
.Credentials = New NetworkCredential("direccion "contraseña")
.Send(correo)
End With
MessageBox.Show("correo enviado exitosamente gracias a Ivan")
Catch ex As Exception
MessageBox.Show(ex.Message, "error")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("seguro que quieres salir??")
Me.Close()
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MessageBox.Show("Hola bienvenido")
End Sub
End Class
Valora esta pregunta
0