Hello,
I have to make some setings for one of my clients.
He want, for every email that is sending to automaticaly send also to another email adress.( put in bcc, the second emal adress). I found some software that make this thing, but is not free. But I found also some script, but I don't know where I have to put this script to work. Some help, please?
This is the script that I found:
BCC 1
"Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim res As Integer
Dim strBcc As String
' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc =
If res = vbNo Then
Cancel = True
Else
objRecip.Delete
End If
Err.Clear
Else
objRecip.Type = olBCC
objRecip.Resolve
If Not objRecip.Resolved Then
"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
End If
Set objRecip = Nothing
End Sub"
BCC 2
"Private Sub Application&ItemSend(By*Val Item As Object, Cancel As Boolean)
Dim obj.Me As Recipient
Set obj.Me = ItemRecipientsAdd("myaddress@mydomain.dom")
Set obj.Me = Nothing
End Sub"
I have to make some setings for one of my clients.
He want, for every email that is sending to automaticaly send also to another email adress.( put in bcc, the second emal adress). I found some software that make this thing, but is not free. But I found also some script, but I don't know where I have to put this script to work. Some help, please?
This is the script that I found:
BCC 1
"Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim res As Integer
Dim strBcc As String
' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc =
If res = vbNo Then
Cancel = True
Else
objRecip.Delete
End If
Err.Clear
Else
objRecip.Type = olBCC
objRecip.Resolve
If Not objRecip.Resolved Then
"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
End If
Set objRecip = Nothing
End Sub"
BCC 2
"Private Sub Application&ItemSend(By*Val Item As Object, Cancel As Boolean)
Dim obj.Me As Recipient
Set obj.Me = ItemRecipientsAdd("myaddress@mydomain.dom")
Set obj.Me = Nothing
End Sub"