Keep Outlook Note on Screen

[Lisa in The Lowcountry]

Can an Outlook 2003 Note be made to stay on screen, on top of what ever
windows are open?

Thanks!

 

[Arun]

Nope.

 

[Brian Tillman]

Can an Outlook 2003 Note be made to stay on screen, on top of what
ever windows are open?

You can make it stay on the screen (as long as Outlook remains open), but
you cannot keep it on top of other windows.

 

[Matthias Günther]

"Lisa in The Lowcountry" <Lisa in The (e-mail address removed)>
schrieb im Newsbeitrag

Can an Outlook 2003 Note be made to stay on screen, on top of what ever
windows are open?

With a little VBA Code (Extras/Macro/Visual Basic Editor)

'[In ThisOutlookSession]

Option Explicit

Private WithEvents m_Inspectors As Inspectors
Private m_ThreadID As Long

Private Sub Application_StartUp()
m_ThreadID = GetCurrentThreadId
Set m_Inspectors = Application.Inspectors
End Sub

Private Sub Application_Quit()
Set m_Inspectors = Nothing
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is NoteItem Then g_Hook =
SetWindowsHookEx(WH_CBT, AddressOf WndProc, 0&, m_ThreadID)
End Sub

'[/In ThisOutlookSession]


'[In a module]

Option Explicit

Public Declare Function SetWindowsHookEx Lib "user32" _
Alias "SetWindowsHookExA" (ByVal idHook As Long, _
ByVal lpfn As Long, ByVal hmod As Long, ByVal _
dwThreadId As Long) As Long

Public Declare Function GetCurrentThreadId Lib "kernel32" () _
As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long

Private Declare 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

Public Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HWND_TOPMOST As Long = -1
Private Const SWP_NOSIZE As Long = &H1
Private Const SWP_NOMOVE As Long = &H2

Public g_Hook As Long

Public Function WndProc(ByVal uMsg As Long, ByVal wParam As Long, ByVal
lParam As Long) As Long

If uMsg = HCBT_ACTIVATE Then

Call SetWindowPos(wParam, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or
SWP_NOMOVE)
UnhookWindowsHookEx g_Hook

End If

WndProc = False

End Function

'[/In a Module]


Hope this helps

Matthias

 

[Matthias Günther]

Addition:

Example sets all notes topmost

If you need a TopMostNote only a few times change code of ThisOutlookSession
to


'[In ThisOutlookSession]

Option Explicit

Private m_ThreadID As Long

Private Sub Application_StartUp()
m_ThreadID = GetCurrentThreadId
End Sub

Public Sub TopMostNote()
Dim oTopMostNote As NoteItem

Set oTopMostNote =
Application.Session.GetDefaultFolder(olFolderNotes).Items.Add
g_Hook = SetWindowsHookEx(WH_CBT, AddressOf WndProc, 0&, m_ThreadID)
oTopMostNote.Display
Set oTopMostNote = Nothing
End Sub

'[/In ThisOutlookSession]


and add macro to your commandbar

Code in module is the same


Matthias