Jeżeli chcesz, aby każda wiadomość z programu pocztowego Microsoft Outlook trafiała także jako kopia do konkretnego odbiorcy, wystarczy wykonać następujące kroki: 1.

1. Narzędzia -> Makro -> Edytor Visual Basic
2. Wybieramy Microsoft Office Outlook Objects -> ThisOutlookSession
3. Wklejamy poniższy kod, gdzie zamiast mail@domena.pl wstawiamy adres e-mail, na który ma trafiać kopia wysłanej wiadomości (UDW):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Set oRecipient = Item.Recipients.Add(“mail@domena.pll”)
oRecipient.Type = olBCC
Item.Recipients.ResolveAll
End Sub