Hola! como estás?
Ahora parece ser que quisiera funcionar la macro, pero no he logrado que llegue hasta el final porque me arroja error cuando tiene que adjuntar el archivo (lo cual normalmente funciona bien)... no lo entiendo, porque estuve revisando si el archivo seguía guardandose con el mismo formato y en la misma carpeta y, por lo que vi, está todo correcto.
Buenas tardes!
Estuve haciendo la prueba. La macro no llega a finalizar porque arroja el error que muestro en los archivos adjuntos. No entiendo por qué no logra encontrar los archivos al ejecutar el loop, porque si utilizo la macro original (es decir, sin el loop), funciona correctamente.
Se me ocurría que quizá al copiar y pegar el codigo en la celda P17 quizá estuviera poniendo algo extra en el nombre del archivo a crear que hiciera que el recibo creado no se guardara exactamente con el mismo nombre por el que luego la macro lo intentaría localizar el para enviarlo por mail, pero revisé y aparentemente los archivos se guardan con el mismo formato que se guardaron siempre.
Sabrán qué puede ser?
Por
Corvette, · publicado
Estimados,
Tengo el siguiente códgio para crear citas desde una macro.
Private Sub CommandButton1_Click()
Dim Respuesta As VbMsgBoxResult
Dim ol As New Outlook.Application
Dim ns As Outlook.Namespace
Dim itmApoint As Outlook.AppointmentItem
Set ns = ol.GetNamespace("MAPI")
Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem)
With itmApoint
.Start = "2014-05-22 13:00:00"
.End = "2014-05-22 13:00:00"
.Subject = "Prueba"
.Body = "Prueba"
.Importance = olImportanceNormal
.Save
End With
MsgBox "Se creó el recordatorio en Outlook", vbInformation, "Mensaje"
End Sub
Este código me funciona muy bien en algunas máquinas, pero en otras me da el siguiente error:
Se ha producido el error 13 en tiempo de ejecucion
No Coinciden los tipos
Y es en la línea:
Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem)
Muchas Graicas por sus comentarios.
Saludos,