Hello,

I'm using OL2003, AC97, WinXP

I can't close Outllok.exe.
To make a copy of the Outlook.pst I'm using this code.
But after this code outlook.exe is still running.
How can I close it?

-------------------------------------------------------------------------------
Dim myolApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder

Set myolApp = CreateObject("Outlook.Application")
Set myNameSpace = myolApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)

getPSTPath = GetPathFromStoreID(myFolder.StoreID)

routine_exit:
myolApp.Quit
If Not myFolder Is Nothing Then Set myFolder = Nothing
If Not myNameSpace Is Nothing Then Set myNameSpace = Nothing
If Not myolApp Is Nothing Then Set myolApp = Nothing
------------------------------------------------------------------------------------


Thanks a lot
best regards
Werner

Archived from group: microsoft>public>office>developer>outlook>vba