Outlook formular

Som beskrevet i http://www.eksperten.dk/spm/32464
er jeg nu kommet lidt længere. Jeg har fået fat i outlook mappen.

Men jeg kunne godt tænke mig at få fat i et felt inde i formularen, der ligger i mappen.

Her er hvad jeg prøver:
    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!!!\" \'Den ryger herind og vender
          Exit For
        End If
    Next
   
    \'så har du fat i folderen
    MsgBox fold.Items.Count \'Skriver 2
    Set XXX = fold.Items(1).UserProperties(\"Navn på kursusdeltager\").Value \'fejl

Hvis jeg i stedet skriver fold.Items(1).display åbner formularen, så jeg har fat i formularen.

hmmm

Ingen respons