Foro Excel

Hola, alguien sabra cual es el "objeto" a crear para enviar correo por windows live mail?

Ejemplo:
Set OutApp = CreateObject("Outlook.Application") .... este crea el objeto OUTLOOK
pero yo necesito llamar a "Windows Live Mail" Alguien sabe como lo logro?

Saludos Jada

Comienza por mirar el siguiente ejemplo:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm

Saludos, Cacho R.

Hello Cacho R, gracias por tu interes, pero en tus vinculos no esta lo que busco, la pagina de Ron Debruin es excelente ya la conocia y precisamente de ahi me surgio mi necesidad, pues en sus codigos hace llamado a Outlook mas no a WLM que es lo que busco.

A tu juicio <<simplemente no existe>>/ ? lo dudo mucho.

jada.

Sub hotmail()
'On Error Resume Next
'Creamos el Message y Configuration, para
'enviar emails a través del objeto CDO de Windows
Set oMsg = CreateObject("CDO.Message")
Set oConf = CreateObject("CDO.Configuration")
'Cargamos los valores por defecto
oConf.Load -1
'Configuramos el objeto CDO, con los datos
'de nuestra cuenta de correo
Set Flds = oConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'ponemos nuestra cuenta de correo
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "correo@hotmail.com"
'ponemos nuestro password
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
'este es el smtp de correo. Si usamos Hotmail, yahoo, o cualquier otro
'servicio de correo, deberemos configurar el smtp, y evidentemente
'también el nombre de usuario y el password para esa cuenta
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
'recogemos el mensaje del TextBox3 del Userform
mensaje = "ok"
With oMsg
Set .Configuration = oConf
'ponemos el nombre y correo para el reply
desde = Cells(1, 2)
.from = """Marco"" <correo@hotmail.com>"
'recogemos el resto de datos del Userform,
'es decir, el destinatario y el asunto del mensaje
mail = "correo@hotmail.com"
.To = mail
.Subject = "envio"
.TextBody = ""
.Send
End With
'Mostramos un mensaje, tanto si hay
'errores como si no los hay
If Err <> 0 Then
'MsgBox ("Se ha producido un error, y no se ha podido enviar el email.")
Else
MsgBox ("El email se ha enviado correctamente a " & Cells(1, 1))
End If
End Sub