Hoe kan ik Outlook Agenda-herinneringen bovenaan laten staan in Windows 7

Ik had hetzelfde probleem met Outlook 2010. Gebruik de onderstaande stappen, het werkt als een charme. Vergeet niet alle macro’s in te schakelen: Trust Center > Macro-instellingen.

• Maak een digitaal certificaat aan voor later: Druk op Start en typ ‘certificaat’, selecteer ‘Digitaal certificaat voor VBA-projecten’
• Voer een naam in voor uw certificaat. Klik op OK. Open Outlook en druk op Alt + F11 om de VBA-editor te starten.
• Vouw in de boomstructuur aan de linkerkant ‘Microsoft Office Outlook Objects’ uit en dubbelklik op ‘ThisOutlookSession’

• Plakken in deze code:

• Teken de Macro zodat hij draait: Tools > Digital Signature… en kies het certificaat dat je eerder hebt gemaakt

• Sluit het VBA-venster

• Schakel alle macro’s in in Bestand > Options > Trust Center > Trust Center Settings > Macro Settings

AutoHotKey kan ook worden gebruikt om dit op te lossen. Dit script zal het herinneringsvenster bovenaan plaatsen zonder de focus te stelen (getest met 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
}

AHK Script - Gecompileerde EXE

Het beste antwoord dat ik heb gevonden is hier: Hoe je Outlook afspraak herinneringen te krijgen om weer voor andere ramen te verschijnen met behulp van een aantal eenvoudige VBA. Het houdt in dat je een paar regels eenvoudige VBA-code toevoegt aan “ThisOutlookSession”. Nu verschijnt er elke keer een venster. Veel beter.

• Maak een digitaal certificaat aan voor later
• Druk op Start en typ ‘certificaat’, selecteer ‘Digitaal certificaat voor VBA-projecten’
• Voer een naam in voor uw certificaat
• Klaar
• Open Outlook en druk op Alt + F11 om de VBA-editor te starten.
• Vouw in de boom aan de linkerkant ‘Microsoft Office Outlook Objects’ uit en dubbelklik op ‘ThisOutlookSession’

• Plak deze code in, waarbij u de tekst tussen aanhalingstekens aanpast aan uw voorkeuren. Laat de aanhalingstekens in.

• Teken de Macro zodat deze wordt uitgevoerd door naar Extra > Digitale handtekening… te gaan en het certificaat te kiezen dat je eerder hebt aangemaakt

• Sluit het VBA-venster.

Vanaf versie 1803 (februari 2018) is de optie “Show reminders on top of other windows” nu beschikbaar. Deze lijkt niet standaard te zijn ingeschakeld.

Zelfde als Gullu’s anker hierboven, maar met verandering om verschillende venstertitels aan te passen:

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

'// TO ACCOUNT FOR WINDOW TITLE CHANGING WITH NOTIFICATION COUNT:
Private Sub Application_Reminder(ByVal Item As Object)
    Dim ReminderWindowHWnd As Variant
    'On Error Resume Next
    On Error GoTo err
    'Loop 25 times as FindWindowA needs exact title which varies according to number of reminder items...
    Dim iReminderCount As Integer
    For iReminderCount = 1 To 25
        'Try two syntaxes...
        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Reminder"): SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Reminder(s)"): SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
    Next
Exit Sub
err:
    Debug.Print err.Number & " - " & err.Description & " (iReminderCount = " & iReminderCount & ")"
    Resume Next
End Sub

Dat kan niet. Ons bedrijf probeerde het direct te escaleren naar Microsoft. Een ding doen mensen hier is het toewijzen van een meer onaangenaam geluid, om het te helpen merken. Maar Microsoft heeft ons verteld dat het een ontwerp is.

Ik heb Filebox eXtender gebruikt en als de eerste herinnering binnenkomt, open ik deze en klik op het nieuwe ‘pin’-pictogram rechtsboven in de ondertiteling. Wanneer de volgende herinnering binnenkomt, komt deze op de voorgrond…

Dit zat me ook dwars. Na wat intensief zoeken vond ik een gedeeltelijk antwoord: http://www.pcreview.co.uk/forums/hidden-outlook-reminders-t3972914.html

Als je de “Taakbalk knoppen” instelling onder de “Taakbalk en Start Menu Eigenschappen” verandert in “Nooit combineren”, dan scheidt de groepering zich en komt de herinnering tevoorschijn voor wat je ook open hebt staan.

Ik probeerde het te testen en ontdekte dat het inconsistent was; de ene keer bleef het verborgen achter waar ik mee bezig was, en een andere keer kwam het tevoorschijn. In beide gevallen stond er een icoon op de taakbalk die er anders uitzag dan Outlook zelf, dus er was in ieder geval een kans dat ik het zou opmerken.

Ik vond een addin genaamd ShowReminders http://www.sagelamp.com/pages/showreminders.aspx ), die het herinneringsvenster naar boven brengt. Het werkt zelfs als je het herinneringsvenster tot een minimum beperkt.

Dit is een verbeterde versie van tbone’s antwoord die werkt op Duitse versies.

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 Declare PtrSafe Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Boolean
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Boolean
Private Declare PtrSafe Function SetFocus Lib "user32" (ByVal hwnd 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 GoTo err
    'Loop 25 times as FindWindowA needs exact title which varies according to number of reminder items...
    Dim iReminderCount As Integer
    For iReminderCount = 1 To 25
        'Try two syntaxes...

        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Erinnerung")
        SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
        BringWindowToTop (ReminderWindowHWnd)
        SetForegroundWindow ReminderWindowHWnd
        SetFocus ReminderWindowHWnd

        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Erinnerung(en)")
        SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
        BringWindowToTop ReminderWindowHWnd
        SetForegroundWindow ReminderWindowHWnd
        SetFocus ReminderWindowHWnd
    Next
Exit Sub
err:
    Debug.Print err.Number & " - " & err.Description & " (iReminderCount = " & iReminderCount & ")"
    Resume Next
End Sub

Ik heb Duitse venstertitels toegevoegd en ook enkele nieuwe functies BringWindowToTop , SetForegroundWindow en SetFocus .

Werkt op mijn Duitse Windows 10 samen met Outlook 2016.

Ik heb niet een nieuw certificaat kunnen genereren (door op Start te drukken en “certificaat” in te voeren is niets gebleken), maar heb bij het ondertekenen gewoon een ander certificaat in de lijst geselecteerd.

Ik vind eindelijk een eenvoudige oplossing met behulp van Outlook VBA en een eenvoudige EXE.

Hier is hoe je nooit meer een afspraak voor een outlook-vergadering te missen.

Waarom een stand alone exe applicatie alleen voor dit doel? Nou, ik had de grote rode doos in de VBA, maar die oplossing zat vol problemen (ik geloof dat het komt omdat ik hwnd en andere ongewone systeemeigenschappen moet gebruiken om de grote rode doos bovenop te houden). Dus om de dingen eenvoudiger te maken waarom niet een basis EXE die een ding doen. U kunt gebruik maken van gratis tools van microsoft (Visual studio Community 2015 is gratis).

Dit is de EXE code. eenvoudige vensters formulier toepassing met een formulier. Compileer deze code.

Imports System.Timers
Public Class Form1
    Dim tTimer As New Timer
    Public Sub New()
        InitializeComponent()
        Me.StartPosition = Windows.Forms.FormStartPosition.CenterScreen
        Me.TopMost = True
        Me.TopLevel = True
    End Sub
    Private Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
        Application.Exit()
    End Sub 
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        flashingQuick()
    End Sub
    Sub flashingQuick()
        tTimer.Start()
        AddHandler tTimer.Elapsed, New ElapsedEventHandler(AddressOf TimerTick)
    End Sub
    Sub TimerTick(ByVal source As [Object], ByVal e As ElapsedEventArgs)
        Dim theTimer As System.Timers.Timer = DirectCast(source, System.Timers.Timer)
        theTimer.Interval = 500
        theTimer.Enabled = True
        If Me.BackColor = System.Drawing.SystemColors.Control Then
            Me.BackColor = Color.Red
        Else
            Me.BackColor = System.Drawing.SystemColors.Control
        End If
    End Sub
End Class

En dit is alles wat ik nodig heb in de outlook VBA. Zet dit in ThisOutlookSession

Private Sub Application_Reminder(ByVal Item As Object)
    On Error Resume Next
    If Item.MessageClass <> "IPM.Appointment" Then
      Exit Sub
    End If
    Dim sAPPData As String
    Dim sFileName As String
    sAPPData = Environ("AppData")
    sFileName = "\Microsoft\Windows\Start Menu\Programs\BigRedBox\BigRedBox.exe"
    If Dir(sAPPData & sFileName) <> "" Then
        Call Shell(sAPPData & sFileName)
    End If
End Sub