I need an email automatically forwarded to a bcc'd list

March 2, 2016 at 17:29:15
Specs: Windows 7
Hello all.

I'm attempting to launch a service that I've already got several hundred users sign up for. Long story short, I simply need an email that I receive several times per day to be automatically forwarded, BCC'd, to said recipients when I get it.

Gmail/Outlook/Thunderbird do not have this ability and I can't seem to find any proper addons to accomplish it either.

I've spent 3 days googling and this is the 3rd forum I'm asking this on. I even asked the hosting provider for my domain(s) if they could set something like this up for me and they were clueless.

It's boggling my mind that I'm having such a difficult time finding a solution for this. I cannot possibly imagine I'm the only person on the planet who needs to have an email automatically forwarded to a list of people without all the other people in the list seeing who else it was sent to.

Can ANYone point me in the right direction on this?

Thanks!


See More: I need an email automatically forwarded to a bccd list

Report •


#1
March 2, 2016 at 17:54:40

Report •

#2
March 2, 2016 at 18:10:30
Unfortunately no. While that does allow me to BCC any outgoing mail automatically, it only works with mail I'm physically composing and sending. It will not work in conjunction with a forwarding rule.

Report •

#3
March 2, 2016 at 18:38:01
In Outlook, have you looked into perhaps creating a Macro?

My Macro skills are just above nil, but a Google search might turn up something
you could use, or post a request for an Outlook Macro and see if you get any help.

MIKE

http://www.skeptic.com/


Report •

Related Solutions

#4
March 2, 2016 at 23:42:55
This can be achieve very easily with a macro in Outlook, I have written many macros that sit behind Outlook.

What I need to know is

1) is the subject line of the email you receive always the same? or are there a few variations?

2) If the subject lines are always different, then are the emails received from the same email address?

3) Do the emails always get sent to the same BCC list, or do specific emails get sent to different people?

Within Outlook there is a function called 'Application_NewMail()'

This will trigger when a new item (email) is added to your inbox (ie received email) you can then perform some checks to determine if this email fits the criteria for being forwarded.


Report •

#5
March 3, 2016 at 02:30:20
Here is an example, I am not able to test thoroughly due to new restrictions on our systems are work.

Paste this in 'ThisOutlookSession' and change the following two things

If Msg.Subject = "NEWS" Then

Change 'NEWS' to whatever the subject line will read

Msg.BCC = "SomeOne@Somewhere.com"

Change email address to the addresses you wish to BCC to, you can separate multiple addresses with a semi colon, eg a@b.com;B@c.com etc


Paste the below into Outlook

Private WithEvents myOlItems  As Outlook.Items

Dim oMail As MailItem

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal item As Object)
    
    On Error GoTo ErrorHandler
    
    Dim Msg As Outlook.MailItem
  
    If TypeName(item) = "MailItem" Then
        
        Set Msg = item
        
        If Msg.Subject = "NEWS" Then
            Msg.Forward
            Msg.BCC = "SomeOne@Somewhere.com"
            Msg.HTMLBody = Msg.HTMLBody
            Msg.Subject = Msg.Subject
            Msg.Save
            Msg.Send
        End If
        
    End If

ProgramExit:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit

End Sub


Report •

#6
March 3, 2016 at 04:03:44
Can a distribution list name be used in the Msg.BCC line?

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.


Report •

#7
March 3, 2016 at 08:46:31
im not sure will have to test that, but as mentioned due to new policies certain things dont work on our systems at work, they are EXTREMELY restricted now

message edited by AlwaysWillingToLearn


Report •

#8
March 3, 2016 at 08:52:50
Oh...trust me, I know all about that! I'm surprised I can still access this forum!

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.


Report •

#9
March 3, 2016 at 09:17:06
Oh...trust me, I know all about that! I'm surprised I can still access this forum!

Don't worry DerbyDad03 - we (i.e. GCHQ and NSA) are still working on that...


Report •

#10
March 4, 2016 at 00:29:03
Morning all,

So I made a new distribution list (luckily this hasn't been secured by our IT admins) and created a new function that will look at that list, take each email address and concatenated them with a semi colon. This function needs to be passed the name of the distribution list you wish to send to. seems to work for me.. I received the forwarded email to all the address (Hotmail and Gmail) I had setup in the distribution group

Private WithEvents myOlItems  As Outlook.Items

Dim oMail As MailItem

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal item As Object)

    On Error GoTo ErrorHandler

    Dim Msg As Outlook.MailItem
    Dim SendTo As String
    
    If TypeName(item) = "MailItem" Then

        Set Msg = item
        SendTo = GetDistGroupMembers("Distribution List Name")
        
        If Msg.Subject = "NEWS" Then
            Msg.Forward
            Msg.BCC = SendTo
            Msg.HTMLBody = Msg.HTMLBody
            Msg.Subject = Msg.Subject
            Msg.Save
            Msg.Send
        End If

    End If

ProgramExit:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit

End Sub

Public Function GetDistGroupMembers(iListName As String) As String

    Const olFolderContacts = 10
    Dim DistString As String
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")

    Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items
    intCount = colContacts.Count

    For i = 1 To intCount
        If TypeName(colContacts.item(i)) = "DistListItem" Then
            Set objDistList = colContacts.item(i)
                If objDistList.DLName = iListName Then
        
                    For j = 1 To objDistList.MemberCount
                        DistString = DistString & objDistList.GetMember(j).Address & "; "
                    Next
                Exit For
            End If
        End If
    Next
    
    If Right(DistString, 1) = ";" Then
        
        DistString = Mid(DistString, 1, Len(DistString) - 1)
        
    ElseIf Right(DistString, 2) = "; " Then
        
        DistString = Mid(DistString, 1, Len(DistString) - 2)
        
    End If
        
    GetDistGroupMembers = DistString
    
End Function




Report •


Ask Question