Macro to set remindertime of contact to tomorrow 9:00

[gmayor]

You will need a different set of codes for that - essentially similar but not so easy to do in one macro that is easy to follow.

Sub TomorrowAtNine()    
    SetReminderTomorrowOrNextDay 1, False
End Sub


Sub TomorrowAtTwo()
    SetReminderTomorrowOrNextDay 1, True
End Sub


Sub DayAfterAtNine()
    SetReminderTomorrowOrNextDay 2, False
End Sub


Sub DayAfterAtTwo()
    SetReminderTomorrowOrNextDay 2, True
End Sub




Public Sub SetReminderTomorrowOrNextDay(iDays As Integer, _
                                        bPM As Boolean)




'Set lngDue as follows from the calling macro. The default is 0
'0 = olMarkToday
'1 = olMarkTomorrow
'2 = olMarkThisWeek




Dim olItem As ContactItem
Dim dTime As Date
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set olItem = ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set olItem = ActiveInspector.currentItem
    End Select




    If TypeName(olItem) = "ContactItem" Then
        dTime = CDate(Date + iDays)
        If bPM = True Then
            dTime = dTime & " 14:00:00"
        Else
            dTime = dTime & " 09:00:00"
        End If


        With olItem
            If iDays = 1 Then
                .MarkAsTask 1
            Else
                .MarkAsTask 2
            End If
            .TaskStartDate = dTime
            .TaskDueDate = dTime
            .ReminderSet = True
            .ReminderTime = dTime
            .Save
        End With
    End If
    Set olItem = Nothing
End Sub