Outlook Macro to add email to Bcc and send it

  It goes under thisOutlookSession Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim olRecip As Recipient Dim olMsg As String Dim res As Integer Dim olBcc As String On Error Resume Next ‘// set email address here olBcc = “Address@domain.com” Set olRecip = Item.Recipients.Add(olBcc) olRecip.Type = olBcc If Not olRecip.Resolve Then olMsg =…