ajouter un email en cc

[Remi]

Bonjour forum,

Je suis à construire une macro pour envoyer des courriels en y attachant un fichier en un seul click. Je suis capable de le faire mais j'aimerais être capable de mettre certains destinataires en carbon copy (cc) et je n'ai pas été capable de le faire. Voici mon code:

Sub envoi_email()

Dim d As Date
Dim ajout As Variant
Dim appoutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myrecipients As Object

ThisWorkbook.Save

ajout = Workbooks("Resets.xls").Worksheets("Summary").Range("A29")
d = Worksheets("Summary").Range("B2")
Set appoutlook = CreateObject("outlook.application")
Set message = appoutlook.CreateItem(olMailItem)

With message
.Subject = "Resets confirmation for " & d
.Body = "Good day," & vbCrLf & vbCrLf & "Here are the swap settlements for " & d & vbCrLf & vbCrLf & ajout & vbCrLf & vbCrLf & "Remi" & vbCrLf & vbCrLf
.Recipients.Add ("xxx@yahoo.com")
.Recipients.Add ("xxx@hotmail.com")
.CC (le code existe et vba le reconnait mais je ne sais pas comment l'utiliser)
.Attachments.Add ThisWorkbook.Path & "\" & "Reset Confirmation.xls"


.Send
End With
Set appoutlook = Nothing
End Sub


Merci pour l'aide que vous pourrez m'apporter.

Sincèrement,

Rémi

 

[juju]

Hello,

En mettant :

.cc = "test@hotmail.fr"

ou

.cc = Range("A1").value

Bye

Ju

 

[Remi]

Merci beaucoup de ton aide juju.