Sørme ikke om jeg fandt ud af det.
Set myOlApp.ActiveExplorer.CurrentFolder = myFolder
Allan
"Allan Jensen" <ahj@bminet.dk> skrev i en meddelelse
news:3bc2ce0d$0$217$edfadb0f@dspool01.news.tele.dk...
> Hej Kristian
>
> Tak for svaret, men hvis jeg ændrer koden til Set myOlApp =
> GetObject("Outlook.Application") får jeg en Automation error. Ændrer jeg
> koden til Set myOlApp = GetObject(, "Outlook.Application") åbnes en ny
> outlook alligevel.
>
> Allan
> '
> "Kristian Sæbø" <kristian.sabo@adcomdata.no> skrev i en meddelelse
> news:HIyw7.13128$tu6.323118@news1.oke.nextra.no...
> > Hei!!
> >
> > Mener du da bruker:
> >
> > Set myOlApp = GetObject("Outlook.Application")
> >
> > Du vil få feil Outlook ikke er åpen...
> >
> >
> > Mvh Kristian
> >
> > "Allan" <ahj@bminet.dk> skrev i melding
> > news:a9d9a699.0110080015.638560a5@posting.google.com...
> > > På min maskine er outlook altid åben.
> > > Når jeg kører nedenstående kode åbnes der en ny outlook og folderen
> Public
> > > Folders vises.
> > > Er der nogen der ved, hvordan jeg får folderen til at blive vist i min
> > > allerede åbne outlook?
> > >
> > > Dim myOlApp As Outlook.Application
> > > Dim myNameSpace As Outlook.NameSpace
> > > Dim myFolder As MAPIFolder
> > > Dim myFolders As Outlook.Folders
> > >
> > > Set myOlApp = CreateObject("Outlook.Application")
> > > Set myNameSpace = myOlApp.GetNamespace("MAPI")
> > > Set myFolders = myNameSpace.Folders
> > > Set myFolder = myFolders.Item("Public Folders")
> > >
> > > myFolder.Display
> > >
> > > Allan
> >
> >
>
>