Question Public Folder - Exchange 2003

Merci de ton aide,

J'ai donc opté pour l'objet Com qui répond parfaitement à mon besoin

je me suis basé sur cet exemple de code qui liste les éléments d'un calendrier \"testcal\" dans un dossier public :

[code:1]$ol = new-object -com outlook.application
$ns = $ol.getNamespace(\"MAPI\"«»)
$pf = $ns.Session.GetDefaultFolder(18)
$pf.folders.Item(\"testCal\"«»).items | ft Subject,Start,End -a [/code:1]

Cet exemple est issu du forum :

www.powershellcommunity.org/Forums/tabid...v/topic/Default.aspx

J'en profite pour vous laisser un script qui génère une Windows Form, qui recupère l'object wmi Exchange_Mailbox, affiche la taille des mailboxes et permet ensuite de filtrer la liste obtenue sur le champ MailboxDisplayName


[code:1]function FillGrid
{
#vide le datagrid
$dataGrid_liste.DataSource = $null

$myDataSet = New-Object system.data.DataSet(\"myDataSet\"«»)

#Création de la DataTable \"Clients\"
$tClients = New-Object system.data.DataTable(\"Clients\"«»)

#Création des colonnes, et ajout de ces colonnes à la table.
$tClients.Columns.Add((new-object system.data.DataColumn(\"User\"«»)))
$tClients.Columns.Add((new-object system.data.DataColumn(\"Mailbox Size (Mo)\"«»)))
$tClients.Columns.Add((new-object system.data.DataColumn(\"Total Items\"«»)))
$tClients.Columns.Add((new-object system.data.DataColumn(\"Store Name\"«»)))

#on n'affiche pas les comptes SystemMailBox et on filtre les comptes selon le texte du controle $textBox_search
$liste | Where { $_.MailboxDisplayName -notmatch \"SystemMailBox\" } `
| Where { $_.MailboxDisplayName -notmatch \"SMTP\" } `
| Where { $_.MailboxDisplayName -match $textBox_search.text } `
| foreach {
$size=$_.Size
$size=[Math]::round($size/1KB,2)
$tClients.Rows.Add($_.MailboxDisplayName,$size,$_.TotalItems,$_.StoreName)
}

#Ajout de la Table \"Clients\" au DataSet
$myDataSet.Tables.Add($tClients)
#Ajout du DataSet au DataGrid pour affichage
$dataGrid_liste.DataSource = $myDataSet.Tables[\"Clients\"]

}


#Generated Form Function
function GenerateForm {
########################################################################
# Code Generated By: SAPIEN Technologies PrimalForms v1.0.1.0
# Generated On: 10/02/09 2:40
# Generated By: clem
########################################################################

#region Import the Assembles
[reflection.assembly]::loadwithpartialname(\"System.Windows.Forms\"«») | Out-Null
[reflection.assembly]::loadwithpartialname(\"System.Drawing\"«») | Out-Null
#endregion

#region Generated Form Objects
$form1 = New-Object System.Windows.Forms.Form
$button_search = New-Object System.Windows.Forms.Button
$textBox_search = New-Object System.Windows.Forms.TextBox
$dataGrid_liste = New-Object System.Windows.Forms.DataGrid
#endregion Generated Form Objects

#

---

#Generated Event Script Blocks
#

---

#Provide Custom Code for events specified in PrimalForms.
$handler_form1_Load=
{
cls
$servername=\"NOM_DU_SERVEUR_EXCHANGE\"
#requete wmi
[Object[]]$script:liste=gwmi Exchange_Mailbox -Namespace ROOT\MicrosoftExchangev2 -computer $servername `
| select-object MailboxDisplayName,TotalItems,Size,StoreName
#remplissage du controle datagrid_liste
FillGrid
}

$button_search_OnClick=
{
#remplissage du controle datagrid_liste
FillGrid
}

#

---

#region Generated Form Code
$form1.Text = 'MailBox Size'
$form1.MaximizeBox = $False
$form1.Name = 'form1'
$form1.SizeGripStyle = 2
$form1.AutoScaleMode = 3
$form1.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 651
$System_Drawing_Size.Height = 668
$form1.ClientSize = $System_Drawing_Size
$form1.FormBorderStyle = 2
$form1.add_Load($handler_form1_Load)

$button_search.TabIndex = 1
$button_search.Name = 'button_search'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 145
$System_Drawing_Size.Height = 20
$button_search.Size = $System_Drawing_Size
$button_search.UseVisualStyleBackColor = $True

$button_search.Text = 'Search'

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 251
$System_Drawing_Point.Y = 33
$button_search.Location = $System_Drawing_Point
$button_search.DataBindings.DefaultDataSourceUpdateMode = 0
$button_search.add_Click($button_search_OnClick)

$form1.Controls.Add($button_search)

$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 204
$System_Drawing_Size.Height = 20
$textBox_search.Size = $System_Drawing_Size
$textBox_search.DataBindings.DefaultDataSourceUpdateMode = 0
$textBox_search.Name = 'textBox_search'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 17
$System_Drawing_Point.Y = 33
$textBox_search.Location = $System_Drawing_Point
$textBox_search.TabIndex = 0
$textBox_search.add_TextChanged($handler_textBox1_TextChanged)

$form1.Controls.Add($textBox_search)

$dataGrid_liste.AlternatingBackColor = [System.Drawing.Color]::FromArgb(255,166,202,240)
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 622
$System_Drawing_Size.Height = 585
$dataGrid_liste.Size = $System_Drawing_Size
$dataGrid_liste.DataBindings.DefaultDataSourceUpdateMode = 0
$dataGrid_liste.RowHeadersVisible = $False
$dataGrid_liste.HeaderForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)
$dataGrid_liste.Name = 'dataGrid_liste'
$dataGrid_liste.TabStop = $False
$dataGrid_liste.ReadOnly = $True
$dataGrid_liste.DataMember = ''
$dataGrid_liste.PreferredColumnWidth = 150
$dataGrid_liste.TabIndex = 2
$dataGrid_liste.BackColor = [System.Drawing.Color]::FromArgb(255,212,208,200)
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 17
$System_Drawing_Point.Y = 69
$dataGrid_liste.Location = $System_Drawing_Point
$dataGrid_liste.CaptionVisible = $False

$form1.Controls.Add($dataGrid_liste)

#endregion Generated Form Code

#Show the Form
$form1.ShowDialog()| Out-Null

} #End Function

#Call the Function
GenerateForm
[/code:1]<br><br>Message édité par: clem, à: 24/06/09 11:09