Uso de Outlook

[carlosdanielmou]

Espero que te sirva yo lo utilice sin problemas.

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnviar.Click
Dim hilo As New Threading.Thread(AddressOf envio)
hilo.Start()
End Sub
Private Sub envio()
Dim i As Integer
For i = 0 To 1000
Dim correo As New System.Net.Mail.MailMessage
Dim a As New System.Net.Mail.MailAddress("caca.pepe.popo@gmail. com")
correo.From = a
correo.To.Add(Txtpara.Text)
correo.Subject = TxtAsunto.Text
correo.Body = TxtCuerpo.Text
correo.IsBodyHtml = False
correo.Priority = System.Net.Mail.MailPriority.Normal

Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "smtp.gmail.com"
smtp.Credentials = New System.Net.NetworkCredential("caca.pepe.popo@gmail .com", TxtPas.Text)
smtp.EnableSsl = True
Try
smtp.Send(correo)
'LabelError.Text = "Mensaje enviado satisfactoriamente"
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Next
End Sub
End Class