Reminders To Stay On Top In Outlook Using Windows7

Reminders To Stay On Top In Outlook Using Windows7

The following process works like a casted spell,

1.enable all the macros by hitting at macro settings in trust center.

2.Create a deigital certificate, Hit start and then type “certificate later selct the digital certificate option, then enter a name for your certificate now click open.

3. Alt + F11 and start the VBA editor, now click on the “theoutlooksession”.

4. Now paste the following code:

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

Now turn on Macro so it’ll run: Tools > Digital Signature and choose the certificate that you had previously created Close tVBA window

Enable all of the macros File > Options > Trust Center > Trust Center Settings > Macro Settings.

Now you are done.