Outlook macro converteren outlook addin

[Aapje!]

Beste,

We hebben hier een macro geschreven die ervoor zorgt dat er categorieën toegekend worden aan gebruikers in de agenda die wij hier voeren.

Nu is het zo dat sinds een laatste update niet alle macro's meer goed geladen worden.

Het gaat om de volgende code:

Dim WithEvents Inspectors As Outlook.Inspectors
Dim WithEvents AgendaItem As Outlook.AppointmentItem

Private Sub Application_Startup()

Set Inspectors = Outlook.Inspectors
End Sub

Private Sub inspectors_NewInspector(ByVal Inspector As Inspector)

If Inspector.CurrentItem.MessageClass = "IPM.Appointment" Then
Set AgendaItem = Inspector.CurrentItem
End If

End Sub

Private Sub AgendaItem_close(cancel As Boolean)
On Error GoTo probleem
If InStr(UCase(AgendaItem.Subject), "NAAM1") Then
AgendaItem.Categories = "NAAM1"
End If
If InStr(UCase(AgendaItem.Subject), "NAAM2") Then
AgendaItem.Categories = "NAAM2"
End If
If InStr(UCase(AgendaItem.Subject), "NAAM3") Then
AgendaItem.Categories = "NAAM3"
End If
If InStr(UCase(AgendaItem.Subject), "NAAM4") Then
AgendaItem.Categories = "NAAM4"
End If
If InStr(UCase(AgendaItem.Subject), "NAAM5") Then
AgendaItem.Categories = "NAAM5"
End If
If InStr(UCase(AgendaItem.Subject), "NAAM6") Then
AgendaItem.Categories = "NAAM6"
End If

AgendaItem.Save
probleem:
End Sub

Deze zouden we graag willen hebben als outlook addin.. is dit makkelijk te maken / wijzigen?

Namen wegens AVG niet weergegeven en aangepast met NAAM1, 2 ,3 ,4 ,5 en 6.