Passer au contenu principal

Comment Cci automatiquement tous les e-mails que vous envoyez dans Outlook?

Lorsque vous envoyez un e-mail et que vous avez un destinataire secret permanent mais que vous ne voulez pas que les autres destinataires voient son adresse, vous devez utiliser la fonction Cci. Mais lorsque nous avons besoin de Cci, nous devons afficher manuellement le champ Cci et sélectionner un contact pour celui-ci. Pour éviter ces opérations manuelles, l'article suivant vous montrera comment modifier Outlook pour copier automatiquement une adresse e-mail sur tous les e-mails que vous envoyez.


Cci automatique par défaut dans Outlook à l'aide de VBA

Vous pouvez appliquer ci-dessous le code VBA pour configurer la règle Cci automatique dans Outlook. Veuillez procéder comme suit:

1. appuie sur le autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Double-cliquez sur le Cette session Outlookdans le volet Projet, puis collez sous le code VBA dans la fenêtre d'ouverture. Voir la capture d'écran ci-dessous:

Code VBA: Cci automatique lors de l'envoi de tous les e-mails

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next
    
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = ""
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

Remarque: S'il vous plaît remplacer le "" dans le code ci-dessus avec l'adresse e-mail à laquelle vous accéderez.

3. Enregistrez le code VBA et fermez la fenêtre Microsoft Visual Basic pour Applications.

Désormais, vous n'avez plus besoin de renseigner l'adresse dans le champ Cci. Lorsque vous envoyez un e-mail depuis votre Outlook, il sera automatiquement envoyé au destinataire souhaité au fur et à mesure que le code VBA s'exécute.


Cci automatique dans Outlook en utilisant Kutools for Outlook

Le code VBA ci-dessus est difficile et gênant pour nous, débutants, voici un outil simple et rapide - Kutools pour Outlook pour vous aider à copier automatiquement tous les e-mails ou les e-mails spécifiés que vous envoyez dans Outlook.

Kutools for Outlook: Boîte à outils Outlook ultime avec plus de 100 outils pratiques. Essayez-le GRATUITEMENT pendant 60 jours, sans limites, sans soucis !   Lire la suite...   Commencez votre essai gratuit maintenant!

Après avoir installé Kutools pour Outlook, procédez comme suit :

1Cliquez sur Kutools > CC / BCC automatique > Gestionnaire de règles, voir capture d'écran:

2. Dans le Gestionnaire CC / BCC automatique boîte de dialogue, cliquez sur Nouveauté .

3. Dans l'assistant de règles, spécifiez les conditions selon lesquelles vous filtrerez les e-mails. Dans mon cas, je coche le avec des mots spécifiques dans le corps , puis cliquez sur le texte souligné de mots spécifiques pour le modifier.

4. Dans la boîte de dialogue Texte contient, cliquez sur l'icône Nouveauté bouton pour ajouter de nouveaux mots.

5. Dans la boîte de dialogue Rechercher un texte, saisissez un mot dans le champ Nouveau texte de recherche boîte, cliquez sur la Ajouter bouton, puis cliquez sur le OK .
Pourboires: Pour ajouter plusieurs mots en même temps, vous devez saisir un mot dans le Nouveau texte de recherche boîte et cliquez sur le Ajouter , puis répétez cette opération pour ajouter d'autres mots un par un, et enfin cliquez sur le OK .

6. Maintenant, il revient à la boîte de dialogue Texte contient. Si nécessaire, vous pouvez continuer en cliquant sur le Nouveauté pour ajouter d'autres mots selon vos besoins, puis cliquez sur le bouton OK pour enregistrer ces mots.
Conseils: si vous ajoutez simultanément plusieurs mots dans la même zone de texte de recherche, la relation entre ces mots est "ET". Si vous ajoutez plusieurs mots en cliquant sur le bouton Nouveauté successivement, la relation entre ces mots est "OR".

7. Ensuite, il retourne à l'assistant de règles, spécifiez d'autres conditions selon vos besoins et cliquez sur le bouton Suivant .

8. Dans le deuxième assistant de règles, spécifiez des exceptions ou ne cochez aucune exception selon vos besoins, puis cliquez sur le bouton Suivant .

9. Dans le troisième Assistant de règles, saisissez un nom pour cette nouvelle règle Cci dans le Nom de la règle , entrez les descriptions de la règle dans le Notes de règle boîte, cliquez sur la Bénéficiaire pour ajouter des destinataires Cc ou Cci, cochez les options en cours dans le Définir les options de règle section, et cliquez sur OK .

10. Dans Auto CC / BCC Manager, assurez-vous que la nouvelle règle Cc / Bcc est cochée et activez le bouton OK pour fermer la boîte de dialogue.

11. Allez-y pour cliquer Kutools> CC / BCC> Activer Auto CC / BCC dans l'interface principale d'Outlook pour activer la règle.

Et cliquez sur le OK bouton dans la boîte de dialogue de reconfirmation qui apparaît.

Jusqu'à présent, la règle Cci a été créée, lorsque vous envoyez un e-mail, le même message sera envoyé au destinataire Cci en même temps.

Notes:
(1) Avec cette fonction, vous pouvez régler le CC règles aussi.
(2) Vous pouvez créer plusieurs règles selon vos besoins en utilisant cet outil.
(3) Si vous souhaitez fermer les règles, vous pouvez cliquer sur Activer Auto CC / BCC, et toutes les règles ne fonctionneront pas. Vous pouvez également décocher le nom des règles dans le Gestionnaire CC / BCC automatique boîte de dialogue pour désactiver certaines règles spécifiées.


Article connexe:

Comment me cc automatiquement toujours dans Outlook?


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

Comments (53)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to send mail BCC & recipient recieve mail with Dear <Recipient>
This comment was minimized by the moderator on the site
Confirming this works for Outlook 2020, I just have 1 issue. How can I auto bcc FROM multiple accounts? My work issues us (2) separate emails different domains. Currently, when I send an email from both, I get the copy to the email entered in the code. I would like separate copies from whichever email is sending it. Any solutions?
This comment was minimized by the moderator on the site
How to set it up auto bcc to multiple email addresses?
in outlook 2013 only had to add an additional line shown as below
strBcc = ""
strBcc = ""
But outlook 2016 only took 2nd line to add onto bcc.
This comment was minimized by the moderator on the site
Try Kutools for Outlook's Auto Bcc feature!
This comment was minimized by the moderator on the site
same problem here, do u have a solution so far?
This comment was minimized by the moderator on the site
The VBA code works great. Thanks, but what if I want to bcc still, but only when sending to one specific email recipient?
This comment was minimized by the moderator on the site
Great job guyz. Thank you . Worked for Outlook 2016 . Wonder how can i check the From to Field in order to autobcc only from one account. BR Chris
This comment was minimized by the moderator on the site
Works great all day in Outlook 2010. Next day, it stopped working. I followed the instructions that SILUVIA ZHOU gave about macro security (without having to re-do the script) and it appears to work again.
This comment was minimized by the moderator on the site
Hi. Works great for my laptop and office PC but after using it for about 1 day, or sending about 20+ emails, this feature just doesn't work anymore on both my desktop and laptop. Anyone can help me out? I'm using outlook 2010 and 2013. Thanks!
This comment was minimized by the moderator on the site
Nice, very useful for me, Thanks
This comment was minimized by the moderator on the site
Hi guys, I have tried this code and whilst it does work, it only CC's and not BCC's. I only want emails that contain Ref, REF or ref in the subject line to be BCC'd. Is anyone able to check that I have it constructed correctly please? ******* Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Msg As Outlook.MailItem Dim onsMapi As Outlook.NameSpace Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String If Item.Subject = "Ref" Then strBcc = "" ElseIf Item.Subject = "ref" Then strBcc = "" ElseIf Item.Subject = "REF" Then strBcc = "" End If Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
This comment was minimized by the moderator on the site
If the "ref" is the only thing in your subject, then it should work fine. Although I would make a few small changes. If you put "Option Compare Text" above your first line (outside the sub) then when you're doing the comparison for your "If" statement, upper and lower case letters will be considered the same. So ref=REF=Ref=rEf=REf, etc. Then you can simplify your conditional to: [quote]If Item.Subject = "ref" then strBcc = ""[/quote] Personally, I would also add an [else strBcc = ""] just to cover your bases. Now, if you want to BCC emails that contain "ref" anywhere in the subject, you can try: [quote]If instr(Item.Subject,"ref",1) 0[/quote] The instr method searches the subject for "ref" and returns a number representing the character in the subject where "ref" starts. If it doesn't find "ref", it returns a 0. A disadvantage of using this method is that you may get some false positives (e.g. the subject contains the word "prefer"). If you want all emails with subjects that start with "ref" with anything following it, then you can use the following: [quote]If instr(Item.Subject,"ref",1) = 1[/quote] This is the same as the last one, except instead of getting all emails whose subjects contain "ref" anywhere, you'll only get emails whose subjects contain "ref" that starts with the first character.
This comment was minimized by the moderator on the site
Can we make this work with sent items that have attachments.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations