Jak při ukončení Outlooku smazat nějakou složku

• Klávesovou zkratkou Alt+F11 spusťte VBA Editor
• Do objektu ThisOutlookSession vložte tento kód
• Nastavte správně konstantu sFDelete podle jména složky, kterou chcete mazat.

Const sFDelete = "SPAMFOLDER" 'Jmeno mazane slozky
  
Sub ListFolder(parent As Folders, depth As Integer)

  Dim flr As MAPIFolder
  Dim s As String
  Dim itm As MailItem
  
  For Each flr In parent
    If flr.Name = sFDelete Then
      Do While flr.Items.Count <> 0
        Set itm = flr.Items.GetFirst
        itm.Delete
      Loop
    End If
     ListFolder flr.Folders, depth + 1
     DoEvents
  Next flr
End Sub

Private Sub Application_Quit()
  Dim oapp As New Outlook.Application
  Dim ns As NameSpace
  Set ns = oapp.GetNamespace("MAPI")
  ListFolder ns.Folders, 0
  oapp.Quit
  Set oapp = Nothing
End Sub