Mettre 2 personnes en copie outlook
Bonjour à tous,
Je souhaite mettre 2 personnes en copie d'un mail. Les adresses mails de ces personnes en copie sont renseignées dans une colonne de mon fichier excel (colonne 8 et colonne 9). ces deux personnes ne sont pas toujours les même.
J'arrive uniquement à mettre l'un ou l'autre mais pas les deux en même temps... Les syntaxes ci-dessous ne fonctionnent pas
mail.CC = .Cells(i, 8) & ";" & mail.CC = .Cells(i, 9)
mail.CC = .Cells(i, 8) & mail.CC = .Cells(i, 9)
Pourriez-vous svp m'indiquer comment mettre 2 personnes en copie d'un mail envoyé par macro ci-dessous :
Sub envoie()
rep = "chemin"
With Sheets("Mails")
dl = .Cells(Rows.Count, 2).End(xlUp).Row
Set ol = CreateObject("outlook.application")
For i = 7 To dl
Set mail = ol.createitem(0)
mail.To = .Cells(i, 5)
mail.CC = .Cells(i, 8) & ";" & mail.CC = .Cells(i, 9)
mail.Subject = .Cells(3, 3) ' Objet du mail
mail.Body = ""
mail.attachments.Add (rep & "\" & .Cells(i, 6).Value) & "fichier" & ".xlsx"
mail.Display
mail.send
Next i
End With
End Sub
Bonjour,
Vous y étiez presque je pense ! :) Vous avez juste répété deux fois la même propriété, à mon avis elles s'écrasaient mutuellement (je n'ai pas testé c'est une proposition).
Sub envoie()
rep = "chemin"
With Sheets("Mails")
dl = .Cells(Rows.Count, 2).End(xlUp).Row
Set ol = CreateObject("outlook.application")
For i = 7 To dl
Set mail = ol.createitem(0)
mail.To = .Cells(i, 5)
mail.CC = .Cells(i, 8) & ";" & .Cells(i, 9)
mail.Subject = .Cells(3, 3) ' Objet du mail
mail.Body = ""
mail.attachments.Add (rep & "\" & .Cells(i, 6).Value) & "fichier" & ".xlsx"
mail.Display
mail.send
Next i
End With
End SubCdlt,
Merci beaucoup à vous Ergotamine. Cela fonctionne parfaitement !