Imprimir Página - [AYUDA] Log-In OutLook SendMail

Título: [AYUDA] Log-In OutLook SendMail
Publicado por: Miseryk en 28 Julio 2014, 17:04 pm

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.

Código

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.

Título: Re: [AYUDA] Log-In OutLook SendMail
Publicado por: EstefaniaQQ en 8 Septiembre 2014, 02:50 am

¿No te sirve enviar el correo de esta forma?
SmtpServer.Host es el que provee hotmail

Código:

  
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"

Título: Re: [AYUDA] Log-In OutLook SendMail
Publicado por: XresH en 8 Septiembre 2014, 03:00 am

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

Código:

  
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:

Código:

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:

Código:

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.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Miseryk en 28 Julio 2014, 17:04 pm