Ajout d'un destinataire en copie

Résolu/Fermé
scheda Messages postés 10 Date d'inscription vendredi 9 décembre 2016 Statut Membre Dernière intervention 16 janvier 2017 - 9 déc. 2016 à 09:39
scheda Messages postés 10 Date d'inscription vendredi 9 décembre 2016 Statut Membre Dernière intervention 16 janvier 2017 - 13 janv. 2017 à 06:54
Bonjours,

A partir d'un fichier Excel j'envois une plage de cellules dans un corps de message Outlook pour le moment ca fonctionne bien.
Cependant, je voudrait ajouter un destinataire en copie et là je coince j'ai fouillé dans les fils de discutions dans différents forums et je ne trouve pas de solutions, pourriez vous m'aider SVP
voici le code que j'utilise.
Je précise que je suis un parfait débutant en VBA

Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:I22").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ci joint la commande pour validation ..."
.Item.to = [B6]

.Item.Subject = "le sujet"
.Item.Send
End With
End Sub
A voir également:

1 réponse

thev Messages postés 1925 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 18 décembre 2024 692
10 déc. 2016 à 13:44
Bonjour,

 
With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ci joint la commande pour validation ..."
.Item.to = [B6]
.Item.cc = [B7]
.Item.Subject = "le sujet"
.Item.Send
End With


2
scheda Messages postés 10 Date d'inscription vendredi 9 décembre 2016 Statut Membre Dernière intervention 16 janvier 2017
14 déc. 2016 à 15:52
Merci pour la réponse et dsl pour le retard de ma part,
pour la ligne cc ca ne fonctionne pas déjà essayer une autre idée ?
0
yg_be Messages postés 23405 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 décembre 2024 1 557
15 déc. 2016 à 19:35
Qu'est-ce qui ne fonctionne pas? Quel est le contenu de B7?
0
scheda Messages postés 10 Date d'inscription vendredi 9 décembre 2016 Statut Membre Dernière intervention 16 janvier 2017
13 janv. 2017 à 06:54
dsl pour la réponse tardive oui sa fonctionne encore merci pour le coup de main
0