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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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