Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim colStores As Outlook.Stores Dim oStore As Outlook.Store Dim oFolders As Outlook.Folders Dim oInbox As Outlook.folder Dim Folder_Name As String Dim Rname As String Folder_Name = SELLER_NAME & "_" & "EscalationId_" & price_escNum & "_Created_" & Date Rname = "Action Required - Pricing Escalation" & " #'" & price_escNum & "'" ' On Error Resume Next Set colStores = Outlook.Session.Stores Set oFolders = colStores.Item("email@example.com").GetDefaultFolder(olFolderInbox).Folders.Item("Archive").Folders oFolders.Add (Folder_Name) Dim colRules As Outlook.Rules Dim oRule As Outlook.Rule Dim colRuleActions As Outlook.RuleActions Dim oRuleAction As Outlook.RuleAction Dim oMoveRuleAction As Outlook.MoveOrCopyRuleAction Dim oFromCondition As Outlook.ToOrFromRuleCondition Dim oSubjectCondition As Outlook.TextRuleCondition Dim oExceptSubject As Outlook.TextRuleCondition Dim oMoveTarget As Outlook.folder On Error Resume Next 'Specify target folder for rule move action Set oInbox = Outlook.Session.Stores.Item("firstname.lastname@example.org").GetDefaultFolder(olFolderInbox).Folders.Item("Archive") 'Debug.Print oInbox.FolderPath 'Assume that target folder already exists Set oMoveTarget = oInbox.Folders(Folder_Name) 'Get Rules from Session.DefaultStore object Set colRules = Outlook.Session.Stores.Item("email@example.com").GetRules() 'Create the rule by adding a Receive Rule to Rules collection Set oRule = colRules.Create(Rname, olRuleReceive) 'Specify the condition in a ToOrFromRuleCondition object 'Condition is if the message is sent by "DanWilson" Set oSubjectCondition = oRule.Conditions.Subject With oSubjectCondition .Enabled = True .Text = Array(Rname) End With 'Specify the action in a MoveOrCopyRuleAction object 'Action is to move the message to the target folder Set oMoveRuleAction = oRule.Actions.MoveToFolder With oMoveRuleAction .Enabled = True .folder = oMoveTarget End With 'Set rule to stop processing more rules Set oRuleAction = oRule.Actions.Stop With oRuleAction .Enabled = True End With 'Update the server and display progress dialog colRules.Save
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Expression in Access Query Field not showing null results||11||43|
|Search for a certain number and select cells using VBA||9||19|
|How to add extra IF statement to a loop in MS Access VBA||3||24|
|MS Access Recordset Need Help Setting All Record Values In A Query To False (No)||6||15|