vba GetDefaultFolder outlookfolder operation

\"_System Afd Tasks\" er ikke en DefaultFolder.
Jeg ville gøre det på følgende måde:

dim myFolders as Outlook.folders
dim myFolder as outlook.mapifolder

set myfolders = (namespace).folders(\"Personal Folders\").folders \' Erstat \"Personal Folders\" med den mappe der indeholder \"_System Afd Tasks\"

for each myfolder in myfolders
  if myfolder.name = \"_System Afd Tasks\" then
    exit for
  end if
next
\' så har du fat i folderen
msgbox myfolder.items.count \' f.eks.

kaffe

Tak for svaret, jeg fik det til at virke med denne her kode, jeg kunne ikke helt cut/paste din kode ind.
Public Sub testpub()
Dim myFoldere As Outlook.MAPIFolder
Set myOlApp = CreateObject(\"Outlook.Application\")
Set myNameSpace = myOlApp.GetNamespace(\"MAPI\")
Set myFolder = _
    myNameSpace.Folders(\"Personal Folders\")

    For Each Fold In myFolder.Folders
        If Fold.NAME = \"1\" Then
          Exit For
        End If
    Next
\' så har du fat i folderen
MsgBox Fold.Items.Count \' f.eks.



Exit Sub

MEN mit problem er nu at den folder jeg skal fange er et niveau lavere end først antaget.
altså folderen(en tasks)
_Tasks System Afd\" ligger under følgende sti om man så kan sige
public folders ->All Public folders->_Tasks System Afd

og der er jeg faktisk stadigvæk lidt ude at skide!

hvad gør jeg?

Har selv løst det sidste!

tak for svaret, det viste vejen

Hej shjdsi
Må jeg ikke se hvordan du løste problemet da jeg sidder med det samme problem

med venlig hilsen
Skovborg

Nu er jeg kommet til samme problem :-)

Kan det lade sig gøre at se koden ??

Jeg har desværre ikke koden længere da jeg har skiftet arbejde, men jeg kan huske noget med at man blot skulle bygge hirakiet yderligere op noget i retning med

Public Sub testpub()
Dim myFoldere As Outlook.MAPIFolder
Set myOlApp = CreateObject(\"Outlook.Application\")
Set myNameSpace = myOlApp.GetNamespace(\"MAPI\")
Set myFolder = _
    myNameSpace.Folders(\"Personal Folders\")
Set myUnderFolder=myFolder(\"underfolder\")
    For Each Fold In myUnderFolder.Folders
        If Fold.NAME = \"1\" Then
          Exit For
        End If
    Next
\' så har du fat i folderen
MsgBox Fold.Items.Count \' f.eks.


min underfolder skulle gerne være i objectet myUnderFolder

og så fremdeles.

Gi lige et praj hvis det virker

Tak for svaret.

Jeg har siddet og rodet lidt med det og det her ser ud til at virke:

    Dim myFoldere As Outlook.MAPIFolder
    Set myOlApp = CreateObject(\"Outlook.Application\")
    Set myNameSpace = myOlApp.GetNamespace(\"MAPI\")
    Set myFolder = myNameSpace.Folders(\"Offentlige mapper\").Folders(\"Alle offentlige mapper\")

    For Each fold In myFolder.Folders
        If fold.Name = \"Kursusevaluering\" Then
          MsgBox \"Fundet!!!\"
          Exit For
        End If
    Next
   
    \'så har du fat i folderen
    MsgBox fold.Items.Count

Den mappe jeg skulle have fat i var:
offentlige mapper -> alle offentlige mapper -> Kursusevaluering

Fint at høre så er vi jo alle glade :-)

Jeg har oprettet et spørgsmål http://www.eksperten.dk/spm/98279

hvor jeg har et problem af samme karat, hvis du er mesteren :-)