Outlook fenster in vordergrund bringen
21.12.2022 08:27:34
Jonathan
ich habe ein VBA Makro das meine Erinnerungen bei Outlook in den Vordergrund bringen soll. (Aus irgendeinem Grund geht das bei meiner Version (2021) irgendwie nicht. Ich habe ein Makro das nun funktioniert, aber bevor das Fenster in den Vordergrund kommt kommt die Fehlermeldung. Wenn ich diese wegklicke kommt das Erinnerungsfenster in den Vordergrund.
Der Code gibt folgenden Fehler aus:
"Fehler beim komillieren: Erwartet as oder =."
Auch sind die Codezeilen 2 und 3
(Private Const PtrSafe SM_CXSCREEN As Long = 0
Private Const PtrSafe SM_CYSCREEN As Long = 1)
rot markiert.
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const PtrSafe SM_CXSCREEN As Long = 0
Private Const PtrSafe SM_CYSCREEN As Long = 1
Private Sub Application_Reminder(ByVal Item As Object)
Dim screenWidth As Long
Dim screenHeight As Long
Dim windowWidth As Long
Dim windowHeight As Long
screenWidth = GetSystemMetrics(SM_CXSCREEN)
screenHeight = GetSystemMetrics(SM_CYSCREEN)
windowWidth = Item.GetInspector.Width
windowHeight = Item.GetInspector.Height
Item.GetInspector.Activate
Item.GetInspector.Top = (screenHeight - windowHeight) / 2
Item.GetInspector.Left = (screenWidth - windowWidth) / 2
End Sub
Anzeige