Test Foro de elhacker.net SMF 2.1

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

Código [Seleccionar] Expandir

 
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.