Outlook을 다시 설치 한 후 자동 BCC에 대한 VBA가 작동하지 않습니다.

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"개체에 다시 넣었습니다. 참고로, "Rule and Alert"의 몇 가지 팁으로 "내가 보내는 모든 메일의 사본 보내기"를 수행했지만이 코드의 이유를 알고 싶습니다. 작동하지 않습니다.

매크로 보안 수준 http://www.slipstick.com/outlook-developer/how-to-use-outlooks-vba-editor/ Outlook 2010 : 파일, 옵션, 보안 센터, 매크로를 확인하십시오.