The GetNamespace line is required!
If your distribution list names are the same as the folder names then change the folder related code as follows, but while testing ensure that Outlook is not configured to send immediately of you will send the test message to the contact group:
Code:
Private Sub Newsletters_ItemAdd(ByVal item As Object)
On Error GoTo err_Handler
Set olItem = item.Forward
olItem.BCC = "Newsletters"
olItem.sEnd
lbl_Exit:
Exit Sub
err_Handler:
MsgBox Err.Number & " - " & Err.Description
GoTo lbl_Exit
End Sub