NEW ARTICLE
kotlin 「if」文を使用する
  1. HOME
  2. office
  3. outlook マクロでBCCに指定したアドレスを追加する

outlook マクロでBCCに指定したアドレスを追加する

outlook マクロでBCCに指定したアドレスを追加する

outlookで、マクロでBCCに指定したアドレスを追加する手順を記述してます。

目次

環境

  • OS windows11 pro

BCCに指定したアドレスを追加

アドレスチェックを行うには、「ThisOutlookSession」に、

以下のコードを追加します。

Option Explicit

' 送信ボタンイベント
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

On Error GoTo Exception
  
  Dim objRecipient As Recipient
  
  Set objRecipient = Item.Recipients.Add("アドレス")
  objRecipient.Type = olBCC
  objRecipient.Resolve
  
GoTo EXIT_SECTION
  
Exception:
    MsgBox CStr(Err.Number) & ":" & Err.Description, vbOKOnly + vbCritical
    Cancel = True
    Exit Sub
    GoTo EXIT_SECTION

EXIT_SECTION:

  Set objRecipient = Nothing
  
End Sub