Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment cci automatiquement tous les emails que vous envoyez dans Outlook?

Lorsque vous envoyez un e-mail et que vous disposez d'un destinataire secret permanent, mais que vous ne souhaitez pas que les autres destinataires voient son adresse, vous devez utiliser la fonction bcc. Mais quand nous avons besoin de Cci, nous devons montrer manuellement le champ Cci et sélectionner un contact pour cela. Pour éviter ces opérations manuelles, l'article suivant vous montrera comment modifier outlook pour automatiquement cci une adresse e-mail sur tous les e-mails que vous envoyez.

Bcc automatique par défaut dans Outlook en utilisant VBA

Auto bcc dans Outlook en utilisant Kutools pour Outlook

Auto Cc ou Bcc tous les e-mails sortants à des destinataires spécifiés (moi-même) dans Outlook

Fourni par Kutools pour Outlook, fonction Auto CC / BCC. Cliquez pour un essai gratuit 60-day sans limitation!
auto cc à moi-même

Kutools for Outlook: 100 + Nouveaux outils avancés pour Outlook.
Office Tab: Activer l'édition à onglets et la navigation dans Office, Tout comme Chrome, Firefox, IE 8 / 9 / 10.
Menu classique: Rapportez les anciens menus et les barres d'outils dans Office 2007, 2010, 2013, 2016 et 2019.

flèche bleue droite bulle Bcc automatique par défaut dans Outlook en utilisant VBA

Vous pouvez appliquer le code VBA ci-dessous pour configurer la règle Bcc automatique dans Outlook. S'il vous plaît faites comme suit:

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

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

Code VBA: Auto bcc lors de l'envoi de tous les emails

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 = "SomeEmailAddress@domain.com"
    
    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 "SomeEmailAddress@domain.com" dans le code ci-dessus avec l'adresse e-mail que vous allez recevoir.

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

A partir de maintenant, vous n'avez pas besoin de remplir l'adresse dans le champ Cci. Lorsque vous envoyez un e-mail à partir de votre outlook, celui-ci est automatiquement envoyé à votre destinataire comme le code VBA est en cours d'exécution.


flèche bleue droite bulle Auto bcc dans Outlook en utilisant Kutools pour Outlook

Le code VBA ci-dessus est un peu difficile et gênant pour les débutants, voici un outil facile et rapideKutools for Outlook pour vous aider automatiquement bcc tous les e-mails ou les e-mails spécifiés que vous envoyez dans Outlook.

Kutools for Outlook - Avec plus de 20 pratique add-ins Outlook, libre d'essayer sans limitation dans les jours 60

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

1. Cliquez Kutools > CC automatique / BCC > Activer Auto CC / BCC (ou Gestionnaire automatique CC / BCC), voir capture d'écran:
doc auto bcc kto 1

2. Dans le Gestionnaire automatique CC / BCC boîte de dialogue, cliquez sur Nouveau bouton. Voir la capture d'écran ci-dessous

3. Dans la boîte de dialogue Auto CC / BCC d'ouverture, saisissez un nom pour cette nouvelle règle Bcc dans le Nom de la règle boîte, vérifiez la Tous les e-mails de sortie option dans la Filtre section, et cliquez sur Destinataires bouton. Voir capture d'écran ci-dessus:

4. Ensuite, vous pouvez entrer votre adresse e-mail que vous souhaitez ccc dans le Bcc -> zone de texte, ou vous pouvez sélectionner l'adresse que vous souhaitez bcc dans la liste et cliquez sur Bcc -> pour mettre l'adresse dans le champ correspondant, et cliquez sur OK bouton. Voir la capture d'écran ci-dessous

5. Et maintenant, il revient à la CC automatique / BCC boîte de dialogue, l'adresse spécifiée que vous souhaitez bcc a été insérée dans le Nom du destinataire CC / BCC boîte, s'il vous plaît cliquez sur le OK bouton pour enregistrer la configuration. Et puis cliquez sur le OK dans la boîte de dialogue Gestionnaire CC / Cci automatique. Voir la capture d'écran ci-dessous

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, et cette règle est appliquée à tous les comptes de votre Outlook.

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


flèche bleue droite bulleDémo: Auto BCC dans Outlook avec Kutools pour Outlook

Pointe: Dans cette vidéo, Kutools onglet est ajouté par Kutools for Outlook. Si vous en avez besoin, veuillez cliquer ici avoir un essai gratuit 60-day sans limitation!


flèche bleue droite bulleArticle connexe:

Comment automatiquement cc moi toujours dans Outlook?



Kutools for Outlook

Plus que les fonctions avancées 100 pour Outlook 2010, 2013, 2016, 2019 et 365

Capture d'écran de kutools pour Outlook tiny pour la bannière 201812

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Adhie Sastro Sadewo · 2 years ago
    Nice, very useful for me, Thanks
  • To post as a guest, your comment is unpublished.
    Andy · 2 years ago
    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 = "email@email.com"
    ElseIf Item.Subject = "ref" Then
    strBcc = "email@email.com"
    ElseIf Item.Subject = "REF" Then
    strBcc = "email@email.com"
    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
    • To post as a guest, your comment is unpublished.
      Joe · 2 years ago
      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 = "email@email.com"[/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.
  • To post as a guest, your comment is unpublished.
    Keshav · 3 years ago
    Can we make this work with sent items that have attachments.
  • To post as a guest, your comment is unpublished.
    SONU RAJ · 3 years ago
    Bravo!!!! Working great
  • To post as a guest, your comment is unpublished.
    JMax · 3 years ago
    Works great but after the message sends I get an extra blank message that sits in my Outbox (sometimes it has the recipient's email address). So if I send 12 msgs, I see 12 msgs in my Sent box, but is there a way to eliminate the "ghost" message just sitting in the Outbox?