Following macro changes (it does not set reminder if it is not set already) reminders for birthday/anniversary events to configured number of hours before event (because by default it is 15 minutes before midnight and one does not want to be woken by Android at that time). This macro is useful for situation when birthday event is not synchronized with reminder time (which can happen rarely on specific conditions).
License: GPL
Sub SetSpecEventReminders()
Dim ns As NameSpace
Dim f As Folder
Dim t As AppointmentItem
Dim rp As RecurrencePattern
Dim istr As String
Dim remtime As Integer
Dim n As Integer
Set ns = Application.GetNamespace("MAPI")
Set f = ns.GetDefaultFolder(olFolderCalendar)
istr = InputBox("Number of hours before event")
If Not IsNumeric(istr) Then
MsgBox "Input is incorrect, macro will not continue."
Exit Sub
End If
remtime = CInt(istr) * 60
n = 0
For Each i In f.Items
If i.Class = olAppointment Then
Set t = i
If t.IsRecurring And t.ReminderSet And t.AllDayEvent Then
Set rp = t.GetRecurrencePattern()
If rp.RecurrenceType = olRecursYearly And rp.Interval = 12 And rp.NoEndDate Then
If (t.ReminderMinutesBeforeStart <> remtime) Then
t.ReminderMinutesBeforeStart = remtime
t.Save
n = n + 1
End If
End If
End If
End If
Next
MsgBox "Changed " & n & IIf(n = 1, " event", " events")
End Sub