Cómo hacer que los recordatorios del calendario de Outlook se mantengan en la cima en Windows 7

Solución:

Tuve el mismo problema con Outlook 2010. Siga los pasos que se mencionan a continuación, funciona de maravilla. No olvide habilitar todas las macros: Centro de confianza> Configuración de macros.

• Cree un certificado digital para más tarde: presione Inicio y escriba ‘certificado’, seleccione ‘Certificado digital para proyectos VBA’
• Ingrese un nombre para su certificado. Haga clic en Aceptar. Abra Outlook y presione Alt + F11 para iniciar el editor de VBA.
• En el árbol de la izquierda, expanda ‘Objetos de Microsoft Office Outlook’ y haga doble clic en ‘ThisOutlookSession’

• Pega este código:

  Private Declare PtrSafe Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  
  Private Declare PtrSafe Function SetWindowPos Lib "user32" ( _
  ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
  
  Private Const SWP_NOSIZE = &H1
  Private Const SWP_NOMOVE = &H2
  Private Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE
  Private Const HWND_TOPMOST = -1
  
  Private Sub Application_Reminder(ByVal Item As Object)
  Dim ReminderWindowHWnd As Variant
  On Error Resume Next
  ReminderWindowHWnd = FindWindowA(vbNullString, "1 Reminder")
  SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
  
  End Sub
  

• Firme la macro para que se ejecute: Herramientas> Firma digital … y elija el certificado que creó anteriormente
• Cerrar la ventana de VBA
• Habilite todas las macros en Archivo> Opciones> Centro de confianza> Configuración del Centro de confianza> Configuración de macros

AutoHotKey también se puede utilizar para solucionar este problema. Este script colocará la ventana de recordatorio en la parte superior sin robar el foco (probado con Win10 / Outlook 2013)

TrayTip Script, Looking for Reminder window to put on top, , 16
SetTitleMatchMode  2 ; windows contains
loop {
  WinWait, Reminder(s), 
  WinSet, AlwaysOnTop, on, Reminder(s)
  WinRestore, Reminder(s)
  TrayTip Outlook Reminder, You have an outlook reminder open, , 16
  WinWaitClose, Reminder(s), ,30
}

Script AHK – EXE compilado

La mejor respuesta que he encontrado está aquí: Cómo hacer que los recordatorios de citas de Outlook aparezcan nuevamente frente a otras ventanas usando un simple VBA.

Implica agregar algunas líneas de código VBA simple a “ThisOutlookSession”. Ahora, aparece una ventana cada vez. Mucho mejor.

• Crea un certificado digital para más tarde
• Presione Inicio y escriba ‘certificado’, seleccione ‘Certificado digital para proyectos VBA’
• Ingrese un nombre para su certificado
• Hecho
• Abra Outlook y presione Alt + F11 para iniciar el editor de VBA.
• En el árbol de la izquierda, expanda ‘Objetos de Microsoft Office Outlook’ y haga doble clic en ‘ThisOutlookSession’

• Pegue este código, modificando el texto entre comillas para adaptarlo a sus preferencias. Deja las comillas.

  Private Sub Application_Reminder(ByVal Item As Object)
  
  
      If TypeOf Item Is AppointmentItem Then
      MsgBox "Message text", vbSystemModal, "Message title"
      End If
  
  
  End Sub
  

• Firme la macro para que se ejecute yendo a Herramientas> Firma digital … y eligiendo el certificado que creó anteriormente.

• Cerrar la ventana de VBA

---

---

Utiliza Nuestro Buscador