Assigner une tache outlook depuis excel par VBA

Bonjour le forum,

Je souhaite assigner des taches Outlook à mon équipe depuis Excel .
J'ai ma liste de tache dans excel , je parviens à créer les taches pour moi même depuis le code ci dessous.
Je souhaite assigner les tâches selon l'adresse mail qui se situe dans la colonne B.

une idée?

Sub tasks()
Dim I As Long, A As String


With ActiveSheet

    I = 2
    Do
        A = .Cells(I, 1).Value
        If A <> "" Then
            lrc = .Cells(Rows.Count, "A").End(xlUp).Row
    
    With CreateObject("Outlook.Application").CreateItem(3)
        .Assign
        .Subject = Cells(I, "H") & " " & Cells(I, "I") & " " & Cells(I, "J") & " " & Cells(I, "G")
        .StartDate = Now
        .DueDate = Cells(2, "D")
        .ReminderSet = True
        .ReminderTime = .DueDate - 3 + TimeValue("8:30AM")
        .Body = Cells(I, "H") & " " & Cells(I, "I") & " " & Cells(I, "J") & " " & Cells(I, "G")
        .Save
        End With
        End If
        I = I + 1
    Loop Until A = ""

End With


End Sub