從Excel中添加Outlook 2010中的重現事件

Question

我有我的朋友出生在excel中的姓名和dob列。我必須在每天的提醒中引入我的展望日曆中的生日事件。

我試着用出生日期作爲開始日期和剩餘日期。無法設置重複。

任何人都可以幫助我實現從Excel到Outlook的重現事件？

Answer 1

我不知道你的代碼是怎麼樣的，但是我在MSDN上找到了a sample這對我很有用（Outlook 2010）。下面的代碼創建一個新的約會，並將重複設置爲每兩年：

Option Explicit 

Sub CreateTestAppt() 
    Dim oAppt As AppointmentItem 
    Dim oPattern As RecurrencePattern 

    Set oAppt = Application.CreateItem(olAppointmentItem) 
    Set oPattern = oAppt.GetRecurrencePattern 
    With oPattern 
     ' Appointment occurs every n-th year (with n indicated by the Interval property) 
     .RecurrenceType = olRecursYearNth 
     ' Appointment recurs every 2 years (per a RecurrenceType of olRecursYearNth) 
     .Interval = 2 
    End With 
    oAppt.Subject = "Test appointment" 
    oAppt.Save 
    oAppt.Display 

    Set oPattern = Nothing 
    Set oAppt = Nothing 
End Sub