Closing Outlook VBE from Excel

I posted this in the Excel forum because I'm automating from Excel, however,
I thought I'd try here as well.

In Excel I instatiate outlook using the following.

On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
' If outlook was not open then instantiate outlook
If objOutlook Is Nothing Then
Set objOutlook = CreateObject("Outlook.Application")
'HandleOutlook = True
End If

In Outlook in the Application_Startup() Event I then open the VBE so that I
can call an outlook macro from excel (without any popups) using the following

Set objNameSpace = Application.GetNamespace("MAPI")
Set objExplorer = Application.Explorers.Add(objNameSpace.Folders(1),
olFolderDisplayFolderOnly)
objExplorer.CommandBars.FindControl(, 1695).Execute
objExplorer.Close

My problem is that I cannot figure out how to close Outlook's VBE from Excel

I'd like to use the GetObject method to declare the VBE app and then use the
..Quit method, but I have been unable to locate the appname for Outlooks VBE
to refernce in GetObject([path] [,appname]). Does anyone know the appname
and/or a better way to close Outlook's VBE?

The better way is to not have to open the VBE at all. If you place whatever
macros you want to call in the ThisOutlookSession class module, declared as
Public, you can call them directly from your code. If you have a macro
"Foobar" that's public you can then call it from your code as
objOutlook.Foobar().

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Stephen Lloyd" <StephenLloyd DeleteThis @discussions.microsoft.com> wrote in message
news:66AC230E-C783-4A91-813F-7BE811458B84@microsoft.com...
>I posted this in the Excel forum because I'm automating from Excel,
>however,
> I thought I'd try here as well.
>
> In Excel I instatiate outlook using the following.
>
> On Error Resume Next
> Set objOutlook = GetObject(, "Outlook.Application")
> ' If outlook was not open then instantiate outlook
> If objOutlook Is Nothing Then
> Set objOutlook = CreateObject("Outlook.Application")
> 'HandleOutlook = True
> End If
>
> In Outlook in the Application_Startup() Event I then open the VBE so that
> I
> can call an outlook macro from excel (without any popups) using the
> following
>
> Set objNameSpace = Application.GetNamespace("MAPI")
> Set objExplorer = Application.Explorers.Add(objNameSpace.Folders(1),
> olFolderDisplayFolderOnly)
> objExplorer.CommandBars.FindControl(, 1695).Execute
> objExplorer.Close
>
> My problem is that I cannot figure out how to close Outlook's VBE from
> Excel
>
> I'd like to use the GetObject method to declare the VBE app and then use
> the
> .Quit method, but I have been unable to locate the appname for Outlooks
> VBE
> to refernce in GetObject([path] [,appname]). Does anyone know the appname
> and/or a better way to close Outlook's VBE?
>