Een afspraak een kleur geven

[mulderwme]

Hallo allen,

Via Excel laat ik afspraken in mijn agenda zetten.
De code daarvoor heb ik een keer op het forum gevonden.

Nu wil ik bepaalde afspraken een bepaalde kleur geven.
bijv. werkoverleg: groen, naar klant: rood enz.

Wie heeft dit al eens gedaan?

Groet & bedankt,
Willem

Sub AfspraakMakenMetKleur()

    Dim myolApp As Object
    Dim myItem As Object
    Set myolApp = CreateObject("Outlook.Application")
    Set myItem = myolApp.CreateItem(olAppointmentItem)
    Dim Starttijd As String, Eindtijd As String
    
   
    With myItem
        .Application.CreateItem (1)
        
        .Subject = "Naar klant"
        .Body = "Dit is mijn afspraak"
        
' Ik probeerde iets met categoriekleur, maar dat werkt niet op deze manier
        .Categories.olCategoryColorLightRed
        
'        Starttijd = Format(Cells(ActiveCell.Row, 6), "h:mm")
'        Eindtijd = Format(Cells(ActiveCell.Row, 7), "h:mm")
'
'        .Start = Cells(ActiveCell.Row, 4) & " " & Starttijd
'        .End = Cells(ActiveCell.Row, 5) & " " & Eindtijd
        
        .ReminderSet = True
        .Location = Cells(ActiveCell.Row, 1) & " locatie: " & Cells(ActiveCell.Row, 9)

        .Save
    End With

End Sub

 

[HSV]

Kijk eens naar voorwaardelijke opmaak.

 

[VenA]

@HSV, Voorwaardelijke opmaak in Outlook? Kan dat?

 

[HSV]

Wist je dat niet?

 

[VenA]

Nee, anders had ik de vraag niet gesteld. En aangezien domme vragen niet bestaan toch maar gesteld.:d

 

[HSV]

Geen idee hoe het werkt.

https://www.howto-outlook.com/howto/color-code-with-conditional-formatting.htm