MacroFacili: Elenco categorie di Outlok

Le categorie in Outlook sono un ottimo modo per raggruppare appumentamenti e contatti, sforutnatamente sono specifici per ogni account, questa macro permette di scaricarli e confrontarli con altri utenti o ordinarli in modo più semplice.

Sub Leggi_categorie_Outlook()
  Set Fa = ActiveSheet

  Rf = Range("B:B").SpecialCells(xlCellTypeLastCell).Row
  If (Rf >= 5) Then Fa.Range(Rows(5), Rows(Rf)).Delete

  'è necessario il riferimento alla libreria di Outlook,
  'nell'editor VBA: Strumenti --> Riferimenti --> Microsoft Outlook xx.x Object Library
  Dim Outlook As Outlook.Application
  Set Outlook = New Outlook.Application

  Dim oCategory As Category

  If (Outlook.Session.Categories.Count > 0) Then
    Ra = 5
    For Each oCategory In Outlook.Session.Categories
      Fa.Cells(Ra, 2) = oCategory.Name
      Fa.Cells(Ra, 3) = oCategory.Color
      Fa.Cells(Ra, 3).Interior.Color = oCategory.CategoryGradientBottomColor
      Ra = Ra + 1
    Next
  End If
End Sub

L'esempio completo é scaricabile da questo link: Es370.xlsm (a questo link le info per attivare le macro se risultano bloccate)

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.