Мой VBA для автоматического BCC не работает после переустановки Outlook

Question

После переустановки Outlook 2010 мой код для BBC автоматически перестает работать! Есть идеи, чтобы заставить его работать снова? Большое спасибо!

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
Dim myOlApp As Outlook.Application
Dim myOlMsg As Outlook.MailItem

On Error Resume Next

' create outlook objects for referance
Set myOlApp = CreateObject("Outlook.Application")
Set myMsg = myOlApp.ActiveInspector.CurrentItem

' address to BCC
strBcc = "LongNX@fsoft.com.vn"

' if the sender address is the support account utilize bcc
If myMsg.SenderEmailAddress = "LongNX@fsoft.com.vn" Then
  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 If
End Sub

К вашему сведению, я поместил этот сценарий VBA в объект ThisOutlookSession К вашему сведению, я закончил с "Присылать мне копию каждого отправленного мною письма" с некоторыми советами в "Правиле и предупреждениях", но все же хочу знать, почему этот код не работает.

Answer 1

Проверьте уровень безопасности макросов http://www.slipstick.com/outlook-developer/how-to-use-outlooks-vba-editor/ Outlook 2010: Файл, Параметры, Центр управления безопасностью, Макросы.