Estoy usando macOS 14.6.1 y Outlook 16.89.3. No puedo encontrar una respuesta a esta pregunta en el foro.
Estoy intentando crear un servicio/script de acciones de carpeta para monitorear una carpeta en particular en busca de nuevos archivos de Excel (solo se agregarían archivos de Excel a esta carpeta de todos modos) y, cuando se agregue un archivo, enviar ese archivo, a través de Outlook, al usuario cuya dirección de correo electrónico se encuentra en la celda B2 de la hoja de cálculo.
He intentado usar chatgpt para esto. Me da un script que funciona cuando se usa Apple Mail, pero no con Outlook.
Aquí tienes un ejemplo de lo que chatgpt dice que debería usar... que sigue fallando. Cuando arrastro un archivo a la carpeta, veo que el pequeño icono de engranaje gira en la barra de menú, pero no aparecen cuadros de diálogo, no hay mensajes de error y no se crean/envían correos electrónicos en Outlook.
al añadir elementos de carpeta a esta_carpeta después de recibir elementos_agregados
repetir con elemento_agregado en elementos_agregados
establecer rutaArchivo a ruta POSIX de elemento_agregado
-- Verificar si el archivo es un archivo de Excel
si la rutaArchivo termina con ".xlsx" then
mostrar diálogo "Archivo agregado: " & (nombre de elemento_agregado) -- Mensaje de depuración
intentar
-- Abrir el archivo de Excel para leer la dirección de correo electrónico
decir aplicación "Microsoft Excel"
abrir rutaArchivo
retraso 1 -- Esperar a que Excel se abra
establecer correoDestinatario a valor de celda "B2" de la hoja_activa
cerrar libro activo guardando no -- Cerrar el libro sin guardar
end decir
-- Asegurarse de que correoDestinatario sea válido
si correoDestinatario no es valor perdido entonces
-- Preparar el correo electrónico
decir aplicación "Microsoft Outlook"
establecer nuevoMensaje a hacer nuevo mensaje saliente con propiedades {asunto:"Su Archivo de Excel Solicitado", contenido:"Hola,\n\nPor favor, encuentre el archivo de Excel solicitado adjunto.\n\nSaludos cordiales,\nTu Nombre"}
hacer nuevo destinatario en nuevoMensaje con propiedades {dirección de correo electrónico:{dirección:correoDestinatario}}
hacer nuevo archivo adjunto en nuevoMensaje con propiedades {archivo:elemento_agregado}
enviar nuevoMensaje
end decir
else
mostrar diálogo "No se encontró dirección de correo electrónico en la celda B2 de " & (nombre de elemento_agregado)
end if
on error errMsg
mostrar diálogo "Error al procesar el archivo: " & errMsg
fin intentar
end if
fin repetir
fin añadiendo elementos de carpeta a
Gracias por tu tiempo.