Auto CC dan BCC Outlook Office 2010

Jika anda sudah mengenal Macro Visual Basic sebelumnya, tentu ini adalah hal yang sangat mudah untuk anda pelajari. Meskipun anda masih sangat awam atau tidak mengerti, Insya Allah bisa anda pahami dengan baik. Konfigurasi ini berlaku untuk Office 2007 dan Office 2010, untuk Office 2013 belum dicoba.

1. Klik 'File' dan pilih 'Options'.

2. Pilih 'Customize Ribbon', pada sebelah kanan, centangkan 'Developer'. Lalu klik OK.

3. Akan muncul tab 'Developer', lalu Klik. Pilih 'Visual Basic'.

4. Pilih Project1, Microsoft Outlook Objects, ThisOutlookSession. Lalu isikan dengan kode berikut:

Option Explicit

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim oRecipBCC As Recipient
  Dim oRecipCC As Recipient
  Dim szMsg As String
  Dim szBCC As String
  Dim szCC As String

  szBCC = "example@yahoo.com"
  szCC = "example2@yahoo.com"

  Set oRecipBCC = Item.Recipients.Add(szBCC)
  Set oRecipCC = Item.Recipients.Add(szCC)
  oRecipBCC.Type = olBCC
  oRecipCC.Type = olCC

  If (Not oRecipBCC.Resolve) Then
   If (MsgBox("Cannot add BCC email address", vbExclamation + vbYesNo, "Auto BCC Macro") = vbNo) Then
    Cancel = True
   End If
  If (Not oRecipCC.Resolve) Then
   If (MsgBox("Cannot add CC email address", vbExclamation + vbYesNo, "Auto CC Macro") = vbNo) Then
    Cancel = True
   End If
  End If

  Set oRecipBCC = Nothing
  Set oRecipCC = Nothing
End Sub