The code sample uses the RuleAction and RuleCondition objects to specify a rule that moves messages from a specific sender to a specific folder, unless the message contains certain terms in the subject. Note that the code sample assumes that there already exists a folder named "Outlook" under the Inbox.

Code snippet:

   1:  Sub CreateRule()
   2:      Dim colRules As Outlook.Rules
   3:      Dim oRule As Outlook.Rule
   4:      Dim colRuleActions As Outlook.RuleActions
   5:      Dim oMoveRuleAction As Outlook.MoveOrCopyRuleAction
   6:      Dim oFromCondition As Outlook.ToOrFromRuleCondition
   7:      Dim oExceptSubject As Outlook.TextRuleCondition
   8:      Dim oInbox As Outlook.Folder
   9:      Dim oMoveTarget As Outlook.Folder
  10:   
  11:      'Specify target folder for rule move action
  12:      Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox)
  13:      'Assume that target folder already exists
  14:      Set oMoveTarget = oInbox.Folders("Outlook")
  15:      
  16:      'Get Rules from Session.DefaultStore object
  17:      Set colRules = Application.Session.DefaultStore.GetRules()
  18:      
  19:      'Create the rule by adding a Receive Rule to Rules collection
  20:      Set oRule = colRules.Create("Sample_rule", olRuleReceive)
  21:   
  22:      'Specify the condition in a ToOrFromRuleCondition object
  23:      'Condition is if the message is from "<alias>"
  24:      Set oFromCondition = oRule.Conditions.From
  25:      With oFromCondition
  26:          .Enabled = True
  27:          .Recipients.Add ("<alias>")
  28:          .Recipients.ResolveAll
  29:      End With
  30:   
  31:      'Specify the action in a MoveOrCopyRuleAction object
  32:      'Action is to move the message to the target folder
  33:      Set oMoveRuleAction = oRule.Actions.MoveToFolder
  34:      With oMoveRuleAction
  35:          .Enabled = True
  36:          .Folder = oMoveTarget
  37:      End With
  38:   
  39:      'Specify the exception condition for the subject in a TextRuleCondition object
  40:      'Exception condition is if the subject contains "spam" or "text"
  41:      Set oExceptSubject = _
  42:          oRule.Exceptions.Subject
  43:      With oExceptSubject
  44:          .Enabled = True
  45:          .Text = Array("spam", "text")
  46:      End With
  47:   
  48:      'Update the server and display progress dialog
  49:      colRules.Save
  50:  End Sub
 
Reference: For more detailed information, please go through this article.