Exchange 2013 - 특정 그룹 메시지 수/발신 건수 추출(2)

시나리오

대상 : extensionattribute15=1860인 Ad 메일 계정

추출 범위 : 특정월 기준 @testlab.net에서 외부 메일로 발송된 메시지 로그 추출하기

 

$result = @()
$senders = @()
$count = 0
$servers = @()
$senders = (Get-ADUser -LDAPFilter "(&(objectclass=user)(mail=*)(extensionattribute15=1860))" `
-SearchScope Subtree -SearchBase "OU=testlab,DC=testlab,DC=net" | `
where {$_.enabled -eq $true }).UserPrincipalName | get-mailbox | `
Select WindowsEmailAddress
Write-Host "Senders Imported"
#$servers = Get-ClientAccessServer | ?{$_.name -ne "UM-MAILIN01"} 

$servers = Get-ClientAccessServer 
Write-Host "Getting CAS Server List..."

foreach($server IN $servers){
Write-Host "Starting to get trackinglogs In " + $server + "..."
    foreach($sender IN $senders)
    {
        $count += 1
        # 진행률 표시
        Write-Host "Working... : " $sender.WindowsEmailAddress " (" $Server ") " `
        			(($count/($senders.Count*21))*100)%
        $sendresult_ex += (Get-MessageTrackingLog -Server $server -ResultSize `
        					unlimited -Sender $sender.WindowsEmailAddress.ToString() `
                            -Start "2021-03-01 00:00:00" -End "2021-03-31 23:59:59" `
                            -EventId SEND | ?{$_.Recipients -notlike '*@testlab.net'} | `
                            select Timestamp, Sender, `
                            @{Name=’Recipients‘; Expression={[string]::join(“;”, ($_.Recipients))}}, `
                            MessageSubject )
	}
}

Write-Host "Starting to export logs..."
$sendresult_ex | Export-Csv \\로그저장서버\C:\대외발송로그.csv -Encoding UTF8 `
				-NoTypeInformation -force 
Write-Host "All done"