Hoe kan ik de kleur geel geven aan een agenda afspraak?

[markwat]

Sub afspraak_nieuw()
With CreateObject("Outlook.Application").CreateItem(1)
.Subject = Sheets("InvoerSheet").Range("O19").Value
.Start = DateValue("17-07-2023") + TimeValue("20:30")
.Duration = 30
.Location = Sheets("InvoerSheet").Range("G18").Value
.ReminderMinutesBeforeStart = 60
.Save
End With
End Sub

 

[edmoor]

Je kan de categorienaam meegeven:

Sub afspraak_nieuw()
    With CreateObject("Outlook.Application").CreateItem(1)
        .Subject = Sheets("InvoerSheet").Range("O19").Value
        .Start = DateValue("17-07-2023") + TimeValue("20:30")
        .Duration = 30
        .Location = Sheets("InvoerSheet").Range("G18").Value
        .ReminderMinutesBeforeStart = 60
        [COLOR="#FF0000"].Categories = "Categorie Geel"[/COLOR]
        .Save
    End With
End Sub

NB:
Plaats code in codetags.

 

[markwat]

Beste Edmoor

(Ik heb het aangepast en in codetags gezet.)

Dit had ik zo ook gevonden maar dat werkt niet bij mij.

 

[edmoor]

Dat werkt hier prima.
Je moet uiteraard wel de categorienaam correct meegeven.

 

[markwat]

Beste Edmoor,

Aha, ja die heet geen geel maar AFSPRAAK oops
Thanks!!

 

[edmoor]

Mooi.
Dan kan je je vraag ook als opgelost markeren.