а вот что-то я не помню такой статьи .... в форуме обсуждалось... можно ссылочку увидеть...

это сообщение перемещено в архив оно от 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

Re: Работа с календарём MS Outlook Я то же статью не помню, но у себя делаю так.

Option Compare Database
Option Explicit


Private myolApp As Outlook.Application
Private myNamespace As Outlook.Namespace
Private myFolderTasks As Outlook.Items
Private myMAPIFolderTasks As Outlook.MAPIFolder
Private myItem As Object

Private blnFlag As Boolean

Private Sub Form_Close()
Set myFolderTasks = Nothing
Set myNamespace = Nothing
Set myolApp = Nothing
End Sub

Private Sub cmdClose_Click()
DoCmd.Close
End Sub

Private Sub Form_Open(Cancel As Integer)
Set myolApp = CreateObject("Outlook.Application")

If Me.OpenArgs <> "" Then
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolderTasks = myNamespace.GetDefaultFolder(olFolderTasks).Items
For Each myItem In myFolderTasks
If (myItem.Class = olTask) Then
If StrComp(myItem.EntryID, Me.OpenArgs) = 0 Then Exit For
End If
Next
With myItem
On Error Resume Next
txtMessage = .Body
If Err.Number <> 0 Then Cancel = True: Err.Clear: On Error GoTo 0: Exit Sub

txtHeader = .Subject
txtDate = FormatDateTime(.ReminderTime, 2)
txtTime = FormatDateTime(.ReminderTime, 4)
End With
End If
End Sub

Private Sub cmdSave_Click()
Если форму открыли не для редакции
If Nz(Me.OpenArgs, "") = "" Then Set myItem = myolApp.CreateItem(olTaskItem)

With myItem
.Subject = txtHeader
.Body = txtMessage
.ReminderSet = True
.ReminderPlaySound = True
.ReminderSoundFile = "C:WindowsMediaDing.wav"
.ReminderTime = DateValue(txtDate) + TimeValue(txtTime)
.Save
End With
On Error Resume Next
Forms("frm_sys_MagazineReminder").Fill
End Sub

вот что нашел в форуме по Outlook http://www.hiprog.com/forum/forum.asp?action=show&id=2&messid=111413
http://www.hiprog.com/forum/forum.asp?action=show&id=2&messid=104021
http://www.hiprog.com/forum/forum.asp?action=show&id=2&messid=104048