Oliv-

Bonjour,
Pour progresser en VBA il est nécessaire de connaitre les fonctions de débogage.

Le mode Pas à pas, les espions, la fenêtre exécution, la fenêtre des variables Locales.

Le mode pas à pas ne retourne pas forcement d'erreur, il permet d’exécuter chaque instruction avec une pause pour voir ce qui se passe.

Les vrais erreurs feront stopper le code même sans cela !

Par contre ça permet de voir si un test ou une boucle se fait ...

Salut,
Voici la solution pour des BAL Exchange, je n'ai pas testé sur des pst.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10

Sub StoresSize()
'---------------------------------------------------------------------------------------
' Procedure : StoresSize
' Author    : Oliv-
' Date      : 15/04/2015
' Purpose   : Taille des BAL exchanges via VBA OUTLOOK 2010
'---------------------------------------------------------------------------------------
'

...

S'il vous arrive cette mésaventure

Vérifiez que le complément existe :

Menu Fichier/Options /Compléments -->"Microsoft Outlook Social Connector"

Qu'il n'est pas désactivé :

Menu Fichier/Options /Compléments/Gérer : Choississez dans le menu déroulant : "Eléments désactivés"

Que votre entreprise n'a pas mis de GPO

En résumé du lien ci-dessous vérifiez dans le registre si vous avez une clef Clé : HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\Outlook\SocialConnector

...

Envoyé par Oliv-

Voici une solution quasi clef en main ! A l'envoi le programme test si la structure de nom de dossier est présente ici #XM et cherche le mot complet ici #XM346, puis le classe dans le sous-dossier (créé s'il n'existe pas) du dossier Diffusion se trouvant dans la boite de réception.

et à la réception classe les Emails contenant cette même structure de la même façon.

Code à copier dans ThisOutlookSession

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Sub Application_ItemSend(ByVal Item As Object,

...

Envoyé par Oliv-

Quand on utilises OUTLOOK à partir d'un autre programme, il faut déclarer

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objApp =createobject("outlook.application")

alors que si on utilise une macro dans outlook c'est

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objApp = Application

(ou alors dans ce dernier cas c'est implicite on n'est pas obligé de la déclarer)

ensuite l'objet objApp doit précéder chaque commande spécifique outlook comme dans le bout de code que je t'ai donné

dans le code du précédent POST outlook

...