Hello

I have this script. It opens Outlook and active/open my Inbox

Function Open_OutLook()

   Dim oOutlook As Object
   Dim oNameSpace As Object
   Dim oInbox As Object

   Set oOutlook = CreateObject("Outlook.Application")

   Set oNameSpace = oOutlook.GetNamespace("MAPI")

   Set oInbox = oNameSpace.Folders(1)

   Set oInbox = oInbox.Folders("Inbox")

   oInbox.Display

End Function

Now I have 2 questions:
1) If my Outlook is open I just want to activate it instead of opening another copy, how do I do that ?
2) If I want to open a subfolder to Inbox, how do I do that ?

Thanks


/Mats