Problema con macro para envío automático de correos outlook 2013

Tengo un problema con una rutina en la que un experto me ha ayudado mucho pero lamentablemente el trabaja con Excel 2007, y el error creemos esta en el cambio de arquitectura a Excel 2013.

En ThisWorkbook:

Private Sub Workbook_Open()
'Por.Dante Amor
    Dim f As Date
    Set h1 = Sheets("Resumen")
    For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
        If IsDate(h1.Cells(i, "B")) Then
            f = h1.Cells(i, "B")
            h1.Cells(i, "E") = DateSerial(Year(f), Month(f) + 2, Day(f))
            h1.Cells(i, "F") = h1.Cells(i, "E") - Date
            If h1.Cells(i, "F") < 11 Then
                CorreoDam i
            End If
        End If
    Next
End Sub

Funciona sin problemas, al arranque revisa la hoja y ejecuta la macro de correo:

En el modulo:

Sub CorreoDam(i)
'Por.Dante Amor
    Set dam = CreateObject("outlook.application").createitem(0)
        dam.To = Sheets("Resumen").Range("H" & i)
        dam.Cc = Sheets("Resumen").Range("I" & i)
        dam.Subject = "Alerta de vencimiento de revisión preventiva " & Range("A" & i)
        'dam.display
        dam.send
    Set dam = Nothing
End Sub

Esta se detiene por las instrucciones .To y .CC, las he quitado y funciona sin problema, ejecuta un mensaje nuevo de Outlook y lo deja listo con el asunto, pero necesito que sea manual... Espero me puedan ayudar.