Envío outlook automático macro excel- error

Hola,

Tengo la siguiente Macro:

Sub enviar()

Sheets("envios").Select

ufila = Range("a" & Rows.Count).End(xlUp).Row

For i = 1 To ufila

If Cells(i, 7) = Cells(i, 1) Then

Set parte1 = CreateObject("outlook.application")

Set parte2 = parte1.createitem(olmailitem)

parte2.To = Cells(i, 8) & ";" & Cells(i, 9)

parte2.CC = Cells(i, 10) & ";" & Cells(i, 11)

parte2.Subject = "Cumpleaños" '"Asunto"

'"Cuerpo del mensaje"

parte2.body = "Buenos días," & vbCrLf & vbCrLf & "Nos es grato comunicarles que es el cumpleaños de " & Cells(i, 5) & "." & vbCrLf & vbCrLf & "Un saludo."

'parte2. Attachments.Add Ruta & Archivo

parte2.send

parte2.Display 'El correo se muestra

End If

Next

End Sub

Pero no se me envía automáticamente el correo, me sale el siguiente mensaje de error:

Se ha producido el error ‘-2147467259(80004005)’ en tiempo de ejecución:

Debe haber como mínimo, un nombre o un grupo de contactos en los cuadros Para, CC o CCO

En cambio si le quito la función parte2.send funciona perfectamente.

Alguién puede ayudarme?

No soy informática, llevo toda la tarde para poder hacer esta Macro, seguramente que sencilla, para conseguir enviar automáticamente correos cuando cuando un vencimiento cumple, hasta aquí he llegado pero no consigo averiguar por qué no se envían automáticamente.

Gracias mil.

Olga