Habe in Eknoris Schatzkiste folgendes Script gefunden was bei mir auch funktioniert (bzw. sich gleich verhält wie die Masken Eigenschaft).
Ich selber habe ja keine Ahnung von Script - vermutlich kann uns aber der Profis hier sagen wie man in das untenstehende Script den Focus auf Winword in den Vordergrund schaltet.
Gruss
Martin
PS: Eigentlich sind wir ja hier im falschen Forum - ist ja eigentlich Entwicklung...
GLOBAL DECLARATION
Declare Function ShellExecuteAny Lib "shell32.dll" Alias "ShellExecuteA" _
(Byval hwnd As Long, Byval lpOperation As String, Byval lpFile As String, _
Byval lpParameters As Any, Byval lpDirectory As Any, Byval nShowCmd As Long) _
As Long
Declare Function GetDesktopWindow& Lib "user32" ()
Const SW_SHOWNORMAL = 10
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim session As New NotesSession
Dim db As NotesDatabase
Set uidoc = Source
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( session.CommonUserName )
If entry Is Nothing Then
Set entry = acl.GetEntry( session.UserName )
End If
If entry.IsRoleEnabled( "[Autover]" ) Then
If Source.InPreviewPane Or Source.EditMode Then Exit Sub
Dim Ret As Long
Set note = uidoc.DOcument
Set rtitem = note.getfirstItem( "Body" )
If rtitem Is Nothing Then
Exit Sub
End If
objarr = rtitem.EmbeddedObjects
tempdir = "c:\temp"
If Isarray(objarr) Then
Forall o In objarr
file = o.Source
o.ExtractFile( tempdir & "\" & file )
FileToOpen = tempdir & "\" & file
Ret = ShellExecuteAny(GetDesktopWindow, "open", FileToOpen, Byval 0&, Byval 0&, SW_SHOWNORMAL)
End Forall
End If
End If
End Sub
----------------------------
Und hier habe ich noch eine Beschreibung gefunden - wenn ich die richtig vestehe dann sollte es eigentlich funktionieren...
cr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Print", DocName, "", "", SW_SHOWNORMAL)
...
Scr_hDC = Handle für das Fenster
"Print" = die Anweisung, was zu tun ist (nämlich Drucken)... und ach was, schau dir mal den Auszug aus einer API Help an, was das im Einzelnen für Parameter sind...:
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
· hwnd
Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.
· lpOperation
Pointer to a null-terminated string that specifies the operation to perform. The following operation strings are valid:
“open”
The function opens the file specified by lpFile. The file can be an executable file or a document file. The file can be a folder to open.
“print”
The function prints the file specified by lpFile. The file should be a document file. If the file is an executable file, the function opens the file, as if “open” had been specified.
“explore”
The function explores the folder specified by lpFile.
The lpOperation parameter can be NULL. In that case, the function opens the file specified by lpFile.
· lpFile
Pointer to a null-terminated string that specifies the file to open or print or the folder to open or explore. The function can open an executable file or a document file. The function can print a document file.
· lpParameters
If lpFile specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies parameters to be passed to the application.
If lpFile specifies a document file, lpParameters should be NULL.
· lpDirectory
Pointer to a null-terminated string that specifies the default directory.
· nShowCmd
If lpFile specifies an executable file, nShowCmd specifies how the application is to be shown when it is opened. This parameter can be one of the following values:
SW_HIDE
Hides the window and activates another window.
SW_MAXIMIZE
Maximizes the specified window.
SW_MINIMIZE
Minimizes the specified window and activates the next top-level window in the Z order.
SW_RESTORE
Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW
Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT
Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED
Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED
Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE
Displays the window as a minimized window. The active window remains active.
SW_SHOWNA
Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE
Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL
Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
If lpFile specifies a document file, nShowCmd should be zero
