[OL-2003] [powershell] Equivalent pour outllook 2003 [Résolu]

[bleuerouge]

Bonjour,
J'ai développé un script me permettant de récupérer les informations de chaque archive dans Outlook. Pour cela j'utilise une fonction comprise dans ce morceau de script :

Code :

1
2
3
4
5
6
7
8
 
 
function GetPersoInbox
{
$outlook = New-Object -comObject Outlook.Application
$mailPerso = $outlook.Session.Stores | where { ($_.DisplayName -like 'Boîte aux lettres - Perso)}
return $mailPerso.GetRootFolder().folders | where {($_.Name -like "Boîte de réception")}
}

Or ce script fonctionne avec Outlook 2007 mais pas du tout avec la version 2003 qui renvoi toujours null.

Y a t il un moyen de rendre cette fonction compatible avec les deux versions ?

Merci d'avance

[carden752]

Bonjour,

C'est normal, Outlook 2003 ne possède pas l'objet $outlook.Session.Stores.
Essayez de remplacer l'objet stores par l'objet folders.

Pas sur non plus qu'il existe GetRootFolder, peut-être une boucle en testant la valeur de folders(index). Je ne suis pas spécialiste PowerShell, mais je vois ces deux problèmes sur Outlook 2003, donc à retraduire en langage powershell.

function GetPersoInbox
{
$outlook = New-Object -comObject Outlook.Application
$mailPerso = $outlook.Session.Stores | where { ($_.DisplayName -like 'Boîte aux lettres - Perso)}
return $mailPerso.GetRootFolder().folders | where {($_.Name -like "Boîte de réception")}
}

Cela donnerait quelque chose de ce type à essayer

Code :

1
2
3
4
5
6
function GetPersoInbox
{
$outlook = New-Object -comObject Outlook.Application
$mailPerso = $outlook.Session.Folders | where{ ($_.DisplayName -like 'Boîte aux lettres - Perso)}
return $mailPerso.folders(index) | where {($_.Name -like "Boîte de réception")}
}

[bleuerouge]

Bonjour,
Désolé ça ne marche pas, il semble y avoir un probleme dans le script.

[bleuerouge]

Y a t il une possibilité de lister les boites aux lettres d'outllok 2003 ? Et ce dans n'importe quel langage ?

[carden752]

Bonjour,

Tu as bien remplacer "index" par un nombre parce qu'en VBA, c'est bien cela normalement.
Ou est-ce qu'il y a une erreur?
car en VBA, j'ai cela qui marche

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub list_boite()
Dim mySentbox As Outlook.MAPIFolder
Dim i As Integer
Dim j As Integer
i = 1
For Each mySentbox In Outlook.Session.Folders
    j = 1
    While j <= mySentbox.Folders.Count
        Debug.Print (mySentbox.Folders.Item(j))
        j = j + 1
    Wend
    i = i + 1
Next
 
End Sub

Tu peux peut-être t'en inspirer.

[bleuerouge]

Voila j'ai trouvé la bonne formule :

Code :

1
2
3
4
5
6
7
 
function GetPersoInbox
{
$outlook = New-Object -comObject Outlook.Application
$mailPerso = $outlook.Session.Folders | where{ ($_.Name -like 'Boîte aux lettres - Perso)}
return $mailPerso.Folders | where {($_.Name -like "Boîte de réception")}
}

Tout simplement car tout est considéré comme des MAPIFolders.