Hi Oliver,
auf das letzte Problem (das Fenster mit der neuen E-Mail wird im Hintergrund angezeigt) bin ich auch gestossen und habe folgenden Workaround benutzt:
1. In einer Text Datei habe ich folgenden Code eingefuegt:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "clsInspector"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents oAppInspectors As Outlook.Inspectors
Attribute oAppInspectors.VB_VarHelpID = -1
Dim WithEvents oMailInspector As Outlook.Inspector
Attribute oMailInspector.VB_VarHelpID = -1
Dim WithEvents oOpenMail As Outlook.MailItem
Attribute oOpenMail.VB_VarHelpID = -1
Dim WithEvents oMailButton As Office.CommandBarButton
Attribute oMailButton.VB_VarHelpID = -1
'Class Initialize
Private Sub Class_Initialize()
'oAppInspectors Returns a handle to the Inspectors collection
Set oAppInspectors = Application.Inspectors
End Sub
Private Sub oAppInspectors_NewInspector(ByVal Inspector As Inspector)
'Event gets triggered every time a Window or Item is opened in Outlook Interface
'Like: E-mail, Contacts, Tasks
If Inspector.CurrentItem.Class <> olMail Then
'Only deal with Email Items...else exit
Exit Sub
End If
'Set a reference to the e-mail to trap the Open event
Set oOpenMail = Inspector.CurrentItem
Set oMailInspector = Inspector
End Sub
Private Sub oOpenMail_Open(Cancel As Boolean)
'Event gets triggered if oOpenMail is opened!
oMailInspector.Activate
oOpenMail.Display False
oOpenMail.Display True
End Sub
'Class Terminate
Private Sub Class_Terminate()
'Clean up Globals
Set oAppInspectors = Nothing
Set oOpenMail = Nothing
Set oMailButton = Nothing
End Sub
2. Die Datei als "clsinspector.CLS" gespeichert.
3. Outlook geoeffnet, ALT+F11 gedrueckt um das VBA Editor zu oeffnen.
4. File -> Import und die Datei "clsinspector.CLS" importiert.
5. Microsoft Office Outlook Object geoeffnet und "ThisOutlookSession" doppel geklickt.
6. Hier habe ich folgenden Code eingefuegt:
Option Explicit
Dim TrapInspector As clsInspector
Private Sub Application_Quit()
'Event gets triggered when you quit Outlook
'Clean up
Set TrapInspector = Nothing
End Sub
Private Sub Application_Startup()
'Event gets triggered when you start Outlook
'Initialize class "clsInspector"
Set TrapInspector = New clsInspector
7. Den VBA Editor geschlossen und “Yes, I want to save the changes to the VBA” ausgewaehlt.
Der Workaround funktioniert zumindest in meiner Umgebung wunderbar. Wenn ich Outlook oeffne und New E-Mail auswaehle wird der Fenster mit der neuen E-Mail im Vordergrund angezeigt.
PS: Bitte den Workaround nur auf einer Testmaschine anwenden;-)
Gruss,
Radu
