rule to identity incoming messages from non-exchange email address

Question

I'm a developer, and because of my group associations, I receive literally hundreds of email a day every time some service performs or fails to perform some function.  These email accounts ([e-mail]) are not exchange accounts. If i right click on the address and select properties I get the non-exchange properties image below.

I simply want to be able to create a rule that will identity these mass emails and put them into their own folder. 

1. It can not be done by the "distribution list" as someone can send an email to the "AppDev" group which I need to respond to. 
2. It can be done by looking for the specific from address, but that is time consuming and repetitive and "ugly"
3. It can not be done by message or subject text as the outlook filters are not that intelligent and I can't possibly know every new alert message that will be created

If I could check if the from  address is an exchange account as opposed to pop3/image, that would do it.  Obviously Outlook is able to differentiate these "types" of accounts as selecting properties from the context menu give you two different types of dialog boxes.

***********************

How do I set up a filter that will let me filter messages from non-exchange accounts.

non-exchange properties

exchange properties

---

Thank Kevin

Answer 1

Look at the SenderEmailType property - it will be SMTP as opposed to EX.

---

Dmitry Streblechenko (MVP)
http://www.dimastr.com/redemption Redemption - what the Outlook Object Model should have been Version 5.3 is now available!

Answer 2

Dmitry,

My first stupid question of the day... where can I use that in a rule?

I pasted SenderEmailType into the selected properties "define more criteria" field and it balked "The Field you specified cannot be found".

---

Thank Kevin

Answer 3

That property is available in the Outlook Object Modle, and you can access it in a script.

For a rule, have you tried "specific words in the sender's address"?

---

Dmitry Streblechenko (MVP)
http://www.dimastr.com/redemption Redemption - what the Outlook Object Model should have been Version 5.3 is now available!

Answer 4

In case anyone is interested.   This works

Public WithEvents myOlItems As Outlook.Items
 
Public Sub Initialize_handler()
 
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
 
End Sub
 
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
 
 Dim myOlMItem As Outlook.MailItem
 
  Dim myRecipient As Outlook.Recipient
  Dim myInbox As Outlook.Folder
  Dim myNameSpace As Outlook.NameSpace
  Dim myDestFolder As Outlook.Folder
   
   Set myNameSpace = Application.GetNamespace("MAPI")
   Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
   Set myDestFolder = myInbox.Folders("DevSupport")
   Dim recipientTrigger As String
   recipientTrigger = "devsupport"
 
 Set myOlMItem = Item
 
 With myOlMItem
    'is this coming from a non-exchange address: a programatically generated message
    If .SenderEmailType <> "EX" Then
        'is this message sent to a group address
        For Each myRecipient In myOlMItem.Recipients
            If LCase(myRecipient.Name) = recipientTrigger Then
                'move the message to the AppDev folder for later ignoring
                .Move myDestFolder
            End If
        Next
        'MsgBox "incoming smtp mail with subj = " & .Subject
    End If
 End With
 
End Sub

---

Thank Kevin

Answer 5

Dimitry,

The code  I wrote works when it runs and that seems to only be when I open the project and hit F5 to run it.

I digitally self signed it.  How do I get this to run every time outlook runs?

---

Thank Kevin

Answer 6

You can use Application.MAPILogonComplete event to run your code as soon as Outlook starts up and logs to a MAPI profile.

---

Dmitry Streblechenko (MVP)
http://www.dimastr.com/redemption Redemption - what the Outlook Object Model should have been Version 5.3 is now available!