nachfolgenden Code fand ich in einem VB-Forum. (Die Suche hier ergab nichts)
Bei mir in XL 2000 ist der Fenstertitel von Outlook wie im Code stehend.
Aber er soll auf Fremd-PC funtionieren und da weiß man ja nicht welchen mailordner grad
jmd. ausgewählt hat.
Achja, der Code funktioniert überhaupt nicht, er läuft durch aber nichts tut sich :-(
Es soll eine XL-Mappe werden, die im Open-Ereignis diesen Code ausführt und sich dann
unten im Code selbst mit .Close beendet.
Wichtig ist dabei daß .close erst ausgeführt wird wenn Outlook auch "weg" ist.
Bitte meine Version beachten, hEditor ist wohl diese hwnd-Zahl und in XL 2000 kann man die nicht so
ermitteln wie in XL 2007 o.ä.
Danke ^ Gruß
Reinhard
Option Explicit
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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As _
String, ByVal lpWindowName As String) As Long
Private Const WM_QUIT = &H12
Sub Command2_Click()
Dim hEditor As Long
' Fensterhandle des Editors suchen
hEditor = FindWindow("Posteingang - Microsoft Outlook", vbNullString)
If hEditor 0 Then
' Editor beenden
PostMessage hEditor, WM_QUIT, 0, ByVal 0&
End If
End Sub