Envoyer un mail à plusieurs destinataires en une fois

Bonjour tout le monde,

Donc j'ai préparé un tableau qui envoie un mail à une destinataire qui dit de récupérer quelque dossier de l'entreprise.

J'ai 2 questions à vous poser:

1. J'aimerais bien que mes mails partent tout le vendredis en un seul clic.

2. J'aimerais bien envoyer tous le mail en un seul clic aussi.

Voici ma Macro que j'ai réussi pour envoyer un mail mais pas tout les vendredi et à chaque fois je devrais cliquer sur le bouton pour chaque personne.

Sub mail()

Dim i As Integer

Dim ol As Object, olmail As Object

Set ol = CreateObject("Outlook.Application")

Set olmail = ol.Application.CreateItem(olMailItem)

With olmail

f = ActiveCell.Row

.To = Cells(f, 6)

.Subject = "Service aux Français"

.HTMLBody = "Bonjour " & Cells(f, 5) & ",<br/><br/> Vous pouvez récupérer votre " & Cells(f, 1) & ", du lundi au vendredi de 9 heures à 12 heures 30 " & Cells(f, 9) & vbCrLf & " .<br/><br/>Cordialement."

.Display

End With

End Sub

Merciii beaucouppp !!!

Bonjour Ceydabalkan

Je propose :

Sub mail()
    Const cVendredi = 5
    Const cColMail = 6
    Dim i As Integer
    Dim ol As Object, olmail As Object
    Dim lDay As Long
    Dim f As Long
    Dim oCell As Range

    lDay = Weekday(Now(), vbMonday)
    If lDay = cVendredi Then
        Set ol = CreateObject("Outlook.Application")
        Set olmail = ol.Application.CreateItem(0)

        For Each oCell In ActiveSheet.Range(ActiveSheet.Cells(3, cColMail), ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count, cColMail)).Cells
            'Si l'email est présent
            If Len(oCell.Value & "") > 0 Then
                'Si pas de date d'envoi
                If Not IsDate(oCell.Offset(, 1).Value) Then
                    With olmail
                        .To = oCell.Value
                        .Subject = "Service aux Français"
                        f = ActiveCell.Row
                        .HTMLBody = "Bonjour " & Cells(f, 5) & ",<br/><br/> Vous pouvez récupérer votre " & Cells(f, 1) & ", du lundi au vendredi de 9 heures à 12 heures 30 " & Cells(f, 9) & vbCrLf & " .<br/><br/>Cordialement."
                        .Display
                    End With
                End If
            End If
        Next
    End If

    'On fait le ménage
    Set ol = Nothing
    Set olmail = Nothing

End Sub

Merci beaucoup pour ta réponse Gérard je vais essayer demain au boulot!

Rebonjour Gérard,

J'ai essayé de créer aussi un bouton avec la macro que tu m'as donné ça ne marche pas non plus

Je ne reçois pas de mail.

Bonsoir,

Aujourd'hui, on n'est pas un vendredi. As-tu modifié la date système pour être à un vendredi?