Discussion :

[chatillon en diois]

Bonjour
Je reviens sur un sujet abordé en 2008 par TeamArkadia et auquel à priori il n'a pas été trouvé de solution.
Dans Outlook 2010, la fenêtre des rappels de réunion s'affiche mais en arrière-plan ce qui n'est pas pratique du tout. Comment la faire afficher comme dans Outlook 2003 ?

Savez vous comment régler ce problème ? Merci pour votre aide.

[nge21]

Même problème ici.

C'est vraiment énervant quand vos RDV sont passés au second plan alors que vous travaillez à partir d'un autre logiciel.

Est-ce qu'il y a des gens prêts à relever un défi, celui de : Ramener les fenêtres de rappels Outlook au premier plan ?

[Oliv-]

Bonjour,
Voici une solution avec une MACRO

Dans ThisOutlookSession

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Application_Reminder(ByVal Item As Object)
'MsgBox "reminder" & vbCr & Item.subject
ActiveOutlook
End Sub

dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
 
'====================dans un module standard
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
    (ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
 
' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10
 
Sub ActiveOutlook()
'---------------------------------------------------------------------------------------
' Procedure : ActiveOutlook
' Author    : Oliv
' Date      : 12/12/2014
' Purpose   :Affiche au premier plan OUTLOOK
'---------------------------------------------------------------------------------------
'
Dim hwnd As Long, Cemail As String
FenOutlook = Application.ActiveExplorer.Caption
On Error Resume Next
  If FenOutlook<> "" Then hwnd = FindWindow(vbNullString, FenOutlook)
  If hwnd = 0 Then Exit Sub
  SetForegroundWindow hwnd
  ShowWindow hwnd, SW_SHOWMAXIMIZED
  hwnd = ""
End Sub

[nge21]

Merci à toi! Je vais essayer

[nge21]

J'ai voulu cliquer plusieurs fois sur le pouce vert mais ce n'est pas possible.

Un grand merci ! Challenge done !

[denischti59]

Hello
Mise à jour du code pour Windows 64bits, la déclaration des fonctions se faisant différemment


Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongLong) As LongLong
Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongLong, ByVal nCmdShow As LongLong) As LongLong