VBAなんでも質問スレ Part3

With Appointmentitem
.Subject = "Olympic"
.Location = "Undecieded"
.Body = "Undecieded"
With .GetRecurrencePattern
.RecurrenceType = olRecursYearly
.PatternStartDate = "2000/08/01"
.Interval = 48 '48か月
.MonthOfYear = 8 '7~9月らしい
.NoEndDate = TRUE '永遠に続くものとする
End With
End With

こんな感じ？