VBA to make appointment reoccurring

[Grizlore]

Hi all

The code below is to create a meeting/appointment from a Userform and then email the details via Outlook

Everything works fine, however I can't find how to make the meeting reoccurring (or examples of)

Could anyone give me a pointer please?

Thanks

Private Sub CommandButton5_Click()

Dim objOL   'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Dim SecurityTeam As String
Dim MeetingDetail As String
Dim site As String
Site = UserForm1.ComboBox1
 Const olAppointmentItem = 1
 Const olMeeting = 1
Team= UserForm1.ComboBox2
 
    Set objOL = CreateObject("Outlook.Application")
    Set objAppt = objOL.CreateItem(olAppointmentItem)
    With objAppt
        .Subject = "My Test Appointment"
        .Start = Now + 1
        .End = DateAdd("n", 5, .Start)
        
.MeetingStatus = olMeeting
 .RequiredAttendees = ""
 .optionalAttendees = ""
.Resources = Team
.Location = "locallllll"
        .display
    End With
    
    Set objAppt = Nothing
    Set objOL = Nothing
End Sub

Any help would be greatly appreciated