Creating Rules in Outlook

[ShubhamM]

Good Day,

I'm trying to create rules on Outlook based on text in the subject line of a received email, moving the email to a newly created folder. The rule is created and all aspects of the code below work with the exception of the Subject Condition, where I believe SubjectCondition.Text := "test" is not accepting "test" as the string to capture. Based on the information in the following Microsoft Docs, the text property requires being fed an Array but I'm not sure how to do this either:

https://docs.microsoft.com/en-us/office/vba/api/outlook.textrulecondition.text

Code: Select all

Project_Number := 12345, Project_Name := "Some Company Name"
Folder_Name := Project_Number " - " Project_Name
Outlook_App := ComObjActive("Outlook.Application")
NameSpace := Outlook_App.GetNamespace("MAPI")
New_Folder := NameSpace.GetDefaultFolder(6).Folders.Add(Folder_Name)

Rules := Outlook_App.Session.DefaultStore.GetRules()
New_Rule := Rules.Create(Folder_Name, 0) ;0 = received emails

;Subject_Array := Array("test1", "test2")
SubjectCondition = New_Rule.Conditions.Subject
SubjectCondition.Enabled := 1
SubjectCondition.Text := "test" ;THIS HERE DOES NOT WORK - Also tried Array("test1", "test2") here to no avail

Action_MoveToFolder := New_Rule.Actions.MoveToFolder
Action_MoveToFolder.Enabled := 1
Action_MoveToFolder.Folder := New_Folder

Action_NewItemAlert := New_Rule.Actions.NewItemAlert
Action_NewItemAlert.Enabled := 1
Action_NewItemAlert.Text := New_Folder

Rules.Save

;ListVars
Return

Thanks so much for any assistance you can provide! Have a great weekend!

[BoBo]

Probably worth a read (for others to get the idea): https://docs.microsoft.com/en-us/office/vba/outlook/how-to/rules/managing-rules-in-the-outlook-object-model (from 30/3/2022).

[ShubhamM]

Ahh, yes, thank you for sharing that for others as I should have done so myself. I just need to figure out how to have the Rule.Conditions.Subject.Text property to accept strings. I believe the commented out variable Subject_Array creates an object containing an array and is not an array itself so I don't know how to pass the array itself to the property. I'm really crossing my fingers that it can be done/figured out.