Friedemann Kunze wrote:
[Quoted Text] > Dear Members,
> i've the problem with outlook 2003, that it does not terminate correctly if
> the user is closing outlook normally.
> The reason for this behaviour is, I get the outlook application object with
> GetObject("Outlook.Application") and I try to show a specific folder from
> outlook like calendar or tasks. After I call the method Folder->Dispplay I
> release all used objects. But if then the user is closing outlook normally,
> it switches into the windows systray-menue. There it's impossible for the
> user to work with outlook - it's not possible to open it. The only way to
> close outlook then, is to kill the process over the taskmanager.
> I was able to limit the problem: The cause is to show a folder to the user.
> Instead of using the method "Display",I've tried to use "Activate". But
> here
> is the same problem as above.
>
> Following, you can take a look at my sample script with which the
> problem can
> be reproduced:
> Option Explicit
> Dim oOutlook
> On Error Resume Next
> Set oOutlook = GetObject(,"Outlook.Application")
> If (Err.Number <> 0) Then
> Set oOutlook = Nothing
> WScript.Quit
> End If
> On Error GoTo 0
> Dim oNameSpace
> Set oNameSpace = oOutlook.GetNameSpace("MAPI")
> Dim oFolder
> Set oFolder = oNameSpace.GetDefaultFolder(9)
> oFolder.Display
> Set oFolder = Nothing
> Set oNameSpace = Nothing
> Set oOutlook = Nothing
>
> I thank you for your help.
>
> Additional information:
> The problem is not reprocueable with outlook 2002 and sample script above.
Dear members,
there is an workaround in group: m.p.o.program_vba
thread-subject: Outlook2003 -> OLE (MAPFolder->Display())
|