![]() ![]() If Err.Number 0 Then 'Could not get instance, so create a new one Set oOutlook = GetObject(, "Outlook.Application") 'Bind to existing instance of Outlook ' Dim oMoveRuleAction As Outlook.MoveOrCopyRuleActionĭim oOutlook As Object 'Outlook.Applicationĭim oSubjectCondition As Object 'Outlook.TextRuleConditionĭim oSenderAddressCondition As Object 'Outlook.AddressRuleConditionĭim oMoveRuleAction As Object 'Outlook.MoveOrCopyRuleActionĭim oMoveDestination As Object 'Outlook.Folder ' Dim oSenderAddressCondition As Outlook.AddressRuleCondition ' Dim oSubjectCondition As Outlook.TextRuleCondition ' Req'd Refs: Late Binding -> none required ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' Purpose : Demonstration of how to use Outlook automation to create a new rule in ![]() ' Author : Daniel Pineault, CARDA Consultants Inc. I recently had to do some Outlook automation for a client and decided to automate some Outlook configuration which included the creation of Outlook Rules so I thought I’d post an example here in the hopes it might help others as I found it difficult to find good examples to learn from when I needed them. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |