Taille d'un repertoire et d'un mail

Re bonjour !
Pour tout élément Outlook (MailItem, ContactItem, etc...), propriété Size !
Sinon, pour le dossier, c'est plus compliqué puisqu'il faut sommer les éléments du dossier (et éventuellement des
sous-dossiers !)
D'où une moulinette avec appel récurrent pour les sous-dossiers.
A+
Isa

"Albator V" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0d8101c4f4a9$62c0cf30$a401280a@phx.gbl...

bonjour,

je voudrais connaitre le code vba pour avoir la taille
d'un dossier ou d'un mail...

merci d'avance

je test ca mais ca ne fonctionne pas...

Sub test()

Dim objitem As items
Dim objApp As Object

Set objApp = CreateObject("Outlook.Application")
Set objitem = objApp.ActiveExplorer.Selection
MsgBox "Taille :" & objitem.Size
End Sub

:(

-----Message d'origine-----
Re bonjour !
Pour tout élément Outlook (MailItem, ContactItem,
etc...), propriété Size !

Sinon, pour le dossier, c'est plus compliqué puisqu'il
faut sommer les éléments du dossier (et éventuellement des

sous-dossiers !)
D'où une moulinette avec appel récurrent pour les sous-
dossiers.

A+
Isa

"Albator V" <anonymous@discussions.microsoft.com> a
écrit dans le message de news:0d8101c4f4a9$62c0cf30

$a401280a@phx.gbl...

bonjour,

je voudrais connaitre le code vba pour avoir la taille
d'un dossier ou d'un mail...

merci d'avance

.

Normal !
D'abord, une petite question : pourquoi créer un objet Application Outlook, tu n'es pas dans Outlook ?
Ensuite, ActiveExplorer.Selection te renvoie un ou plusieurs éléments, il faut que tu écrives :
ActiveExplorer.Selection.Item(1).Size
ou que tu fasses une boucle
for i=1 to ActiveExplorer.Selection.Count
msgbox ActiveExplorer.Selection.Item(i).Size
next

A+
Isa

"Albator V" <anonymous@discussions.microsoft.com> a écrit dans le message de news:139d01c4f4b0$f6f57780$a601280a@phx.gbl...
je test ca mais ca ne fonctionne pas...

Sub test()

Dim objitem As items
Dim objApp As Object

Set objApp = CreateObject("Outlook.Application")
Set objitem = objApp.ActiveExplorer.Selection
MsgBox "Taille :" & objitem.Size
End Sub

:(

-----Message d'origine-----
Re bonjour !
Pour tout élément Outlook (MailItem, ContactItem,
etc...), propriété Size !

Sinon, pour le dossier, c'est plus compliqué puisqu'il
faut sommer les éléments du dossier (et éventuellement des

sous-dossiers !)
D'où une moulinette avec appel récurrent pour les sous-
dossiers.

A+
Isa

"Albator V" <anonymous@discussions.microsoft.com> a
écrit dans le message de news:0d8101c4f4a9$62c0cf30

$a401280a@phx.gbl...

bonjour,

je voudrais connaitre le code vba pour avoir la taille
d'un dossier ou d'un mail...

merci d'avance

.