Script repository

$daysNumberParameter = "param-MyParam" # TODO: modify me

# CSV file settings
$csvFilePath = "C:\Scripts\Report.csv" # TODO: modify me
$removeCsvFile = $True # TODO: modify me

# Email settings
$recipient = "recipient@domain.com" # TODO: modify me
$from = "noreply@domain.com" # TODO: modify me
$subject = "My Subject" # TODO: modify me
$message = "My Message" # TODO: modify me
$smtpServer = "mail.domain.com" # TODO: Modify me

# Get parameter value.
$daysNumber = $Context.GetParameterValue($daysNumberParameter)

# Get email address.
if ($Context.TargetObject.RecipientLocation -eq "ADM_EXCHANGERECIPIENTLOCATION_NONE")
{
    $Context.LogMessage("The object does not have an Exchange mailbox", "Error")
    return
}

$mailboxParams = $Context.TargetObject.GetMailParameters()
$emailAddresses = $mailboxParams.EmailAddresses
for ($i = 0; $i -lt $emailAddresses.Count; $i++)
{
    $emailAddress = $emailAddresses.GetAddress($i,[ref]"ADS_PROPERTY_NONE")
    if ($emailAddress.Prefix -eq "smtp" -and $emailAddress.IsPrimary)
    {
        $recipientAddress = $emailAddress.Address
        break
    }
}

# Get trace end date.
$today = Get-Date
$tenDaysAgo = $today.AddDays(- $daysNumber)

# Connect to Exchange Online.
$Context.CloudServices.ConnectExchangeOnline() 

# Get the message trace.
try
{
    $messageTrace = Get-MessageTraceV2 -RecipientAddress $recipientAddress -StartDate $tenDaysAgo -EndDate $today -ErrorAction Stop | Sort Received -Descending
}
catch
{
    $Context.LogMessage("An error occurred while getting messages trace. Error: " + $_.Exception.Message, "Error")
    return
}

if ($NULL -eq $messageTrace)
{
    $Context.LogMessage("There were no messages sent.", "Information")
    return
}

$records = New-Object System.Collections.ArrayList
foreach ($item in $messageTrace)
{
    $record = New-Object PSObject -Property @{
        "SenderAddress" = $item.SenderAddress
        "Received" = $item.Received
        "Subject" = $item.Subject
    }
    $records.Add($record)
}

$records.ToArray() | Export-Csv -Path $csvFilePath -NoTypeInformation

# Send mail
Send-MailMessage -to $recipient -From $from -Subject $subject -Body $message -SmtpServer $smtpServer -Attachments $csvFilePath

if ($removeCSVFile)
{
    # Remove temporary file.
    Remove-Item $csvFilePath -Force
}