Buenos días a todos, encontré un código por el cual puedo enviar mails teniendo el outlook instalado, pero utiliza la cuenta actual (configurada), lo que quería lograr era usar una cuenta hotmail pero no encuentro la manera de loguearla.
Option Explicit
Private Sub Form_Load()
sendOutlookEmail
End Sub
Sub sendOutlookEmail()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Body of the email"
oMail.Subject = "Subject"
oMail.To = "" 'A email
oMail.CC = "" 'Copia a emails
oMail.Attachments.Add "C:\archivo.txt"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing
End Sub
Alguno tiene idea de como podría ser?
Saludos.
¿No te sirve enviar el correo de esta forma?
SmtpServer.Host es el que provee hotmail
Imports System.Net.Mail
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New _
Net.NetworkCredential("direcciondeCorreoDesdeDondeEnvias","Clave")
SmtpServer.Port = 25
SmtpServer.Host = "smtp.live.com"
mail = New MailMessage()
mail.From = New MailAddress("direccionDeCorreoDesdeDondeEnvias")
mail.To.Add("Dirección de Destino")
mail.Subject = "Asunto"
mail.Body = "Cuerpo del Mensaje"
SmtpServer.EnableSsl = True
RichTextBox1.Text = "Intentando enviar mail"
SmtpServer.Send(mail)
RichTextBox1.Text = "Mail enviado"
Cita de: EstefaniaQQ en 8 Septiembre 2014, 02:50 AM
¿No te sirve enviar el correo de esta forma?
SmtpServer.Host es el que provee hotmail
Imports System.Net.Mail
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New _
Net.NetworkCredential("direcciondeCorreoDesdeDondeEnvias","Clave")
SmtpServer.Port = 25
SmtpServer.Host = "smtp.live.com"
mail = New MailMessage()
mail.From = New MailAddress("direccionDeCorreoDesdeDondeEnvias")
mail.To.Add("Dirección de Destino")
mail.Subject = "Asunto"
mail.Body = "Cuerpo del Mensaje"
SmtpServer.EnableSsl = True
RichTextBox1.Text = "Intentando enviar mail"
SmtpServer.Send(mail)
RichTextBox1.Text = "Mail enviado"
Esto es .NET, no sirve para Visual 6.
Podes fijarte en esta pagina, hay un ejemplo excelente usando una Dll, si algo no entendes te ayudamos:http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/21-dll-vb-send-mail-para-enviar-correo.htm
Sino queres usar Dll podes fijarte aca:http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/101-enviar-mail-mapi.htm
No recuerdo con claridad el SMTP de hotmail pero en la red deberias encontrar los datos.
Saludos.