Recurrence Type of yearly evaluates to daily

[jboisa]

I am writing VBA code to gather birthdays of clients from excel, and create birthday calendar appointment items in outlook, with a recurrence pattern of yearly. The code below works, with exception of creating an appointment item with a recurrence pattern of daily, instead of yearly. Stepping through each line, I noticed that the code changes the recurrence pattern from weekly to daily, rather than yearly, as expected. I am running Excel and Outlook 2016. Here is the code:

Sub Birthday2()


Dim objOutlook As Object
Dim objnSpace As Object
Dim objFolder As Object
Dim myOccurencePattern As Object


Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")

    Set myApt = objOutlook.CreateItem(1)
         myApt.Subject = "Client Birthday"
         myApt.Body = #1/19/2020#
         myApt.Start = #1/19/2020#
         myApt.AllDayEvent = True
         myApt.ReminderMinutesBeforeStart = 10080
         
     Set myOccurencePattern = myApt.GetRecurrencePattern
    
        
         myOccurencePattern.RecurrenceType = olRecursYearly
         myOccurencePattern.PatternStartDate = #1/19/2020#
         myOccurencePattern.PatternEndDate = #1/19/2021#
         
         
      myApt.Save
         
End Sub

[Paul_Hossler]

Since this was primarily an Outlook question, I moved it to the Outlook forum

You'll probably get more attention in this forum

[jboisa]

Thank You.

[gmayor]

You can't use Outlook specific commands when processing using late binding to Outlook from Excel thus olRecursYearly is ignored. Use instead the numeric equivalent (5).

Sub Birthday2()


Dim objOutlook As Object
Dim objnSpace As Object
Dim objFolder As Object
Dim myApt As Object
Dim myOccurencePattern As Object


    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")

    Set myApt = objOutlook.CreateItem(1)
    myApt.Subject = "Client Birthday"
    myApt.Body = #1/19/2020#
    myApt.Start = #1/19/2020#
    myApt.AllDayEvent = True
    myApt.ReminderMinutesBeforeStart = 10080

    Set myOccurencePattern = myApt.GetRecurrencePattern


    myOccurencePattern.RecurrenceType = 5
    myOccurencePattern.PatternStartDate = #1/19/2020#
    myOccurencePattern.PatternEndDate = #1/19/2021#


    myApt.Save

    Set objOutlook = Nothing
    Set objnSpace = Nothing
    Set myOccurencePattern = Nothing
    Set myApt = Nothing
End Sub

[jboisa]

Thanks so much. I need to learn more about early and late binding. Thanks again.