Free for PREMIUM members
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olkRec As Outlook.Recipient, strCC As String
If Item.Class = olMail Then
For Each olkRec In Item.Recipients
If olkRec.Type = olTo Then
Select Case olkRec.Name
strCC = strCC & "Bill@company.com;"
strCC = strCC & "Sam@company.com;Susie@company.com"
If Len(strCC) > 0 Then
strCC = Left(strCC, Len(strCC) - 1)
Item.CC = strCC
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.