Meeting Invites setup through VBA form Excel to Outlook

[Ammi1989]

Hi, Below is the codes I am using to set meeting invite for particular date. its working fine however I need a code where I can set meeting invites twice or thrice in a month where date is variable

Please advice if any one know how to do it. also it would be great if you know how to set Skype meeting.



Sub CreateAppt()
Dim myItem, myoutlk As Object
''Dim askype As tm1p

Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Outlook.Recipient
Set myoutlk = CreateObject("Outlook.application")
Set myItem = myoutlk.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Strategy Meeting"
myItem.Location = "TBD"
myItem.Start = #1/30/2018 1:30:00 PM# 'Question how to add mulitple dates if my appoinment twice in month
myItem.Duration = 90
Set myRequiredAttendee = myItem.Recipients.Add("Amit Nagar")
myRequiredAttendee.Type = olRequired
Set mys = myItem.skype.meeting
'Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy")
''myOptionalAttendee.Type = olOptional
Set myResourceAttendee = myItem.Recipients.Add("Conf Rm All Stars")
myResourceAttendee.Type = olResource
myItem.Display
''myItem.Send
End Sub