Listar correos y adjuntos extraídos con macro hacia reporte de Excel

Tengo una macro que obtuve desde los foros ayuda de Microsoft; lo que hace es copiar los archivos adjuntos de los correos de Outlook seleccionados previamente si cumplen con la condición de ser de un archivo en específico. Además, al guardarlos les añade el remitente y la fecha de recepción al nombre del archivo.

Lo que quisiera es que al realizar la rutina, me elabore un reporte en Excel en donde detalle que correos evaluó, y si tenían adjuntos o no, añadiendo también el nombre del adjunto guardado, asunto de correo, fecha y remitente.

Algo más o menos así:

Asunto | Remitente | Fecha | Adjunto

Si no hay adjunto, llena todos los campos y el último diría «Sin adjunto». Además, como pueden ser extraídos varios adjuntos un solo correo, cada línea correspondería a un adjunto, pudiéndose repetir el subject, remitente y fecha.

Se que es un ciclo For y un contador, pero tras probar varias veces y de diferentes formas no logre que copiara nada a la hoja de Excel. ¿Podrían ayudarme? El código es este:

(Al parecer es demasiado extenso como para pegarlo acá, el Link es este)

https://docs.google.com/document/d/1CDhK9YpsiEcD4d33702bIzBdXmy5W-wUSzSA66c32Iw/edit?usp=sharing 

Añade tu respuesta

Haz clic para o