Macro - Envoyer en copie cachée

[nico5065]

Bonjour à tous !

Voici mon petit morceau de macro pour envoyer simplement ma feuille de travail par mail :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub Envoimonteur()
'Envoyer 
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    With m
        .Subject = Range("a2") & "-" & Range("b4") & "-" & Range("c4")
        .Body = "Merci de prendre en compte la demande préparation en pièce jointe."
        .Recipients.Add "b@a.com; j@a.com; m@a.com"
        .Attachments.Add "X:\DOCUMENTS COMMUNS\"
        .Display
    End With
End Sub

Mon souhait est de savoir s'il est possible d'ajouter une ligne pour envoyer le mail à des destinataires en copie cachée ? Il y aurait il une commande .recipients.add.cc ?

Merci d'avance pour votre aide !

[AlainTech]

Bonjour,

Code :

.BCC

Pour connaître les propriétés d'un objet, dans VBE, affiche la fenêtre des variables locales.
En mode pas-à-pas, tu pourras cliquer sur le + devant l'objet en question et voir toutes ses propriétés.

[nico5065]

Merci pour ton aide ainsi que tes conseils. Le .CC fonctionne parfaitement !

J'aimerais ajouter une dernière chose au code mais après utilisation de la fenêtre des variables je n'ai pas trouvé comment insérer "l'accusé de réception" Il me semble que cela doit être de la forme ReturnReceipt, mais je ne sais pas comment l'ajouter au code ?

[AlainTech]

Bonjour,

Tu n'avais pas cherché bien loin...

Code :

.ReadReceiptRequested = True