> Tous les forums > Forum Bureautique
 Remplissage automatique de CCi
Ajouter un message à la discussion
Pages : [1] 2 ... Fin
Page 1 sur 2 [Fin]
ayubowan
  Posté le 15/11/2019 @ 11:18 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

Pour chaque email envoyé par Outlook 2019, je voudrais qu'un destinataire particulier soit repris automatiquement dans la section CCi.

Est-ce que l'un de vous connait la procédure ?

Merci d'avance et bonne journée

Ayubowan

Publicité
Gabrilou
 Posté le 15/11/2019 à 14:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Une macro pourrait sans doute le faire.

Une autre suggestion : créer un modèle. Voir ici comment procéder, si cela t'intéresse

Edit : une autre idée : créer une règle des messages (je n'ai pas essayé)

Edit : Voir



Modifié par Gabrilou le 15/11/2019 14:53
Pegase7845
 Posté le 15/11/2019 à 18:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Est-ce toujours le même destinataire que tu veux mettre en CCI ?

jujube2
 Posté le 15/11/2019 à 19:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Pegase7845 a écrit : Est-ce toujours le même destinataire que tu veux mettre en CCI ?

> "je voudrais qu'un destinataire particulier soit repris automatiquement dans la section CCi."

E-L
 Posté le 16/11/2019 à 07:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Gabrilou a écrit :

Une macro pourrait sans doute le faire.

Une autre suggestion : créer un modèle. Voir ici comment procéder, si cela t'intéresse

Edit : une autre idée : créer une règle des messages (je n'ai pas essayé)

Edit : Voir

bonjour,

La règle de message n'est pas possible pour l'envoi, elle n'est valable qu'après avoir envoyé.

.

J'utilise dans ce cas là comme tu le préconises un modèle ou de préférence un formulaire spécifique qui évite d'avoir recours à la macro

à+



Modifié par E-L le 16/11/2019 07:41
Pegase7845
 Posté le 16/11/2019 à 08:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je t'envoie une macro dans la journée dès que j'ai accès à mon PC.

Pour jujube2 : un destinataire particulier ne veut pas dire toujours le même, sont choix pourrait dépendre de plusieurs conditions...



Modifié par Pegase7845 le 16/11/2019 08:43
ayubowan
 Posté le 16/11/2019 à 11:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci à tous pour vos réponses et commentaires.

Finalement, la suggestion de Gabrilou fonctionne très bien, pas de la manière que j'imaginais, mais très bien tout de même.

Lorsque j'envoie un message à qui que ce soit, le destinataire ''fantome'' en reçoit bien une copie. De plus, ce destinataire ''fantome'' n'apparaît pas dans la liste d'envoi du message. CQFD

Bon weekend

ayubowan
 Posté le 16/11/2019 à 11:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Petite précision, la suggestion de Gabrilou utilisée consiste à créer une règle...

Pegase7845
 Posté le 16/11/2019 à 13:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Comme promis voici une macro qui ajoute automatiquement un destinataire en CCi

Pour l'installer tu ouvres le VBA de Outllok --> Alt+F11

Dans ThisOutIookSession tu places le code suivant

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

'By Oliv' 29/06/2007 pour Outlook 2003

Dim myRecipient As Outlook.Recipient

If Not Item.Class = olmail Then GoTo fin

Dim prompt As String

' ici renseigner le destinataire

cci = "xxxxxx@yyyy.zz"

'commentez au choix l'option non voulue

'########################Option CCI############################

'prompt = "Ajouter le cci " & cci & " à " & Item.Subject & "?"

prompt = "Ajouter le cci suivant : " & cci & "?"

Dim reponse

reponse = MsgBox(prompt, vbYesNoCancel + vbQuestion, "Copie cachée")

If reponse = vbCancel Then

Cancel = True

ElseIf reponse = vbYes Then

Set myRecipient = Item.Recipients.Add(cci)

myRecipient.Type = 3

myRecipient.Resolve

If myRecipient.Resolved = False Then

MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"

Cancel = True

End If

End If

End Sub

Voilà c'est simple et pratique.

Si tu ne veux pas avoir une demande de confirmation à à chaque envoi du CCi tu supprimes ou mets en commentaire ce qui est surligné jaune



Modifié par Pegase7845 le 16/11/2019 14:11
Publicité
ayubowan
 Posté le 16/11/2019 à 17:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Pegase7845,

J'ai essayé ta macro. La 1ère fois, elle m'a dit un gros mot en anglais en surlignant la fin de la 4ème ligne. Je ne me souviens plus du texte exact qui n'est resté que quelques secondes.

Depuis lors, plus rien: aucun message n'arrive sur la boite que je spécifie (en laissant les guillemets devant et derrière l'adresse email).

On dirait que cette macro a été rédigée pour Office 2003. Comme, je suis en Office 2019, est-elle toujours valable ?

Autre point, lorsqu'on a recopié la macro sur la feuiile blanche de droite, quelle est la séquence exacte à effectuer pour la sauvegarder, l'activer et pour fermer la page VBA ? Comme je ne joue jamais avec VBA, il est possible que je m'y prenne mal.

Merci d'avance

Gabrilou
 Posté le 16/11/2019 à 18:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

J'avais testé cette macro hier. Elle avait créé pour Outlook 2003. Elle fonctionne encore pour la version 2010. Pour la 2019, c'est encore à voir puisque tu as un message d'erreur.

Pour la sauvegarde de cette macro, lorsque tu l'as recopiée dans thisOutlookSessionk, lorsque tu fermeras Outlook, le système te donnera le message suivant :

Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
'By Oliv' 29/06/2007 pour Outlook 2003
'http://faq-outlook.fr/articles.php?article_id=232
Dim myRecipient As Outlook.Recipient
If Not Item.Class = olMail Then GoTo fin
Dim prompt As String
' ici renseigner le destinataire
cci = "
ayubowan@adresse.fr"

'commentez au choix l'option non voulue
'########################Option CCI############################
prompt = "Ajouter le cci " & cci & " à " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
Set myRecipient = Item.Recipients.Add(cci)
myRecipient.Type = olBCC
myRecipient.Resolve
If myRecipient.Resolved = False Then
MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
Cancel = True
End If
End If
'########################Option CC##############################
prompt = "Ajouter le cc " & cci & " à " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
Set myRecipient = Item.Recipients.Add(cci)
myRecipient.Type = olCC
myRecipient.Resolve
If myRecipient.Resolved = False Then
MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
Cancel = True
End If
End If
'#######################FIN#####################################
fin:
End Sub



Modifié par Gabrilou le 16/11/2019 18:09
E-L
 Posté le 16/11/2019 à 18:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

ayubowan a écrit :

Petite précision, la suggestion de Gabrilou utilisée consiste à créer une règle...

Salut,

Pourrais-tu mettre une copie écran de cette règle dans ton prochain post?

Parce qu'une règle Outlook n'est valable qu'après l'envoi du message pas avant.

Merci d'avance.

Tu peux faire ceci:

.

Autant utiliser le formulaire directement.



Modifié par E-L le 16/11/2019 18:35
Gabrilou
 Posté le 16/11/2019 à 18:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

E-L

J'ai aussi fait des tests hier avec les règles de message, et je confirme, le message se rend seulement après l'envoi du message et non en même temps. Ce n'est pas un problème.

Mais lorsque l'on va dans les messages envoyés (pour voir si tout c'est déroulé selon le plan prévu) on ne voit pas qu'une copie a été envoyée en cci, mais plutôt en c.c. Peux-tu confirmer s.v.p. ?

Tandis qu'avec la macro de Oliv, il est bien indiqué le nom du destinataire dans cci dans les messages envoyés.

Je privilégie aussi l'utilisation d'un formulaire. Pas de remue-méninges pour savoir si oui où non ça marche où pas.

A+

Pegase7845
 Posté le 16/11/2019 à 18:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Cette macro certe créée pour Office 2003 fonctionne parfaitement avec windows 10 1903 et Office 2013.

Je l'ai ré-essayé en début d'après-midi avant de te l'envoyer.

Je n'ai pas office 2019 mais il n'y a pas de raison que cela ne fonctionne pas.

J'espère que tu n'as pas oublié de remplacer l'adresse xxxxxx@yyyy.zz par la tienne par exemple pour faire un essai



Modifié par Pegase7845 le 16/11/2019 19:49
E-L
 Posté le 16/11/2019 à 19:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Gabrilou a écrit :

E-L

J'ai aussi fait des tests hier avec les règles de message, et je confirme, le message se rend seulement après l'envoi du message et non en même temps. Ce n'est pas un problème,

Coucou,

Si l'envoi n'est pas simultané ok, pas de problème. Ce n'était qu'un problème de terminologie.

Bonne soirée.

Gabrilou
 Posté le 16/11/2019 à 19:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Il n'est pas. là, le problème.

« Si l'envoi n'est pas simultané ok, pas de problème. »

Le problème, c'est qu'aucune règle ne permet d'envoyer en cci. Où je ne l'ai pas trouvé.

Bonne soirée à toi aussi

E-L
 Posté le 17/11/2019 à 09:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Gabrilou a écrit :

Il n'est pas. là, le problème.

« Si l'envoi n'est pas simultané ok, pas de problème. »

Le problème, c'est qu'aucune règle ne permet d'envoyer en cci. Où je ne l'ai pas trouvé.

Bonne soirée à toi aussi

Salut,

Je l'ai spécifié 2 fois dans mes posts précédents Les règles de message ne fonctionnent qu'après l'envoi du message, donc trop tard.

C'est pour cela que je lui ai demandé de me mettre une copie écran de la règle que tu lui avait indiqué. Voici ce qu'il a écrit:

ayubowan a écrit :

Petite précision, la suggestion de Gabrilou utilisée consiste à créer une règle...

.

Un outil genre couteau suisse le rend possible et permet d'exécuter beaucoup d'autres fonctions.

J'ai utilisé longtemps cet outil qui le permet

Publicité
ayubowan
 Posté le 17/11/2019 à 13:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour à tous,

  1. Contrairement à ce que j'avais affirmé par distraction, la règle telle que suggérée par Gabrilou ne fonctionne pas vraiment comme je l’avais espéré.
    Vérification faite, l’adresse email du destinataire ‘’fantôme’’ apparaît bien dans la case Cc du message envoyé. L’effet de discrétion que je recherchais est raté.
    Cela signifie que Monsieur XX, destinataire principal d'un message aura la confirmation qu'une copie du message sera envoyée dans la boite email de Monsieur YY (destinataire ''fantôme''); ce qui n'est pas toujours souhaitable.
    Dans toutes les possibilités offertes lors de la création d'une règle, je n’ai pas trouvé la possibilité de choisir Cci au lieu de Cc.

  2. La macro proposée par Pégase7845 fonctionne jusqu’à Office 2013. Pas sur Office 2019.
    Cela rejoint la constatation d'un collègue fanatique des macros a du réécrire toutes les siennes lorsqu’il est passé à Office 2019.

  3. La copie du message peut arriver dans la boite email du destinataire ''fantôme'' à n'importe quel moment : au moment de l'envoi ou plus tard. Aucune importance.

  4. Sauf erreur de ma part, le logiciel KUTOOLS tel que proposé par E-L ne semble pas en mesure de faire ce que je recherche.

Bref, j’en suis pratiquement au point de départ

Bonne journée tout de même

Pegase7845
 Posté le 17/11/2019 à 13:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

La macro proposée par Pégase7845 fonctionne jusqu’à Office 2013. Pas sur Office 2019.Cela rejoint la constatation d'un collègue fanatique des macros a du réécrire toutes les siennes lorsqu’il est passé à Office 2019.

Je n'ai pas office 2016 ni office 2019 mais je voudrais vous faire part d'une expérience.

À partir de 2013 (peut-être avant mais je ne sais pas) office peut être installé soit en 32 bits soit en 64 bits. Moi aussi j'écris des macros surtout pour Excel, j'ai fait le constat suivant des macros qui fonctionnaient sous Office 2013 32 bits le jour où je suis passé à Office 2013 64 bits (ce fut une erreur) un certain nombre de macros ne fonctionnent plus. C'est là une piste à vérifier. Ton collègue est peut-être passé à une version office 2019 64 bits.



Modifié par Pegase7845 le 17/11/2019 13:49
ayubowan
 Posté le 17/11/2019 à 16:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Mon collègue et moi avons migré sur Office 2019 en même temps. Nous avons profité des offres Office 2019 Plus à une quinzaine d'euros. Cela dit, dons notre cas, il s'agissait de la version 32 bits d'Office 2019, tout comme la version 32 bits d'Office 2013 que nous avions auparavent.

Donc de ce côté, il n'y a pas de loup.

Je pense tout simplement qu'il y a un problème de compatibilité. Ce n'est pas la 1ère ni la dernière fois que Microsoft fait ça.

Bonne soirée

Pegase7845
 Posté le 17/11/2019 à 19:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Je pense tout simplement qu'il y a un problème de compatibilité. Ce n'est pas la 1ère ni la dernière fois que Microsoft fait ça.

Ça paraît incroyable ! Entre 32 et 64 bits, je peux à la rigueur comprendre, mais entre évolution de versions c'est incompréhensible.

Quelle type de modifications ton collègue a-t-il dû faire sur les macros ?

ayubowan
 Posté le 17/11/2019 à 21:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Voic ce qu'il m'a répondu

Le problème semble venir de la façon dont on défini les objets et les ''events'' ( interrupts).

Office 2019/library 16.0 demande, apparemment, des définitions plus explicites des objets.

Bonne soirée

E-L
 Posté le 18/11/2019 à 10:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

bonjour à tous,

Je vais répéter ma solution qui fonctionne. cette fois-ci en détail.

a) il faut créer un modèle

* Nouveau message/dans le champs Cci indique le destinataire caché toto@gmail.com

* Enregistrer sous/type de fichier/enregistrer sous/donne un nom moncci par exemple/clique sur modèle Outlook/ok.

Il aura pour extension .oft et deviendra moncci.oft.c:\users\nom d’utilisateur\appdata\roaming\microsoft\templates

b) fait cet essai, déroule le chemin cité plus haut et dans templates double clique sur le fichier moncci.oft

Dans le nouveau message qui apparait,rempli le champs cc et simule un objet, un texte de messge.....Clique sur envoyer

Tu verras que le Cci a fonctionné.

Maintenant tu as plusieurs choix:

1) Choisir ce modèle par défaut

2) Le lancer par macro

Je me sers de ce type de modèle depuis des années et il fonctionne toujours

Je ne vois rien de mieux que l'utilisation d'un modèle comme le préconise aussi Gabrilou

à+



Modifié par E-L le 18/11/2019 10:02
ayubowan
 Posté le 18/11/2019 à 11:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour E-L

Je ne connaissais pas le système des modèles pour ajouter un destinataire caché dans Cci. Effectivement, ça marche bien et c'est simple.

Pour l'instant, lorsque je veux me servir de ce modèle, je dois dérouler les menus jusqu'à c:\users\nom d’utilisateur\appdata\roaming\microsoft\templates

Est-ce qu'il y a une astuce pour que ce modèle apparaisse automatiquement, par défaut (sans devoir dérouler les menus), un peu comme une signature, dès que je crée un nouveau message?

Merci d'avance et bonne journée

Ayubowan

E-L
 Posté le 18/11/2019 à 12:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

salut,

Je t'ai trouvé un truc très simple:

déroules c:\users\nom d’utilisateur\appdata\roaming\microsoft\templates

Que tu feras suivres du nom de ton modèle:

c:\users\nom d’utilisateur\appdata\roaming\microsoft\templates\moncci.oft

Sur un endroit vide de ton Bureau/clique droit/nouveau/raccourci/ et dans la fenêtre qui s'ouvre colle le chemin complet/clique sur suivant/ met le nom que tu veux "cci"par exemple/ok.

Maintenant tu as sur le bureau un raccourci Cci.

Clique sur ce raccourci le message modèle avec le champs cci prérempli apparait, simule un mail et envoie.

Regarde après dans Outlook, tout y est: le message, message envoyé et le message reçu en Cci si tu t'es mis en Cci.

.

Voilà je ne crois pas que je pourrai faire plus simple.

à+

ps: Outlook ouvert bien sûr



Modifié par E-L le 18/11/2019 12:08
ayubowan
 Posté le 18/11/2019 à 19:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Cette façon de faire fonctionne très bien et fort simplement pour les nouveaux messages que l'on crée et que l'on envoie. C'est tout simplement génial.

Au risque de jouer les trouble-fêtes, est-ce qu'il y a un truc aussi simple pour les messages auxquels on répond avec un destinataire caché dans Cci?

Merci d'avance

Ayubowan

Publicité
Pages : [1] 2 ... Fin
Page 1 sur 2 [Fin]

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique