Wednesday, May 01, 2013

Clearing the RSS Feeds folder in Exchange using EWS and Powershell

RSS feeds in Outlook is a nice feature that was added in Outlook, but for some organizations it may not be a desirable feature. While you can't delete the RSS Feeds folder itself as its on of Outlooks default folders you can easily remove each of the feeds and items from these folders using EWS's Empty folder operation http://msdn.microsoft.com/en-us/library/exchange/ff797574(v=exchg.80).aspx. A couple of months back I posted a Language independent way of getting the RSS feeds folder using the PidTagAdditionalRenEntryIdsEx property http://gsexdev.blogspot.com.au/2013/01/using-pidtagadditionalrenentryidsex.html . This script can be easily modified to Empty the RSSFeeds folder eg  the following script binds to the RSS Feeds folder and use the Empty Operation with the parameter to also delete all sub folders under the RSS Feeds Folder. - I've put a download of this script here.


  1. ## Get the Mailbox to Access from the 1st commandline argument    
  2.     
  3. $MailboxName = $args[0]    
  4.     
  5. ## Load Managed API dll      
  6. Add-Type -Path "C:\Program Files\Microsoft\Exchange\Web Services\1.2\Microsoft.Exchange.WebServices.dll"      
  7.       
  8. ## Set Exchange Version      
  9. $ExchangeVersion = [Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP2      
  10.       
  11. ## Create Exchange Service Object      
  12. $service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService($ExchangeVersion)      
  13.       
  14. ## Set Credentials to use two options are availible Option1 to use explict credentials or Option 2 use the Default (logged On) credentials      
  15.       
  16. #Credentials Option 1 using UPN for the windows Account      
  17. $psCred = Get-Credential      
  18. $creds = New-Object System.Net.NetworkCredential($psCred.UserName.ToString(),$psCred.GetNetworkCredential().password.ToString())      
  19. $service.Credentials = $creds          
  20.       
  21. #Credentials Option 2      
  22. #service.UseDefaultCredentials = $true      
  23.       
  24. ## Choose to ignore any SSL Warning issues caused by Self Signed Certificates      
  25.       
  26. ## Code From http://poshcode.org/624    
  27. ## Create a compilation environment    
  28. $Provider=New-Object Microsoft.CSharp.CSharpCodeProvider    
  29. $Compiler=$Provider.CreateCompiler()    
  30. $Params=New-Object System.CodeDom.Compiler.CompilerParameters    
  31. $Params.GenerateExecutable=$False    
  32. $Params.GenerateInMemory=$True    
  33. $Params.IncludeDebugInformation=$False    
  34. $Params.ReferencedAssemblies.Add("System.DLL") | Out-Null    
  35.     
  36. $TASource=@ 
  37.   namespace Local.ToolkitExtensions.Net.CertificatePolicy{  
  38.     public class TrustAll : System.Net.ICertificatePolicy {  
  39.       public TrustAll() {   
  40.       }  
  41.       public bool CheckValidationResult(System.Net.ServicePoint sp,  
  42.         System.Security.Cryptography.X509Certificates.X509Certificate cert,   
  43.         System.Net.WebRequest req, int problem) {  
  44.         return true;  
  45.       }  
  46.     }  
  47.   }  
  48. '@     
  49. $TAResults=$Provider.CompileAssemblyFromSource($Params,$TASource)    
  50. $TAAssembly=$TAResults.CompiledAssembly    
  51.     
  52. ## We now create an instance of the TrustAll and attach it to the ServicePointManager    
  53. $TrustAll=$TAAssembly.CreateInstance("Local.ToolkitExtensions.Net.CertificatePolicy.TrustAll")    
  54. [System.Net.ServicePointManager]::CertificatePolicy=$TrustAll    
  55.     
  56. ## end code from http://poshcode.org/624    
  57.       
  58. ## Set the URL of the CAS (Client Access Server) to use two options are availbe to use Autodiscover to find the CAS URL or Hardcode the CAS to use      
  59.       
  60. #CAS URL Option 1 Autodiscover      
  61. $service.AutodiscoverUrl($MailboxName,{$true})      
  62. "Using CAS Server : " + $Service.url       
  63.        
  64. #CAS URL Option 2 Hardcoded      
  65.       
  66. #$uri=[system.URI] "https://casservername/ews/exchange.asmx"      
  67. #$service.Url = $uri        
  68.       
  69. ## Optional section for Exchange Impersonation      
  70.       
  71. #$service.ImpersonatedUserId = new-object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress, $MailboxName)     
  72. $PidTagAdditionalRenEntryIdsEx = new-object Microsoft.Exchange.WebServices.Data.ExtendedPropertyDefinition(0x36D9, [Microsoft.Exchange.WebServices.Data.MapiPropertyType]::Binary)    
  73. $psPropset = new-object Microsoft.Exchange.WebServices.Data.PropertySet([Microsoft.Exchange.WebServices.Data.BasePropertySet]::FirstClassProperties)    
  74. $psPropset.Add($PidTagAdditionalRenEntryIdsEx)    
  75.     
  76. # Bind to the NON_IPM_ROOT Root folder      
  77. $folderid= new-object Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Root,$MailboxName)       
  78. $NON_IPM_ROOT = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service,$folderid,$psPropset)    
  79. $binVal = $null;    
  80. $AdditionalRenEntryIdsExCol = @{}    
  81. if($NON_IPM_ROOT.TryGetProperty($PidTagAdditionalRenEntryIdsEx,[ref]$binVal)){    
  82.     $hexVal = [System.BitConverter]::ToString($binVal).Replace("-","");    
  83.     ##Parse Binary Value first word is Value type Second word is the Length of the Entry    
  84.     $Sval = 0;    
  85.     while(($Sval+8) -lt $hexVal.Length){    
  86.         $PtypeVal = $hexVal.SubString($Sval,4)    
  87.         $PtypeVal = $PtypeVal.SubString(2,2) + $PtypeVal.SubString(0,2)    
  88.         $Sval +=12;    
  89.         $PropLengthVal = $hexVal.SubString($Sval,4)    
  90.         $PropLengthVal = $PropLengthVal.SubString(2,2) + $PropLengthVal.SubString(0,2)    
  91.         $PropLength = [Convert]::ToInt64($PropLengthVal, 16)    
  92.         $Sval +=4;    
  93.         $ProdIdEntry = $hexVal.SubString($Sval,($PropLength*2))    
  94.         $Sval += ($PropLength*2)    
  95.         #$PtypeVal + " : " + $ProdIdEntry    
  96.         $AdditionalRenEntryIdsExCol.Add($PtypeVal,$ProdIdEntry)     
  97.     }       
  98. }    
  99.     
  100. function ConvertFolderid($hexId){    
  101.     $aiItem = New-Object Microsoft.Exchange.WebServices.Data.AlternateId      
  102.     $aiItem.Mailbox = $MailboxName      
  103.     $aiItem.UniqueId = $hexId    
  104.     $aiItem.Format = [Microsoft.Exchange.WebServices.Data.IdFormat]::HexEntryId;      
  105.     return $service.ConvertId($aiItem, [Microsoft.Exchange.WebServices.Data.IdFormat]::EWSId)     
  106. }    
  107.   
  108. #Define Function to convert String to FolderPath    
  109. function ConvertToString($ipInputString){    
  110.     $Val1Text = ""    
  111.     for ($clInt=0;$clInt -lt $ipInputString.length;$clInt++){    
  112.             $Val1Text = $Val1Text + [Convert]::ToString([Convert]::ToChar([Convert]::ToInt32($ipInputString.Substring($clInt,2),16)))    
  113.             $clInt++    
  114.     }    
  115.     return $Val1Text    
  116. }   
  117.   
  118.     
  119. if($AdditionalRenEntryIdsExCol.ContainsKey("8001")){    
  120.     $siId = ConvertFolderid($AdditionalRenEntryIdsExCol["8001"])    
  121.     $RSSFolderID = new-object Microsoft.Exchange.WebServices.Data.FolderId($siId.UniqueId.ToString())    
  122.     $RSSFolder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service,$RSSFolderID)   
  123.     if($RSSFolder -ne $null){  
  124.         "Deleteing : " + $RSSFolder.ChildFolderCount.ToString() + " Feeds"  
  125.         $RSSFolder.Empty([Microsoft.Exchange.WebServices.Data.DeleteMode]::SoftDelete, $true);  
  126.     }  
  127. }    

1 comment:

hajjandumrah said...
This comment has been removed by a blog administrator.