Envoyer un mail à une liste de destinataire

Bonjour,

J'aimerai envoyer un mail à une liste de destinataires de (AC4:AC35). Le seul soucis c'est que ma macro ne reconnait pas la liste.

Des idées? Merci!

Sub Mail()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object

Mail = ActiveSheet.Range("AC4:AC35").Value

 Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)
    With oOLMsg
        .To = Mail

Bonjour vaffancolor ,

En intégrant une boucle

Sub Mail()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object

Mail = ActiveSheet.Range("AC4:AC35").Value

For each c in mail
 Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)
    With oOLMsg
        .To = c

Merci pour ta réponse. J'ai un soucis de variable "Mail".

Je vois que ta variable porte le même nom que ta procédure, tu vas forcement avoir une erreur à cette endroit

C'est bon cependant cela ne marche tjr pas...

Sub Mail()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Mail2 = ActiveSheet.Range("AC4:AC35").Value
For Each c In Mail2
Next
        .To = c

        

Aucune adresse s'affiche dans le mail.

Plutôt que d'envoyer des bouts de code envoi un fichier contenant un exemple de ce que tu souhaites,

Car si tu relis ton code correctement, tu comprendras qu'il est impossible que celui fonctionne

Sub Mail()

Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object

Mail2 = ActiveSheet.Range("AC4:AC35").Value

    Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)
    With oOLMsg
For Each c In Mail2
Next
        .To = c
        .Subject = "HEURE - " & nomSemaine
        .Importance = 1
 Texte = "<FONT face='Arial' size=2>Bonjour, "
 Texte2 = "<br><br><FONT face='Arial' size=2>N'oubliez pas d'importer vos heures pour la semaine " & nomSemaine & " !"
 Texte3 = "<br><br><FONT face='Arial' size=2>??"
        .HTMLBody = Texte
        .HTMLBody = .HTMLBody & Texte2
        .HTMLBody = .HTMLBody & Texte3
        .Display
    End With
    Set oOLMsg = Nothing
    Set oOLRecip = Nothing
    Set oOL = Nothing

End Sub

Code complet

Je n'ai pas testé le code mais j'imagine qu'avec une boucle correctement mise en place sa devrait mieux fonctionner .

Sub Mail()

Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object

Mail2 = ActiveSheet.Range("AC4:AC35").Value

    Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)

For Each c In Mail2

     With oOLMsg
        .To = c
        .Subject = "HEURE - " & nomSemaine
        .Importance = 1
 Texte = "<FONT face='Arial' size=2>Bonjour, "
 Texte2 = "<br><br><FONT face='Arial' size=2>N'oubliez pas d'importer vos heures pour la semaine " & nomSemaine & " !"
 Texte3 = "<br><br><FONT face='Arial' size=2>??"
        .HTMLBody = Texte
        .HTMLBody = .HTMLBody & Texte2
        .HTMLBody = .HTMLBody & Texte3
        .Display
    End With

 Next c
    Set oOLMsg = Nothing
    Set oOLRecip = Nothing
    Set oOL = Nothing

End Sub

Encore rien...J'aimerai avoir l'intégralité des adresses dans le même mail.

Essaye comme ceci pour envoyer à une liste

Sub Mail()

Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object

Mail2 = ActiveSheet.Range("AC4:AC35").Value

    Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)

Liste=""
For Each c In Mail2
    Liste=Liste & ";" & c
Next c

     With oOLMsg
        .To = Liste
        .Subject = "HEURE - " & nomSemaine
        .Importance = 1
 Texte = "<FONT face='Arial' size=2>Bonjour, "
 Texte2 = "<br><br><FONT face='Arial' size=2>N'oubliez pas d'importer vos heures pour la semaine " & nomSemaine & " !"
 Texte3 = "<br><br><FONT face='Arial' size=2>??"
        .HTMLBody = Texte
        .HTMLBody = .HTMLBody & Texte2
        .HTMLBody = .HTMLBody & Texte3
        .Display
    End With

    Set oOLMsg = Nothing
    Set oOLRecip = Nothing
    Set oOL = Nothing

End Sub

Parfait! Merci!!