Subject: Activate Outlook and open a specific mailfolder
Posted By: Mats Post Date: 1/24/2006 8:44:31 AM
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

Go to topic 39099

Return to index page 387
Return to index page 386
Return to index page 385
Return to index page 384
Return to index page 383
Return to index page 382
Return to index page 381
Return to index page 380
Return to index page 379
Return to index page 378