Rule to move messages except for replies

[susan_abc]

Running Outlook 2010 in an Exchange 2010 environment. I receive a lot of email notifications of equipment and software status and almost all don’t involve me (not my equipment/software/site). I’ve set up rules to move those messages to a folder, but any replies to those messages are also moved. I want to keep all replies in my inbox so I can review them while moving out all of the “noise” of the initial emails. I’ve looked for an option in the Rules exceptions but don’t find something like “except if a reply or a forward”. How can I accomplish moving messages except for replies? Thanks in advance for the help!

 

[Diane Poremsky]

How do the rules read? Did you try adding an exception for 'except if subject is RE: " - you'll need the full subject, so it won't work if you are filtering on From address or something other than subject.

Another possibility is a run a script rule - the rule identifies the message as usual but the action is in a script - you can add an exception there if subject begins with RE: or FW:

If left(item.subject,3) = "RE:" or left(item.subject,3) = "FW:" then

Exit Sub

End if

See Outlook's Rules and Alerts: Run a Script - Slipstick Systems for more information and links to sample scripts.

 

[susan_abc]

The rules idea won't work (many of the emails have date/time stamp in the subject), but the script rule is intriguing. Thanks for the syntax!

 

[Diane Poremsky]

I was afraid a straight rule wouldn't work- although, maybe you don't need the full subject. But - outlook can sometimes outsmart you and overlook the Re or FW because its a reply or forward. (It does this with Out of Office replies.)

 

[marius]

hi, with the help of your code i have now a code that moves non replyed email to another folder but it stoped working. it gives me error at For intCount = objSourceFolder.Items.Count To 1 Step -1 and i dont't know what i did to make it stop working . any help is welcomed. thank you.


'Use the GetFolderPath function to find a folder in non-default mailboxes
Function GETFOLDERPATH(ByVal FolderPath As String) As Outlook.folder
Dim oFolder As Outlook.folder
Dim FoldersArray As Variant
Dim i As Integer

On Error GoTo GetFolderPath_Error
If Left(FolderPath, 2) = "\\" Then
FolderPath = Right(FolderPath, Len(FolderPath) - 2)
End If
'Convert folderpath to array FoldersArray = Split(FolderPath, "\")
Set oFolder = Application.Session.Folders.Item(FoldersArray(0))
If Not oFolder Is Nothing Then
For i = 1 To UBound(FoldersArray, 1)
Dim SubFolders As Outlook.Folders
Set SubFolders = oFolder.Folders
Set oFolder = SubFolders.Item(FoldersArray(i))
If oFolder Is Nothing Then
Set GETFOLDERPATH = Nothing
End If
Next
End If
'Return the oFolder Set GetFolderPath = oFolder
Exit Function

GetFolderPath_Error:
Set GETFOLDERPATH = Nothing
Exit Function
End Function
Sub MoveNONREPLYEDdMail()

Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objSourceFolder As Outlook.MAPIFolder
Dim objDestFolder As Outlook.MAPIFolder
Dim objVariant As Variant
Dim intCount As Integer
Dim intDateDiff As Integer
Dim lngMovedItems As Long
Dim propertyAccessor As Outlook.propertyAccessor
Dim myForward As Outlook.MailItem
'On Error Resume Next
Set objOutlook = Application
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objSourceFolder = GETFOLDERPATH("Mailbox - Clients\Inbox\zile arhivare\Azi") 'sursa
'Set objSourceFolder = GETFOLDERPATH("Shared mailbox name\Inbox")
Set objDestFolder = GETFOLDERPATH("Mailbox - Clients\Inbox\zile arhivare\Ieri") 'destinatie
' use a subfolder under Inbox
For intCount = objSourceFolder.Items.Count To 1 Step -1
Set objVariant = objSourceFolder.Items.Item(intCount)
DoEvents
If objVariant.Class = olMail Then
Set propertyAccessor = objVariant.propertyAccessor

intDateDiff = DateDiff("d", objVariant.SentOn, Now)
If Not propertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003") = 102 _
And Not propertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003") = 103 Then
intDateDiff = DateDiff("d", objVariant.SentOn, Now)
If intDateDiff > -1 Then
objVariant.MOVE objDestFolder
lngMovedItems = lngMovedItems + 1
End If
End If
End If
Next
MsgBox "Au fost gasite " & lngMovedItems & " email-uri "
' Set objDestFolder = Nothing

End Sub

 

[Michael Bauer]

If the error n0 is 91, then objSourceFolder is Nothing. That means GetFolderPath doesn't return a folder for the given path. If that's not the error, reveal what the err msg is saying.