Oenning Outlook EMAILS taking so long

Wir wissen nur, dass das System nach der Einstellung so eingestellt ist und dass dies nicht geändert werden kann.

Also mit "Einstellungen" meinen sie tatsächliche eine Option die ein über motivierter Mitarbeiter auf FALSE gesetzt hat?

Und ganz alleine sind wir damit nicht:

https://outlook.uservoice.com/forums/284136-outlook-com/suggestions/11133255-rules-no-longer-working

sehr spannend - jetzt kommen gerade keine emails mehr rein - vielleicht wurden die verbundenen konnten nun GANZ rausgenommen ? Oder nur "Ich" weil ich aufgefallen bin ? ... weil die email funktioniert - da ich ja gezwungen bin google zu nutzen sehe ich
die emails da einrollen alle paar minuten - aber seit gestern kurz vor mitternacht ist in outlook.com keine mehr angekommen ...

Ich möchte gnupplot anstossen, dazu wird durch VBA eine Textdatei ausgegeben. Das script überwacht m.E. Änderungen dieser Datei und stößt die gnuplot-Ausgabe an.

Ich hab keine Ahnung wovon Du redest, aber wenn Du was "anstossen" willst... der Code unten sollte passen.

Andreas.

Option Explicit

#If Win64 Then

Private Declare PtrSafe Function OpenProcess Lib "kernel32" ( _

ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _

ByVal dwProcessId As Long) As LongPtr

Private Declare PtrSafe Function CloseHandle Lib "kernel32" ( _

ByVal hObject As LongPtr) As Long

Private Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" ( _

ByVal hProcess As LongPtr, lpExitCode As Long) As Long

#Else

Private Declare Function OpenProcess Lib "Kernel32.dll" ( _

ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, _

ByVal dwProcId As Long) As Long

Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal hObject As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" ( _

ByVal hProcess As Long, lpExitCode As Long) As Long

#End If

Private Sub Example_ShellWait()

ShellWait "notepad.exe"

Beep '

End Sub

Function ShellWait(ByVal PathName As String, _

Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus) As Long

Const STILL_ACTIVE = &H103&

Const PROCESS_QUERY_INFORMATION = &H400&

Dim pID As Long

#If Win64 Then

Dim hProcess As LongPtr

#Else

Dim hProcess As Long

#End If

pID = Shell(PathName, WindowStyle)

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, True, pID)

Do

GetExitCodeProcess hProcess, ShellWait

Loop While ShellWait = STILL_ACTIVE

CloseHandle hProcess

End Function

werden. Wir arbeiten mit 2 Bildschirmen und es wäre cool wenn das irgendwie geht.

Irgendwie geht das schon... allerdings "nur dafür" die Datei mit Tonnen von Windows-API vollzustopfen... lass es lieber.
<br />Es gibt Tools wie Actual Window Manager, die können das und noch viel mehr.
<br />Wenn Du das selber programmieren willst ... fang mal an und ermittele mal alle Monitore in einem System
<br />EnumDisplayMonitors
<br />Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
<br />Private Const MONITORINFOF_PRIMARY = &H1
Private Const MONITOR_DEFAULTTONEAREST = &H2
Private Const MONITOR_DEFAULTTONULL = &H0
Private Const MONITOR_DEFAULTTOPRIMARY = &H1
Private Type MONITORINFO
cbSize As Long
rcMonitor As RECT
rcWork As RECT
dwFlags As Long
End Type
#If Win64 Then
Private Declare PtrSafe Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" ( _
ByVal hMonitor As LongPtr, ByRef lpmi As MONITORINFO) As LongPtr
Private Declare PtrSafe Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As LongPtr
Private Declare PtrSafe Function MonitorFromRect Lib "user32.dll" (ByRef lprc As RECT, ByVal dwFlags As Long) As LongPtr
Private Declare PtrSafe Function MonitorFromWindow Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal dwFlags As Long) As LongPtr
Private Declare PtrSafe Function EnumDisplayMonitors Lib "user32.dll" (ByVal hDC As LongPtr, ByRef lprcClip As Any, ByVal lpfnEnum As LongPtr, ByVal dwData As Long) As LongPtr
#Else
Private Declare Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" (ByVal hMonitor As Long, ByRef lpmi As MONITORINFO) As Long
Private Declare Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As Long
Private Declare Function MonitorFromRect Lib "user32.dll" (ByRef lprc As RECT, ByVal dwFlags As Long) As Long
Private Declare Function MonitorFromWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal dwFlags As Long) As Long
Private Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hDC As Long, ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
#End If
<br />Private mMonitor As Collection
<br />#If Win64 Then
Private Function MonitorEnumProc(ByVal hMonitor As LongPtr, ByVal hdcMonitor As LongPtr, lprcMonitor As RECT, ByVal dwData As Long) As Long
#Else
Private Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, lprcMonitor As RECT, ByVal dwData As Long) As Long
#End If
mMonitor.Add hMonitor
'Continue enumeration
MonitorEnumProc = 1
End Function
<br />Sub Main
<br /> Set mMonitor = New Collection
EnumDisplayMonitors ByVal 0&, ByVal 0&, AddressOf MonitorEnumProc, ByVal 0&
<br />End Sub
<br />Bist Du noch da?
<br />Dann brauchen wir nochwas um das Fenster zu verschieben.
<br />Private Enum SetWindowPosFlags
SWP_ASYNCWINDOWPOS = &H4000
SWP_DEFERERASE = &H2000
SWP_FRAMECHANGED = &H20
SWP_DRAWFRAME = SWP_FRAMECHANGED
SWP_HIDEWINDOW = &H80
SWP_NOACTIVATE = &H10
SWP_NOCOPYBITS = &H100
SWP_NOMOVE = &H2
SWP_NOOWNERZORDER = &H200
SWP_NOREDRAW = &H8
SWP_NOREPOSITION = SWP_NOOWNERZORDER
SWP_NOSENDCHANGING = &H400
SWP_NOSIZE = &H1
SWP_NOZORDER = &H4
SWP_SHOWWINDOW = &H40
End Enum

Private Enum SpecialWindowHandles
HWND_TOP = 0
HWND_BOTTOM = 1
HWND_TOPMOST = -1
HWND_NOTOPMOST = -2
End Enum

#If Win64 Then
Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
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
#End If

Private Const SW_SHOWNORMAL = 1
Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_MAXIMIZE = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9
Private Const SW_SHOWDEFAULT = 10
Private Const SW_MAX = 10
<br />Immer noch da? Okay
<br />Da wir ein Handle übergeben müssen, müssen wir das vom Fenster holen. Netterweise gibt es mittlerweile ein hWnd in dem Window-Objekt in Excel.
<br />Also beim Start musst Du warten bis das Fenster erscheint, dann liefert Dir das Window-Objekt das Handle und mit dem kannst Du dann via SetWindowPos das Fenster and die richtigen Koordianten schieben die Du vorher mit EnumDisplayMonitors ermittelt hast und jetzt ja weißt welcher Bildschirm welche Koordianten hat.
<br />So irgendwie geht das. ;-) Thema erledigt?
<br />Andreas.
<br />

Hallo.

Mittlerweile wurde die Lösung im Usenet gefunden. Michael Schwimmer hat es geschafft, den ganzen Vorgang auf einen(!) Mausklick zu reduzieren. Es blitzt zwar ganz kurz das Dialog-Fenster auf; aber die Umschaltung geht komplett ohne Benutzereingabe. Vielen
Dank, Michael.

Praktischerweise funktioniert das Ganze mit VBA. Dazu den Code am Ende des Beitrags in ein Standard-Modul kopieren – am besten natürlich in PERSONL.XLS bzw. PERSONL.XLSB. Im VBA-Editor kann man sich dann für jede gewünschte Tab-Schrittweite einen Button
anlegen und mit je einem Makro verknüpfen. Etwa so:

Sub SetTab3()

SetTab 3

End Sub

Der unten stehende Code ist eine Kopie aus dem Original-Usenet-Beitrag aus
de.comp.office-pakete.ms-office.excel vom 24.08.2010:

Message-ID: <1hu4eixt6jhe0.18svx3pdeorpi$.*** Die E-Mail-Adresse wurde aus Datenschutzgründen entfernt. ***>

http://groups.google.de/group/de.comp.office-pakete.ms-office.excel/msg/14af61cb1beb09a3

Leider nimmt Michael an diesem Forum hier (noch) nicht teil, weshalb mir nichts anders übrig bleibt, als ausnahmsweise meine eigene Antwort als solche zu markieren und ihm hier nochmals zu danken.

Peter

Option Explicit

Private Declare Function SetTimer _

Lib "user32" ( _

ByVal hwnd As Long, _

ByVal nIDEvent As Long, _

ByVal uElapse As Long, _

ByVal lpTimerFunc As Long _

) As Long

Private Declare Function KillTimer _

Lib "user32" ( _

ByVal hwnd As Long, _

ByVal nIDEvent As Long _

) As Long

Private Declare Function PostMessage _

Lib "user32" Alias "PostMessageA" ( _

ByVal hwnd As Long, _

ByVal wMsg As Long, _

ByVal wParam As Long, _

ByVal lParam As Long _

) As Long

Private Declare Function FindWindowEx _

Lib "user32.dll" Alias "FindWindowExA" ( _

ByVal hwndParent As Long, _

ByVal hwndChildAfter As Long, _

ByVal lpszClass As String, _

ByVal lpszWindow As String _

) As Long

Private Declare Function SetWindowText _

Lib "user32" Alias "SetWindowTextA" ( _

ByVal hwnd As Long, _

ByVal lpString As String) As Long

Private Const WM_KEYDOWN As Long = &H100

Private Const WM_KEYUP As Long = &H101

Private Const WM_SYSCHAR As Long = &H106

Private Const WM_LBUTTONDOWN As Long = &H201

Private Const WM_LBUTTONUP As Long = &H202

Private mlngTimerInput As Long

Private mstrTab As String



Sub test()

SetTab 3

End Sub



Public Sub SetTab(NewTab As Long)

Dim lngParam As Long

Dim lngWindow As Long

If (NewTab < 1) Or (NewTab > 20) Then Exit Sub

mstrTab = CStr(NewTab)

' IDE-Fenster finden

lngWindow = FindWindowEx(0, 0, "wndclass_desked_gsk", vbNullString)

If lngWindow = 0 Then Exit Sub

' Bit 15 + 29 setzen

' lngParam = &H8000& Or &H20000000

' Alt+X senden für Menüpunkt Extras

PostMessage lngWindow, WM_SYSCHAR, vbKeyX, lngParam

' Timer zum Entkoppeln

mlngTimerInput = SetTimer(0, 0, 100, AddressOf TimerProcOptionen)

' Menüpunkt Extras/Optionen

PostMessage lngWindow, WM_KEYDOWN, vbKeyO, 0

PostMessage lngWindow, WM_KEYUP, vbKeyO, 0

End Sub



Public Function TimerProcOptionen( _

ByVal hwnd As Long, _

ByVal Msg As Long, _

ByVal idEvent As Long, _

ByVal dwTime As Long)

Dim lngWindow As Long

Dim lngEdit As Long

Dim lngOk As Long

' Timer löschen

KillTimer 0, mlngTimerInput

' Das Optionen-Fenster suchen

lngWindow = FindWindowEx(0, 0, "#32770", "Optionen")

' Den Ok-Button suchen

lngOk = FindWindowEx(lngWindow, 0&, "Button", "Ok")

' Das Edit-Fenster suchen

lngEdit = FindWindowEx(lngWindow, 0&, "#32770", vbNullString)

lngEdit = FindWindowEx(lngEdit, 0&, "Edit", vbNullString)

' Den Tab-Wert ändern

SetWindowText lngEdit, mstrTab

' Den Ok-Button betätigen

PostMessage lngOk, WM_LBUTTONDOWN, 0, 0

PostMessage lngOk, WM_LBUTTONUP, 0, 0

End Function

Leg Dir irgendwo eine Textdatei ab, z.B. unter "d:\smiley.txt" und schreibe in die Datei das, was gedruckt werden soll.



Füge diesen Code ins Modul "DieseOutlookSitzung" ein:



Private Declare Function ShellExecute Lib "shell32.dll" Alias _

"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _

ByVal lpFile As String, ByVal lpParameters As String, _

ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub PrintSmiley(Item As Outlook.MailItem)

ShellExecute 0, "print", "d:\smiley.txt", "", "", 0

End Sub

Dann erstelle eine Regel, die bei Eingang bestimmter Emails ein script ausführt und wähle dafür "PrintSmiley". (Siehe die Pfadangabe in der Funktion, die muss natürlich Deiner gewählten Datei entsprechen.)