vanuit Excel outlooktaak maken, gebruikersvelden niet zichtbaar

[Dal]

Ik heb al vaak gebruik gemaakt van jullie antwoorden, maar dit is de eerste keer dat ik een vraag stel.

ik wil vanuit Excel taken in Outlook aanmaken. Dat gaat prima. Ik heb alleen een zelf-gedefinieerde kolom in Outlook, waar ik ook een waarde aan wil geven. Deze waarde is echter niet zichtbaar in de takenlijst in Outlook (de betreffende kolom is natuurlijk wel zichtbaar). en het gekke is dat ik in de takenlijst wel de waarde kan wijzigen, maar dat deze niet zichtbaar is. Heeft iemand een idee. ik gebruik deze code.

Sub TakenNaarOutlook()

   Dim oapl As Outlook.Application
   Dim ons As Outlook.Namespace
   Dim myfol As Outlook.Folder
   Dim mytask As Outlook.TaskItem   

    Set oapl = New Outlook.Application
    Set ons = oapl.GetNamespace("MAPI")
    Set myfol = ons.GetDefaultFolder(olFolderTasks)
      
    Set ws = wsTaken
    
    'aantal rijen in de tabel bepalen
    i = ws.Range("Starttabel").CurrentRegion.Rows.Count + 6  'omdat de koprij in row 7 staat moet je alles ervoor erbij optellen

'de tabel doorlopen
    For rij = 8 To i
        Set mytask = oapl.CreateItem(olTaskItem)

         With mytask
            'taakonderwerp
            .Subject = ws.Cells(rij, 1)
            'de standaard outlook velden geef ik verder niet weer
 
            'het probleem zit denk ik in dit stukje code
            .UserProperties.Add("NR", olNumber).Value = ws.Cells(rij,2)
            .Close (olSave)
        End With
    Next rij

alvast heel erg bedankt, Dinie

 

[Dal]

Ik ben eruit: het moest zijn nr met kleine letters en niet NR met hoofdletters.