TSC Contabilidad

Ejemplo de cómo crear categorías en Outlook medianta VBA

'---------------------------------------------------------------------------------------
' Procedimiento : instalaCategorias
' Tipo: Sub
' Autor : Armando Cid
' Fecha : 10-10-14
' Propósito : Instala las Categorías a usar en las tareas y correos'---------------------------------------------------------------------------------------
'
Sub instalaCategorias()
Dim objOLApp As Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myFolder As Outlook.Folder
Dim mySpace AsOutlook.NameSpace
Dim tarea As Outlook.TaskItem
Dim cat As Category
'Se asignan los objetos Aplicación Outlook
' Explorador Activo
'Selección activa
Set objOLApp = New Outlook.Application
Set myOlExp = Application.ActiveExplorer
Set mySpace = objOLApp.GetNamespace("MAPI")




Dimcategorias(28) As categoriaC

categorias(1).nombre = "Asignados"
categorias(2).nombre = "BPCSCamImp"
categorias(3).nombre = "zFinalizado"
categorias(4).nombre = "EnProgreso"
categorias(5).nombre ="BPCSDesCamProg"
categorias(6).nombre = "StrategiAccount"
categorias(7).nombre = "NewHire"
categorias(8).nombre = "B2BCamPsw"
categorias(9).nombre = "Macros"
categorias(10).nombre = "TareasEspeciales"
categorias(11).nombre = "APPMEX"
categorias(12).nombre = "Redireccionado"
categorias(13).nombre = "BPCSFallCorrDat"
categorias(14).nombre = "B2BDesCamProg"
categorias(15).nombre ="ExitHire"
categorias(16).nombre = "B2BFallCorrDat"
categorias(17).nombre = "BPCSAddRepProg"
categorias(18).nombre = "TareaCreada"
categorias(19).nombre = "B2BCapacitacion"
categorias(20).nombre ="B2BAddRepProg"
categorias(21).nombre = "BPCSCamPsw"
categorias(22).nombre = "Cerrados"
categorias(23).nombre = "B2BAccOCCom"
categorias(24).nombre = "Guardado"
categorias(25).nombre = "ContUsr"...