outlook-vba 3.5 Spostamento di una cartella da una cartella principale a un'altra


Esempio

Perché voglio fare riferimento a una cartella? Nella parte successiva ti mostrerò come accedere alle e-mail all'interno di una cartella di riferimento. Qui ti mostrerò come spostare una cartella. Ho creato una cartella denominata "Test" nella mia Posta in arrivo. In TestMoveFolder() , ho sostituito "A" con il nome del negozio che contiene la mia casella di posta. L'esecuzione di TestMoveFolder() spostato "Test" su "Elementi eliminati".

Sub TestMoveFolder()

  Dim FldrDest As Folder
  Dim FldrToMove As Folder

  Set FldrToMove = Session.Folders("A").Folders("Inbox").Folders("Test")
  Set FldrDest = Session.Folders("A").Folders("Deleted Items")
  
  FldrToMove.MoveTo FldrDest

End Sub