为Office365增加密码过期自动提醒功能

最近有人和我反应，无法查看所有员工的Office365的密码过期时间。最好可以批量查看，如果能在过期前几天发个提醒邮件就更好了。

$pw = ConvertTo-SecureString 'your_pwd' -AsPlainText -Force
$creds = New-Object -Typename System.Management.Automation.PSCredential -Argumentlist 'your_id@company.cn', $pw
$mailpw = ConvertTo-SecureString 'your_pwd' -AsPlainText -Force
$mailcreds = New-Object -Typename System.Management.Automation.PSCredential -Argumentlist 'your_mail', $mailpw

Connect-MsolService -Credential $creds
$now = Get-Date
#get-msoluser  | select UserPrincipalName, @{name='lastpasswordchangetimestamp';expression={$_.lastpasswordchangetimestamp.tostring().split(' ')[0]}} | Export-Csv -Path f:\lastpasswordchangetimestamp.csv -Encoding Default

$smtpserver = "your_smtp_server"
$sender = "your_mail"
$cc = "servicedesk@company.cn"
$body = ‘
<html><body>
<h1>提醒</h1>
您的Office 365账号密码即将过期，逾期不修改密码您将无法继续使用邮件功能。关于如何修改Office 365账号密码，请访问<a href="https://company.sharepoint.cn/IT/IT1/Office 365/如何更改office 365密码.docx?d=w6b52d070c5db4d518e76e726fffafbdc">这里</a>。
</body></html>
’
Get-MsolUser | select UserPrincipalName, @{name='delta';expression={($now - $_.lastpasswordchangetimestamp).days}} | foreach {
    if ($_.delta -ge 355) {
        $to = $_.UserPrincipalName
        $subject = "您的Office 365账号密码在" + (365 - $_.delta) + "天后即将过期，请及时修改！"
        Send-MailMessage -SmtpServer $smtpserver -Credential $mailcreds -From $sender -To $to -Cc $cc -Subject $subject -Body $body -BodyAsHtml -Encoding default
        Write-Host $to, "mail sent!"
    }
}