Estoy tratando de mover algunos correos electrónicos que entran en nuestra bandeja de entrada compartida (ABC COMPANY) a una subcarpeta (A&D) que se crea dentro de una carpeta principal (INFO DIARIO). Sólo he encontrado en la web, una macro que mueve los correos electrónicos de la bandeja de entrada compartida a la carpeta principal, pero no a la subcarpeta. Aquí está el código que encontré.

 Dim NS As NameSpace

 Dim sharedInbox As folder

 Dim sharedDestinationFolder As folder

 Dim sharedItems As Selection

 Dim i As Long

    Set NS = Application.GetNamespace("MAPI")
    Set sharedInbox = NS.Folders("ABC COMPANY").Folders("Inbox")
    Set sharedDestinationFolder = sharedInbox.Folders("DAILY INFO")

    Set sharedItems = ActiveExplorer.Selection

   ' Counting in reverse
    'when changing the number of items in a collection
    For i = sharedItems.Count To 1 Step -1
        sharedItems(i).Move sharedDestinationFolder
    Next i

ExitRoutine:
    Set NS = Nothing
    Set sharedItems = Nothing
    Set sharedInbox = Nothing
    Set sharedDestinationFolder = Nothing


End Sub
0
yuki 4 nov. 2019 a las 10:54

1 respuesta

Cada folder contiene una folders - colección que contiene sus subcarpetas.

Suponiendo que sus carpetas existan, haga algo como

Set sharedDestinationFolder = sharedInbox.Folders("DAILY INFO")
Set sharedDestinationFolder = sharedDestinationFolder.Folders("A&D")

por supuesto, podría hacer esto con una sola declaración, pero esto hace que sea más difícil de depurar si algo falla

Set sharedDestinationFolder = sharedInbox.Folders("DAILY INFO").Folders("A&D")
0
FunThomas 4 nov. 2019 a las 08:32