Question

我在Exchange服务器中的邮箱中放了一大堆电子邮件，这些电子邮件来自POP3下载和转发应用程序 - 这意味着＆＃34;已收到＆＃34; datestamp反映了它发送到Exchange的时间，而不是发送时间（最长可达3周）。我知道您可以按发送日期进行过滤，但由于默认的Outlook视图是命令＆＃34;收到＆＃34;我真的很顽固，我正在为我的问题寻找完全倒退的解决方案。

我想改变＆＃34;收到＆＃34;标题信息反映＆＃34;已发送的＆＃34;标题的一部分，然后将更改应用回邮箱。目前，我所能做到的只是想出一种通过Powershell读取标题信息的方法，但一直无法回复它。

我可以通过PS或PHP打开任何方法。

任何建议都将不胜感激！

Answer 1

您使用的是什么版本的Exchange？您可以使用Exchange Web服务访问服务器吗？如果可以，那么您应该能够访问已发送和已接收时间的扩展属性并在必要时修改它们，例如，如果发送和接收时间之间的差异，以下将枚举收件箱中的所有消息并修改接收日期超过60分钟

    ## Get the Mailbox to Access from the 1st commandline argument

$MailboxName = $args[0]

## Load Managed API dll  

###CHECK FOR EWS MANAGED API, IF PRESENT IMPORT THE HIGHEST VERSION EWS DLL, ELSE EXIT
$EWSDLL = (($(Get-ItemProperty -ErrorAction SilentlyContinue -Path Registry::$(Get-ChildItem -ErrorAction SilentlyContinue -Path 'Registry::HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Exchange\Web Services'|Sort-Object Name -Descending| Select-Object -First 1 -ExpandProperty Name)).'Install Directory') + "Microsoft.Exchange.WebServices.dll")
if (Test-Path $EWSDLL)
    {
    Import-Module $EWSDLL
    }
else
    {
    "$(get-date -format yyyyMMddHHmmss):"
    "This script requires the EWS Managed API 1.2 or later."
    "Please download and install the current version of the EWS Managed API from"
    "http://go.microsoft.com/fwlink/?LinkId=255472"
    ""
    "Exiting Script."
    exit
    }

## Set Exchange Version  
$ExchangeVersion = [Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP2  

## Create Exchange Service Object  
$service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService($ExchangeVersion)  

## Set Credentials to use two options are availible Option1 to use explict credentials or Option 2 use the Default (logged On) credentials  

#Credentials Option 1 using UPN for the windows Account  
$psCred = Get-Credential  
$creds = New-Object System.Net.NetworkCredential($psCred.UserName.ToString(),$psCred.GetNetworkCredential().password.ToString())  
$service.Credentials = $creds      

#Credentials Option 2  
#service.UseDefaultCredentials = $true  

## Choose to ignore any SSL Warning issues caused by Self Signed Certificates  

## Code From http://poshcode.org/624
## Create a compilation environment
$Provider=New-Object Microsoft.CSharp.CSharpCodeProvider
$Compiler=$Provider.CreateCompiler()
$Params=New-Object System.CodeDom.Compiler.CompilerParameters
$Params.GenerateExecutable=$False
$Params.GenerateInMemory=$True
$Params.IncludeDebugInformation=$False
$Params.ReferencedAssemblies.Add("System.DLL") | Out-Null

$TASource=@'
  namespace Local.ToolkitExtensions.Net.CertificatePolicy{
    public class TrustAll : System.Net.ICertificatePolicy {
      public TrustAll() { 
      }
      public bool CheckValidationResult(System.Net.ServicePoint sp,
        System.Security.Cryptography.X509Certificates.X509Certificate cert, 
        System.Net.WebRequest req, int problem) {
        return true;
      }
    }
  }
'@ 
$TAResults=$Provider.CompileAssemblyFromSource($Params,$TASource)
$TAAssembly=$TAResults.CompiledAssembly

## We now create an instance of the TrustAll and attach it to the ServicePointManager
$TrustAll=$TAAssembly.CreateInstance("Local.ToolkitExtensions.Net.CertificatePolicy.TrustAll")
[System.Net.ServicePointManager]::CertificatePolicy=$TrustAll

## end code from http://poshcode.org/624

## 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  

#CAS URL Option 1 Autodiscover  
$service.AutodiscoverUrl($MailboxName,{$true})  
"Using CAS Server : " + $Service.url   

#CAS URL Option 2 Hardcoded  

#$uri=[system.URI] "https://casservername/ews/exchange.asmx"  
#$service.Url = $uri    

## Optional section for Exchange Impersonation  

#$service.ImpersonatedUserId = new-object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress, $MailboxName) 

# Bind to the Inbox Folder
$folderid= new-object Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox,$MailboxName)   
$Inbox = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service,$folderid)

$PR_MESSAGE_DELIVERY_TIME = new-object Microsoft.Exchange.WebServices.Data.ExtendedPropertyDefinition(0x0E06, [Microsoft.Exchange.WebServices.Data.MapiPropertyType]::SystemTime)
$PR_CLIENT_SUBMIT_TIME = new-object Microsoft.Exchange.WebServices.Data.ExtendedPropertyDefinition(0x0039, [Microsoft.Exchange.WebServices.Data.MapiPropertyType]::SystemTime)

$psPropset= new-object Microsoft.Exchange.WebServices.Data.PropertySet([Microsoft.Exchange.WebServices.Data.BasePropertySet]::FirstClassProperties)  
$psPropset.Add($PR_CLIENT_SUBMIT_TIME)
$psPropset.Add($PR_MESSAGE_DELIVERY_TIME)
#Define ItemView to retrive just 1000 Items    
$ivItemView =  New-Object Microsoft.Exchange.WebServices.Data.ItemView(1000)
$ivItemView.PropertySet = $psPropset
$fiItems = $null
$type = ("System.Collections.Generic.List"+'`'+"1") -as "Type"
$type = $type.MakeGenericType("Microsoft.Exchange.WebServices.Data.Item" -as "Type")
$Items = [Activator]::CreateInstance($type)
do{    
    $fiItems = $service.FindItems($Inbox.Id,$ivItemView)    
    foreach($Item in $fiItems.Items){      
        $ClientSubmitTime = $null
        $DeliveryTime = $null
        [Void]$Item.TryGetProperty($PR_CLIENT_SUBMIT_TIME,[ref]$ClientSubmitTime)
        [Void]$Item.TryGetProperty($PR_MESSAGE_DELIVERY_TIME,[ref]$DeliveryTime)
        if($ClientSubmitTime -ne $null -band $DeliveryTime -ne $null){
            $TimeSpan =  NEW-TIMESPAN –Start $ClientSubmitTime –End $DeliveryTime 
            $rptobj = "" | select Action,Subject,DELIVERY_TIME,SUBMIT_TIME,Diff
            $rptobj.Subject = $Item.Subject
            $rptobj.DELIVERY_TIME = $DeliveryTime
            $rptobj.SUBMIT_TIME = $ClientSubmitTime
            $rptobj.Diff = [Math]::Round($TimeSpan.TotalMinutes,0)
            if($TimeSpan.TotalMinutes -lt -60 -bor $TimeSpan.TotalMinutes  -gt 60 ){
                $rptobj.Action = "Processing"
                Write-Output $rptobj
                $Item.SetExtendedProperty($PR_MESSAGE_DELIVERY_TIME,$ClientSubmitTime)
                $Items.Add($Item)       
            }
            else{
                $rptobj.Action = "Skip"
                #Write-host ($rptobj)
            }           
        }

    }    
    $ivItemView.Offset += $fiItems.Items.Count    
}while($fiItems.MoreAvailable -eq $true) 
$BatchUpdateItems = [Activator]::CreateInstance($type)
foreach($Item in $Items){
    $BatchUpdateItems.Add($Item)
    if($BatchUpdateItems.Count -ge 50){
        Write-Host ("Updating " + $BatchUpdateItems.Count)
        $Result = $null
        $Result = $service.UpdateItems($BatchUpdateItems,$SubFolder.Id,[Microsoft.Exchange.WebServices.Data.ConflictResolutionMode]::AlwaysOverwrite,[Microsoft.Exchange.WebServices.Data.MessageDisposition]::SaveOnly,[Microsoft.Exchange.WebServices.Data.SendInvitationsMode].SendToNone)
        [INT]$collectionCount = 0
        [INT]$Rcount = 0  
        [INT]$Errcount = 0
        if($Result -ne $null){
            foreach ($res in $Result){ 
                if ($res.Result -eq [Microsoft.Exchange.WebServices.Data.ServiceResult]::Success){  
                    $Rcount++  
                } 
                else{
                    $Errcount++
                }
                $collectionCount++
            }  
        }
        else{
            Write-Host -foregroundcolor red ("Update Result Null Exception")
        }
        Write-host ($Rcount.ToString() + " Items Updated Successfully " + "Total Processed " + $nmbProcessed + " Total Folder Items " + $Items.Count) 
        if($Errcount -gt 0){
            Write-Host -foregroundcolor red ($Errcount.ToString() + " Error failed Update")
        }
        $BatchUpdateItems.Clear()
    }
}
if($BatchUpdateItems.Count -gt 0){
        Write-Host ("Updating " + $BatchUpdateItems.Count)
        $Result = $null
        $Result = $service.UpdateItems($BatchUpdateItems,$SubFolder.Id,[Microsoft.Exchange.WebServices.Data.ConflictResolutionMode]::AlwaysOverwrite,[Microsoft.Exchange.WebServices.Data.MessageDisposition]::SaveOnly,[Microsoft.Exchange.WebServices.Data.SendInvitationsMode].SendToNone)
        [INT]$collectionCount = 0
        [INT]$Rcount = 0  
        [INT]$Errcount = 0
        if($Result -ne $null){
            foreach ($res in $Result){ 
                if ($res.Result -eq [Microsoft.Exchange.WebServices.Data.ServiceResult]::Success){  
                    $Rcount++  
                } 
                else{
                    $Errcount++
                }
                $collectionCount++
            }  
        }
        else{
            Write-Host -foregroundcolor red ("Update Result Null Exception")
        }
        Write-host ($Rcount.ToString() + " Items Updated Successfully " + "Total Processed " + $nmbProcessed + " Total Folder Items " + $Items.Count) 
        if($Errcount -gt 0){
            Write-Host -foregroundcolor red ($Errcount.ToString() + " Error failed Update")
        }
        $BatchUpdateItems.Clear()
}

干杯格伦

修改邮箱中的电子邮件标题

1 个答案: