在日常中,有新同事入职了,需要为新入职的同事发送欢迎邮件,并附上相应的入职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
本文出自 “绿光爸爸” 博客,请务必保留此出处http://lvguangbaba.blog.51cto.com/1271362/1729480
原文地址:http://lvguangbaba.blog.51cto.com/1271362/1729480