Am 29 Mar 2006 13:19:57 -0800 schrieb Bernie:

Bernie, the solution is not as simple as you might think.

You need to use some Win32 APIs to bring the windows into the foreground and
back again. While the Excel Application object exposes its window handle
Outlook doesn´t, so you need to find it yourself.

This sample (code in Excel) works if not Word is the e-mail editor:

Private Declare Function SetForegroundWindowA Lib "USER32" Alias
"SetForegroundWindow" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" _
 (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Function GetInspectorHandle(ByVal sCaption As String) As Long
 GetInspectorHandle = FindWindow("rctrl_renwnd32", sCaption)
End Function

Sub test()
 Dim app As Object
 Dim mail As Object
 Dim hnd As Long
 
 Set app = GetObject(, "outlook.application")
 Set mail = app.createitem(0)
 mail.display
 
 ' get mail window´s handle
 hnd = GetInspectorHandle(mail.GetInspector.Caption)
 
 ' bring excel into foreground
 SetForegroundWindowA Application.hwnd
 
 MsgBox "hallo"
 
 ' bring mail window into foreground again
 SetForegroundWindowA hnd
End Sub