office365为新建账号发送欢迎邮件

5534

在日常中，有新同事入职了，需要为新入职的同事发送欢迎邮件，并附上相应的入职ppt及一些常用小工具，这个可以系统自动发送来实现，下面是为新建的属于杭州的邮箱用户发送欢迎邮件，可以根据下面的来修改，修改发件人，发送服务器和一些附件内容。
import-module activedirectory
#昨天开通用户
$date=((Get-Date).AddDays(-1)).date
$people=Get-ADUser -Filter {(created -ge$date) -and (city -eq "杭州")} -Properties mail
$users=$people.mail
if ($users.count -gt 0 ) {

#筛选出需要发送的列表
$Deliveredname=Get-ContentD:\ps\WelcomeNewEmployees\delivered.txt
foreach ($user in $users) {
$msoluser=(Get-MsolUser -UserPrincipalName$user).IsLicensed
$msoluser
if ($msoluser) {
echo 1
echo $user
$Delivered=$Delivered + $user-split("`n")
}
}
#$Delivered
Out-File -FilePathD:\ps\WelcomeNewEmployees\delivered.txt -Force -InputObject $Delivered-Encoding unicode
#$Delivered | Export-Csv -Encoding Unicode-NoTypeInformation D:\ps\WelcomeNewEmployees\delivered.csv
if ( $Deliveredname -ne $null) {
$DeliveredLists=Compare-Object $Delivered$Deliveredname | ? {$_.sideindicator -eq '<='} |select inputobject
$DeliveredLists=$DeliveredLists.inputobject
}
else {
$DeliveredLists=$Delivered
}
}

#发送邮件通知

$emailbody="
Hi，NEW DPER ！

欢迎你加入DP ！

我是DP杭州IT杨晨光，附件中有一份告诉你如何使用IT工具的PPT，我在702，QQ为584026266，企业QQ可以在你登陆后可以直接查找我的名字找到我（企业QQ下载地址http://qyqq.dp.com），有问题欢迎骚扰。

IT常见问题可以访问http://help.dp.com
"
#发送附件
if ($DeliveredLists.count -gt 0) {
foreach ($DeliveredList in $DeliveredLists){
send-mailmessage -From chenguang.yang@dp.com-to $DeliveredList -SmtpServer sendmail.dp.com -Subject "杭州IT杨晨光给新同事的一封信"-Body "$emailbody" -Encoding utf8 -Attachments"D:\ps\WelcomeNewEmployees\windows下打印机自动安装工具.zip","D:\ps\WelcomeNewEmployees\Welcome new employees.pptx"
}
}


$emailbodyreport="
已经发送名单(已经发送欢迎邮件的邮箱名单)
$DeliveredLists
"
Send-MailMessage -From itsupport@dp.com -tochenguang.yang@dp.com -SmtpServer sendmail.dp.com -Subject "       " -Body $emailbodyreport -Encoding utf8