After I reinstalled Outlook 2010, my code to BBC automatically doesn't work anymore! Any ideas to make it work again? Many thanks!
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 = "[email protected]"
' if the sender address is the support account utilize bcc
If myMsg.SenderEmailAddress = "[email protected]" 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
FYI, I put this VBA script in "ThisOutlookSession" object
FYI again,
I've done with the "send me a copy of every mail I send" with some tips in "Rule and Alert", but still want to know why this code doesnt work.
