Me encontré moviendo accidentalmente elementos de correo electrónico a una carpeta de archivo en lugar de la carpeta estándar en MS Outlook. Por ejemplo, para una dirección de correo electrónico de [email protected], abro el archivo para ubicar un correo electrónico antiguo en la carpeta "KeepThis", pero luego me olvido de colapsar la carpeta de archivo y, por inadvertido, muevo algún otro mensaje de correo electrónico más tarde Archive / KeepThis folder cuando realmente quería moverlo a la carpeta [email protected]/KeepThis.

¿Hay alguna forma de usar el código VBA para alertar al usuario cuando un elemento de correo electrónico se mueve manualmente a una carpeta de archivo?

Intenté sin éxito modificar el código por @thims en create-outlook-rule-which-runs-after-move-mail-to-específica-carpeta para mostrar un msgbox, pero no pude descubrir cómo activarlo cuando moví un elemento de correo aningun carpeta en mi carpeta principal de correo electrónico ni en el Archivo.

Esto es lo que he intentado:

(1) Agregué el siguiente código a ThisOutlookSession (obviamente con mi dirección de correo electrónico real):

Public WithEvents FolderItems As Outlook.Items

Private Sub Application_Startup()
   Set FolderItems = Session.Folders("[email protected]").Folders("Misc").Items
End Sub

Private Sub FolderItems_ItemAdd(ByVal Item As Object)
    MsgBox "ItemAdd event was triggered in folder Misc"
End Sub

Eso funcionaS Muevo un elemento de correo electrónico a la carpeta "Varios" en mi cuenta de correo electrónico no archivada. Hurra

Pero, no puedo entender cómo configurar el objeto FolderItems para que se active cuando un correo electrónico se mueve aningun carpeta.

(2) Puedo hacer referencia a la carpeta de archivo general usando:

Set FolderItems = Session.Folders("Archives").Folders("Misc").Items

Pero, eso solo se activa si muevo algo a la carpeta específica "Misc" en Archivos y quiero activar el evento cuando un correo electrónico se mueve aningun Carpeta de archivo, no solo la carpeta "Misc".

He intentad

Set FolderItems = Session.Folders("Archives").Items

pero eso no funciona: no hay ningún error, simplemente no se activa cuando muevo un correo electrónico a ninguna carpeta, ni se activa cuando se agrega / crea una nueva carpeta en Archivos; por lo tanto, no estoy seguro de qué se activará con ese código.

¡Gracias por cualquier puntero para que las cosas avancen más!