Macro windows Live mail ahora me falla

Perdona que te moleste pero es que tengo un código que me pasaron para una macro de envío de mensajes mediante windows live mail de forma instantánea si el valor de una celda es "CADUCADA" El programa que empleo es EXCEL. La macro funcionaba solo que de la noche a la mañana algo pasó por que me sale un error y me remarca la palabra ".Send" que tiene esta macro. Te paso solo un trozo y me dices que puede pasar.
También me gustaría saber si es posible enviar mensajes con el contenido de una celda.
Puedo dar más datos si es necesario. Este es el código que me pasaron:
If Range("W2").Value = "CADUCADA" Then
    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
Set Flds = iConf.Fields
With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "2010Siemsa"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 45
            .Update
End With
'
'
With iMsg
    Set .Configuration = iConf
    .To = "[email protected]"
    .CC = ""
    .BCC = ""
    .From = "[email protected]"
    .Subject = "AVISO DE CADUCIDAD"
    .TextBody = "MENSAJE QUE ENVIO"
    .Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End If