Question : MS Outlook - email de compte

Salut Experts

Is là une manière de compter le nombre d'email une boîte aux lettres spécifique dans notre cokpnay reçoit le journal. Y a il une manière d'obtenir une certaine sorte de rapport ou une certaine manière de courir une commande qui ajoute le nombre d'emais. Peut-être même obtenant ce rapport ou compte envoyé à un autre utilisateur daily. class= de

Réponse : MS Outlook - email de compte

Voici le code pour compter vers le haut des articles.  Suivre ces instructions de l'ajouter aux perspectives.

Perspectives 2003

1.  Commencer les perspectives
2.  Cliquer les outils > le macro > le rédacteur de Visual Basic
3.  Sinon déjà augmenté, augmenter les objets de perspectives de Microsoft Office et cliquer dessus ThisOutlookSession
4.  Copier le code de la boîte d'extrait de code et le coller dans le carreau droit de
5.  Fenêtre de rédacteur du VB des perspectives
6.  Éditer le code comme nécessaire.  J'ai inclus des lignes de commentaire là où que quelque chose a besoin ou peut changer
7.  Cliquer l'icône de disquette sur la barre porte-outils pour sauver les changements
8.  Fermer le rédacteur de VB
9.  Cliquer les outils > le macro > la sécurité
10. Placer le niveau de sécurité au milieu
11. Clôturer les perspectives
12. Commencer les perspectives
13. Les perspectives montreront un avertissement de dialogue-boîte que ThisOutlookSession contient des macros et demander si vous voulez leur permettre de fonctionner.  Dire oui.

Perspectives 2007

1.  Commencer les perspectives
2.  Cliquer les outils > le macro > le rédacteur de Visual Basic
3.  Sinon déjà augmenté, augmenter les objets de perspectives de Microsoft Office et cliquer dessus ThisOutlookSession
4.  Copier le code de la boîte d'extrait de code et le coller dans le carreau droit de la fenêtre de rédacteur du VB des perspectives
5.  Éditer le code comme nécessaire.  J'ai inclus des lignes de commentaire là où que quelque chose a besoin ou peut changer
6.  Cliquer l'icône de disquette sur la barre porte-outils pour sauver les changements
7.  Fermer le rédacteur de VB
8.  Cliquer les outils > le centre de confiance
9.  Cliquer la macro sécurité
10. Placer la macro sécurité aux « avertissements pour tous les macros »
11. Cliquer l'OK
12. Clôturer les perspectives
13. Commencer les perspectives.  Les perspectives montreront un avertissement de dialogue-boîte que ThisOutlookSession contient des macros et demander si vous voulez leur permettre de fonctionner.  Dire oui.

Une fois que vous avez le code en place et nous savons qu'il compte les articles, puis je signalerai le code pour rechercher le compte.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 :

Faible olkInbox de WithEvents comme Outlook.Items Application_Quit secondaire privé () Placer l'olkInbox = rien Finir le sous-marin Application_Startup secondaire privé () Placer l'olkInbox = le Session.GetDefaultFolder (olFolderInbox). Articles Sous-marin d'extrémité olkInbox_ItemAdd secondaire privé (article de ByVal comme objet) S'Item.Class = puis olMail Add2Count Finir si Finir le sous-marin Substrater Add2Count () « Éditer le chemin sur la prochaine ligne » Const FILE_PATH = « c:\Users\David\Documents\ » Faible objFSO comme objet, objFile comme objet, lngCounter en tant que longtemps, strDate comme corde lngCounter = 0 strDate = format (date, « yyyy-millimètre-densité double ») Placer l'objFSO = le CreateObject (« Scripting.FileSystemobject ») Si objFSO.FileExists (FILE_PATH et strDate et « .txt ») puis objFile réglé = objFSO.OpenTextFile (FILE_PATH et strDate et « .txt », ForReading) lngCounter = objFile.ReadAll Autrement objFile réglé = objFSO.CreateTextFile (FILE_PATH et strDate et « .txt ») Finir si objFile.Close lngCounter = lngCounter + 1 objFile réglé = objFSO.CreateTextFile (FILE_PATH et strDate et « .txt ») lngCounter d'objFile.Write objFile.Close objFile réglé = rien Placer l'objFSO = rien Finir le sous-marin