Modify reminder day and date at once on multiple tasks and messages

(edited 3/21)

Sorry to be late replying but I tried and failed multiple attempts. Only today I hope I've made final progress.

With the code pasted below, I do manage to set reminder time and set start date =due date =reminder date for multiple tasks or messages or combinations of tasks and messages.

Further to your latest post I've probably added too many '.save'. But it should not hurt.

Latest code does correct an earlier small issue: display options for my to_do list show late items with red police. When setting new reminder time for a late mail item, red remained visible even if new start date is in two week time.

Now solved in code below

Option Explicit

Public Sub ModifierMultiplesRappels()
    Dim Session As Outlook.NameSpace
    Dim currentExplorer As Explorer
    Dim Selection As Selection
    Dim dtReminder
     dtReminder = InputBox("Entrer date et heure du rappel au format j/m/a h:m", "Entrer heure du rappel")
   
    Dim obj As Object
    Dim objItem As Object

    Set currentExplorer = Application.ActiveExplorer
    Set Selection = currentExplorer.Selection
    Set objItem = Selection.Item(1)

    For Each obj In Selection
 
    With obj
 
     Debug.Print .Subject
   
     If (TypeOf obj Is Outlook.MailItem) Then
     .ClearTaskFlag
     .MarkAsTask (olMarkNoDate)
     .TaskStartDate = dtReminder
     .TaskDueDate = dtReminder
     .ReminderTime = dtReminder
     .ReminderSet = True
     .Save
     ElseIf (TypeOf obj Is Outlook.TaskItem) Then
     .StartDate = dtReminder
     .DueDate = dtReminder
     .ReminderTime = dtReminder
     .ReminderSet = True
     .Save
     End If
    
     .Save
     End With
 
    Next

    Set Session = Nothing
    Set currentExplorer = Nothing
    Set obj = Nothing
    Set Selection = Nothing

End Sub