ник: osmor
это сообщение перемещено в архив оно от 17.01.2005 г.
Sub CreateTaskOilChange()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myPattern As Outlook.RecurrencePattern
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)
Set myPattern = myItem.GetRecurrencePattern
myPattern.RecurrenceType = olRecursMonthly
myPattern.Regenerate = True
myPattern.Interval = 3
myItem.Subject = "Oil Change"
myItem.Save
myItem.Display
End Sub
и первоисточник
http://support.microsoft.com/default.aspx?scid=kb;en-us;209932