• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vanuit Excel outlooktaak maken, gebruikersvelden niet zichtbaar

  • Onderwerp starter Onderwerp starter Dal
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Dal

Nieuwe gebruiker
Lid geworden
22 nov 2020
Berichten
2
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.

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
 
Ik ben eruit: het moest zijn nr met kleine letters en niet NR met hoofdletters.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan