XL 2016 Vérification noms destinataires (.To / .Cc) - Resolve - ResolveAll

    Dim OutApp As Object
    Dim OutMail As Object

    ' Mon code de construction strHTML
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        If Destinataire <> "INEXISTANT" Then
            .To = Destinataire & "; hugues.NOM@maboite.com; thierry.NOM@maboite.com; abdesslam.NOM@saboite.com; abdelilah.NOM@ext.maboite.com"
        Else
            .To = "hugues.NOM@maboite.com; thierry.NOM@maboite.com; abdesslam.NOM@saboite.com; abdelilah.NOM@ext.maboite.com"
            Print #NumFic, "Demandeur " & IdDemandeur & " inexistant dans le maboite Address Book pour la/les demande(s) : " & ListeDemandes & " / Onglet : " & TabData(liv - 1, J)
            ListeErreurs = ListeErreurs & "<b><SPAN style=""color:ORANGE"">Demandeur " & IdDemandeur & " inexistant dans le maboite Address Book pour la/les demande(s) : " & ListeDemandes & " / Onglet : " & TabData(liv - 1, J) & "</SPAN></b><BR>"
        End If
        If Destmaboite <> "" Then
            .cc = Left(Destmaboite, Len(Destmaboite) - 2)
        End If
        '.BCC = DestinataireCopieCache
        .Subject = "[Updated request] Informations about your request"
        .Importance = 1 '1:Priorité normale(valeur par défaut)/ 2: priorite haute/ 0 et autres valeurs: faible/
        .HTMLBody = strHTML
        '.Attachments.Add lien_piece_jointe
        '.Display
        .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing