在日常中，有新同事入职了，需要为新入职的同事发送欢迎邮件，并附上相应的入职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