How to close Outlook programmaticaly?

[kerneltrap]

Имеем следующий код
On Error Resume Next
Dim myOlApp As Outlook.Application
Set myOlApp = New Outlook.Application
On Error GoTo 0
If myOlApp Is Nothing Then
Set myOlApp = CreateObject("Outlook.Application")
'Set myOlApp = GetObject(, "Outlook.Application") тоже не работает
End If

Dim myNameSpace As Outlook.NameSpace
Set myNameSpace = myOlApp.GetNamespace("MAPI")

Dim myFolder As Outlook.MAPIFolder
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
For i = 1 To myFolder.Items.Count
'какие-то действия
Next

Set myFolder = Nothing
Set myNameSpace = Nothing
myOlApp.Quit
Set myOlApp = Nothing


Проблема в том что аутлук не выгружается и при повторном запуске невозможно ни создать новый экземпляр аутлука ни прицепиться к существующему.

[MEMBER]

Делай Set myOlApp = Nothing только после того, как убедишься, что myOlApp.Quit
ИМХО

[kerneltrap]

Делай Set myOlApp = Nothing только после того, как убедишься, что myOlApp.Quit
ИМХО

Как в этом убедиться?

[Winged]

Столкнулся с аналогичной проблеммой... что после 3го выполнения функции с каждой следующей оутлуки начинают оставатся в памяти... добавление пауз помогает, но не убирает проблеммы...
Как осуществить проверку?
Или как отстрелить уже "умерший" - тоесть открытый и забытый процесс... заодним как определить что он забытый...
Одни вопросы

[Twister]

Или как отстрелить уже "умерший" - тоесть открытый и забытый процесс... заодним как определить что он забытый...

Для того чтобы это определить, необходимо сначало разобраться с одной деталью - а что по твоему есть забытый процесс? И кто о нем забыл?

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=23842

[Winged]

http://bbs.vbstreets.ru/viewtopic.php?t=23842

Я конечно сегодня попробую вечером...
но вот интересный вопрос... почему эта программа снесколько лет исправно работала с MS Windows 2000 and MS Outlook 97
И пересталаа работать с переходом на MS Windows XP and MS Office XP
Вот в чем главная загадка...

[Winged]

Или как отстрелить уже "умерший" - тоесть открытый и забытый процесс... заодним как определить что он забытый...

Для того чтобы это определить, необходимо сначало разобраться с одной деталью - а что по твоему есть забытый процесс? И кто о нем забыл?

Вот это тоже хороший вопрос... поскольку если я сижу с таскменеджером и отстреливаю оутлуки на 2 раньше раотающего в данный момент - то у меня весь тест на 100 сообщений проходит исправно... а если не отстреливаю до доходит до 15-17 в памяти после чего "The remote server machine does not exist or is unavailable "

[GSerg]

Угу.
Ссылку читай.