MailGorupMemeber Export to excel

利用ems实现mailgroup member 导出到excel,并设置格式。

 

# This script should be run in  Exchange powershell Environment.It will export
# members of mailgroup that start with manu、 pc、 qa、and pe into the excel.

################################
# open a excel file
################################
$exl = new-object -comobject excel.application

$exl.visible = $true

$wb = $exl.workbooks.add()

$ws = $wb.worksheets.Item(1)

################################################################
#get distributionggroups that start with  

$mailgp = get-distributiongroup |select-string "^manu|^pc|^qa|^pe"

###############################################################
#get members of the distributiongroup
###############################################################

$y=1
foreach ($gp in $mailgp)
 {
  $title = get-distributiongroup -identity "$gp" |select name
 
  $ws.cells.item(1,$y)= $title.name
 
  $members = get-distributiongroupmember -identity "$gp" |select name
 
  $x=2
  foreach ($member in $members)
   {
   $ws.cells.item($x,$y) = $member.name
     $x++
     } 
  $y++
  }
 
 #####################################################################
 #set the excel style
 #####################################################################
 
$lineStyle = "microsoft.office.interop.excel.xlLineStyle" -as [type]
$colorIndex = "microsoft.office.interop.excel.xlColorIndex" -as [type]
$borderWeight = "microsoft.office.interop.excel.xlBorderWeight" -as [type]
$chartType = "microsoft.office.interop.excel.xlChartType" -as [type]

$colcon=$mailgp.count

for($b = 1 ; $b -le $colcon ; $b++)
{
 $ws.cells.item(1,$b).columnWidth= 14
# $ws.item(1,$b).font.bold = $true
 $ws.cells.item(1,$b).borders.LineStyle = $lineStyle::xlcontinuous
 $ws.cells.item(1,$b).borders.ColorIndex = $colorIndex::xlColorIndexAutomatic
 $ws.cells.item(1,$b).borders.weight = $borderWeight::xlMedium
}