'===================================================================================
' Procedure   : WeeklyReview()
' Author      : Michael S. Hyatt
' Date        : 1/17/2004 05:46
' Purpose     : Creates weekly review tasks.
' Shortcut    : None
' Modified    : 25/5/2006 16:51
'===================================================================================

Sub RepasoSemanal()

    ' Declare the variables:
    Dim oMyTaskItem As TaskItem

    On Error GoTo RepasoSemanal_Error

    'Create Weekly Review Task #1:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "01. Papeles sueltos"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Ponga notas, tarjetas, recibos y otros papeles sueltos en un canasto de entradas, para procesarlos."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #2:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "02. Procese sus notas"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Decida e incorpore temas de acción y proyectos."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #3:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "03. Repase la información del calendario pasado"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Identifique temas de acción pendientes, datos de referencia, etcétera, y transfiéralos al sistema activo."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #4:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "04. Repase el próximo calendario"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Eventos próximos, en el corto y en el largo plazo. Capture las acciones ya impulsadas."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #5:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "05. Repase listados de “algún día” y “quizás”"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Y conviértalos en proyectos. Borre los temas que ya no le interesen."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #6:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "06. Vacíe su cabeza"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Lleve al papel (por categorías) cualquier nuevo proyecto, tema de acción, pendientes, ideas y otras, todavía no capturadas."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #7:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "07. Repase listas de acción"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Resalte las acciones completadas. Identifique recordatorios de pasos de acciones futuras, para archivarlos."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #8:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "08. Repase listas de espera"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Archive acciones apropiadas para cualquier seguimiento que sea necesario. Marque las recibidas."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #9:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "09. Repase listas de proyectos (y resultados mayores)"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Evalúe el estado de los proyectos, metas y resultados, uno a uno. Identifique nuevas acciones, terminaciones, pendientes, etcétera."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #10:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "10. Repase todo checklist relevante"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "Utilícelo como disparador de nuevas acciones."
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    'Create Weekly Review Task #11:
    Set oMyTaskItem = Application.CreateItem(olTaskItem)
    oMyTaskItem.Subject = "11. Sea creativo y valiente"
    oMyTaskItem.Categories = "@Dondequiera"
    oMyTaskItem.Body = "¿Tiene alguna idea nueva, maravillosa, distinta, provocadora, riesgosa para sumar a su sistema???"
    oMyTaskItem.Importance = 1
    oMyTaskItem.Save
    
    Set oMyTaskItem = Nothing

   On Error GoTo 0
   Exit Sub

RepasoSemanal_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") en procedimiento RepasoSemanal"

End Sub