Close Outlook command line 2

[rgbanse]

Good Day
I can use the following to open Outlook:

Function OpenOutlook()
Call Shell("C:\Program Files\Office2K\Office\Outlook.exe&quot
End Function

Is there a command line for closing Outlook?
thx
RGB

 

[ide]

close outlook client,
part1:
Public Sub close_Outlook()
Dim myOlApp As Object
Set myOlApp = GetObject(, "Outlook.application&quot
myOlApp.Quit
End Sub

ide

 

[ide]

part2:
instead of using shell function use

Sub RunAndCloseOutlookApp()
Dim myOlApp As Object
Dim myNameSpace As Object

'running new outlook app.
Set myOlApp = CreateObject("Outlook.Application&quot
Set myNameSpace = myOlApp.GetNamespace("MAPI&quot
myNameSpace.GetDefaultFolder(5).Display

'close active explorer:
myOlApp.ActiveExplorer.Close

'or to close all client:
'myOlApp.Quit
End Sub
ide

 

[jonscott8]

Because Outlook 2K is a single-instance application, ide's first post is the proper way to shutdown Outlook.

AFA not using the Shell function to start Outlook, that depends. If he wants Outlook to remain open outside his original function, he'll need to use the Shell function (or one of it's variations) or use a variable with scope beyond or above that function. Jon Hawkins