Jumat, 10 Mei 2013

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:
  5. 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

Tidak ada komentar :

Posting Komentar