Membuat BCC otomatis di MS Outlook

Berikut caranya dengan menggunakan outlook 2007
Klik Tools - Macro - Visual Basic Editor atau tekan Alt+F11

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strBcc As String
On Error Resume Next

strBcc = "test@testsaja.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC

If Not objRecip.Resolve Then
Cancel = True
End If

Set objRecip = Nothing
End Sub

Maka setiap outlook sent email selalu otomatis muncul BCC ke alamat test@testsaja.com


Selamat mencoba!