Ayuda con macro envio windows live mail

Este código te puede servir, solo tienes que cambiar un par de cosas
1. Busca la linea donde esta password y pon el pass de tu cuenta hotmail.
2.En la linea To. Pon el destinatario
3.En la linea from puedes poner cualquier dirección
3. En .textbody pon la celda donde esta ubicado el dato que quieres enviar.
Sub Email()
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Dim dato1 As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
     'Sender's Mail ID
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
            'Sender's Password
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password"
            'Name/IP of SMTP Server
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
            'Server Port
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            'Send Using: (1) Local SMTP Pickup Service (2) Use SMTP Over Network
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            'Authentication Used: (1) None (2) Basic (3) NTLM
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            'SMTP Server Requires SSL/STARTTLS: Boolean
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            'Maximum Time in Seconds CDO will try to Establish Connection
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 45
            'Update Configuration Entries
            .Update
End With
With iMsg
    Set .Configuration = iConf
    .To = "[email protected]"
    .CC = ""
    .BCC = ""
    .From = "[email protected]"
    .Subject = ""
    .TextBody = "hola mundo!!!!!!!!!"
    .Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub

Muchísimas gracias, va genial. Solo una cosilla más, ¿si quiero mandar el email a varios destinatarios solo tengo que implementar en .to la cantidad de correos? Te pongo un ejemplo así rápido. Dime si seria así o como seria y muchas gracias.
With iMsg
    Set .Configuration = iConf
    .To = "[email protected];[email protected]"
    .CC = ""
    .BCC = ""
    .From = "[email protected]"
    .Subject = ""
    .TextBody = "hola mundo!!!!!!!!!"
    .Send
End With