Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook minimiert starten

Outlook minimiert starten
Chris
Hallo Forum,
folgendes Makro öffnet mir Outlook aus Excel heraus.
Weiss jmd. wie man Outlook per VBA minimiert öffnet? vbminimzed funktioniert leider nicht, es wird einfach in einem kleineren Fenster geöffnet.
Bei der Gelegenheit: Gibt es eine Möglichkeit Outlook immer dann zu beenden, wenn Excel beendet wird? (Bei Klick auf des Kreuz oben rechts).
Danke. Chris
Sub outapp()
Status = Shell("outlook.exe", 1)
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Outlook minimiert starten
23.07.2011 18:46:23
Tino
Hallo,
versuche es mal so.
Private Declare Function OpenProcess Lib "kernel32.dll" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" ( _
    ByVal hProcess As Long, _
    ByVal uExitCode As Long) As Long

Private Const PROCESS_TERMINATE = &H1
Private Const PROCESS_VM_READ = &H10

Private lvntTaskId As Variant

Public Sub Open_Outlook()
Dim strPath$
strPath = Application.Parent.Path
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
lvntTaskId = Shell(strPath & "OUTLOOK.EXE", vbMinimizedFocus)
End Sub

Public Sub Close_Outlook()
    Dim lngHandle As Long
    If lvntTaskId <> 0 Then
        lngHandle = OpenProcess(PROCESS_VM_READ Or PROCESS_TERMINATE, 0&, lvntTaskId)
        If lngHandle <> 0 Then Call TerminateProcess(lngHandle, 0&)
    End If
End Sub
Gruß Tino
Anzeige

56 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige