メインコンテンツへスキップ

Outlookで送信するすべての電子メールを自動的にBCCする方法は?

電子メールメッセージを送信し、永続的な秘密の受信者がいるが、他の受信者に自分のアドレスを見せたくない場合は、bcc関数を使用する必要があります。 ただし、bccが必要な場合は、bccフィールドを手動で表示し、連絡先を選択する必要があります。 これらの手動操作を回避するために、次の記事では、Outlookを変更して、送信するすべての電子メールの電子メールアドレスを自動的にBCCする方法を示します。


VBAを使用したOutlookのデフォルトの自動BCC

以下のVBAコードを適用して、Outlookで自動Bccルールを構成できます。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 ダブルクリック このOutlookSession[プロジェクト]ペインで、VBAコードの下を開いているウィンドウに貼り付けます。 以下のスクリーンショットを参照してください。

VBAコード:すべてのメールを送信するときの自動BCC

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

注: あなたを交換してください "" 上記のコードで、bccするメールアドレスを使用します。

3。 VBAコードを保存し、[Microsoft Visual Basic forApplications]ウィンドウを閉じます。

今後は、Bccフィールドにアドレスを入力する必要はありません。 Outlookから電子メールを送信すると、VBAコードの実行中に、目的の受信者に自動的にBCCが送信されます。


Outlook用Kutoolsを使用したOutlookの自動BCC

上記のVBAコードは、初心者にとっては難しくて面倒です。これが簡単で迅速なツールです-Kutools Outlook用 Outlookで送信するすべての電子メールまたは指定された電子メールを自動的にBCCするのに役立ちます。

Outlook用Kutools: 100 を超える便利なツールを備えた究極の Outlook ツールキット。 60 日間無料でお試しいただけます。制限はなく、心配する必要はありません。   続きを読みます...   今すぐ無料トライアルを始めましょう!

Kutools for Outlookをインストールした後、次のようにしてください。

1に設定します。 OK をクリックします。 クツール > 自動CC / BCC > ルールマネージャー、スクリーンショットを参照してください:

2。 の中に 自動CC / BCCマネージャー ダイアログボックスで、をクリックします。 NEW

3。 ルールウィザードで、メールをフィルタリングする条件を指定します。 私の場合、チェックマークを付けます 体の中に特定の言葉があります オプションをクリックし、下線付きのテキストをクリックします。 特定の言葉 それを編集します。

4。 [テキストを含む]ダイアログで、[ NEW 新しい単語を追加するボタン。

5。 [テキストの検索]ダイアログで、に単語を入力します 新しい検索テキスト ボックスをクリックし、 Add ボタンをクリックして、 OK
ヒント:複数の単語を同時に追加するには、にXNUMXつの単語を入力する必要があります 新しい検索テキスト ボックスをクリックして Add ボタンをクリックし、この操作を繰り返して他の単語をXNUMXつずつ追加し、最後に[ OK

6。 これで、[テキストを含む]ダイアログに戻ります。 必要に応じて、 NEW ボタンをクリックして必要に応じて他の単語を追加し、[OK]ボタンをクリックしてこれらの単語を保存します。
ヒント:同じ検索テキストボックスに複数の単語を同時に追加する場合、これらの単語間の関係は「そして"。をクリックして複数の単語を追加する場合 NEW ボタンを続けて、これらの単語間の関係は「OR".

7。 次に、ルールウィザードに戻り、必要に応じて他の条件を指定して、[ Next

8。 XNUMX番目のルールウィザードで、例外を指定するか、必要に応じて例外をチェックせずに、[ Next

9。 XNUMX番目のルールウィザードで、この新しいBccルールの名前を ルール名 ボックスに、ルールの説明を入力します ルールノート ボックスをクリックし、 受信者 ボタンをクリックしてCcまたはBcc受信者を追加し、で実行オプションにチェックマークを付けます ルールオプションを設定する セクションを開き、 OK

10。 Auto CC / BCC Managerで、新しいCc / Bccルールがチェックされていることを確認し、[OK]ボタンを押してダイアログを閉じます。

11。 Outlookのメインインターフェイスで[Kutools]> [CC / BCC]> [自動CC / BCCを有効にする]をクリックして、ルールを有効にします。

そして、 OK ポップアウト再確認ダイアログのボタン。

これまでのところ、bccルールが作成されています。メールを送信すると、同じメッセージがbcc受信者に同時に送信されます。

ノート:
(1)この機能を使用すると、常に設定できます CC ルールも。
(2)このツールを使用すると、必要に応じて複数のルールを作成できます。
(3)ルールを閉じたい場合は、 自動CC / BCCを有効にする、およびすべてのルールが機能するわけではありません。 また、でルール名のチェックを外すことができます 自動CC / BCCマネージャー 指定したルールを無効にするダイアログボックス。


関連記事:

Outlookで常に自分自身を自動的にCCする方法は?


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

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