Frage : MS Outlook - Zählimpuls-eMail

Hallo empfängt Experts

Is dort eine Weise der Zählung der Zahl eMail ein spezifischer Briefkasten in unserem cokpnay Tageszeitung. Gibt es eine Weise, irgendeine Art des Reports zu erhalten oder irgendeine Weise des Betriebs eines Befehls, der die Zahl emais hinzufügt. Diesen Report oder Zählimpuls gemailt einem anderen Benutzer daily. möglicherweise sogar, erhalten

Antwort : MS Outlook - Zählimpuls-eMail

Ist hier der Code für die Zählung herauf die Einzelteile.  Diese Anweisungen befolgen, ihn Aussicht hinzuzufügen.

Aussicht 2003

1.  Aussicht beginnen
2.  Werkzeuge > Makro- > Visual- Basicherausgeber anklicken
3.  Wenn Sie nicht bereits erweitert werden, Microsoft Office-Aussicht-Gegenstände erweitern und ThisOutlookSession an klicken
4.  Den Code vom Code-Stückchenkasten kopieren und ihn in die rechte Scheibe von kleben
5.  Herausgeberfenster VB der Aussicht
6.  Den Code redigieren, wie gebraucht.  Ich schloß Kommentarzeilen ein, gleichgültig wo, das etwas benötigt oder ändern kann
7.  Die Diskettenikone auf der Symbolleiste anklicken, um die Änderungen zu sparen
8.  Den VB Herausgeber schließen
9.  Werkzeuge > Makro- > Sicherheit anklicken
10. Das Sicherheits-Niveau auf Mittel einstellen
11. Aussicht schließen
12. Aussicht beginnen
13. Aussicht zeigt eine Dialogkasten Warnung an, dass ThisOutlookSession Makro- und das Fragen enthält, ob Sie sie laufen lassen möchten.  Ja sagen.

Aussicht 2007

1.  Aussicht beginnen
2.  Werkzeuge > Makro- > Visual- Basicherausgeber anklicken
3.  Wenn Sie nicht bereits erweitert werden, Microsoft Office-Aussicht-Gegenstände erweitern und ThisOutlookSession an klicken
4.  Den Code vom Code-Stückchenkasten kopieren und ihn in die rechte Scheibe des Herausgeberfensters VB der Aussicht kleben
5.  Den Code redigieren, wie gebraucht.  Ich schloß Kommentarzeilen ein, gleichgültig wo, das etwas benötigt oder ändern kann
6.  Die Diskettenikone auf der Symbolleiste anklicken, um die Änderungen zu sparen
7.  Den VB Herausgeber schließen
8.  Werkzeuge > Vertrauens-Mitte anklicken
9.  Makrosicherheit anklicken
10. Makrosicherheit auf „Warnungen für alle Makro“ einstellen
11. O.K. anklicken
12. Aussicht schließen
13. Aussicht beginnen.  Aussicht zeigt eine Dialogkasten Warnung an, dass ThisOutlookSession Makro- und das Fragen enthält, ob Sie sie laufen lassen möchten.  Ja sagen.

Sobald Sie den Code an der richtigen Stelle haben und wir wissen, dass er die Einzelteile zählt, dann gebe ich den Code für das Zurückholen des Zählimpulses bekannt.
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:
6:
37:

Schwaches WithEvents olkInbox als Outlook.Items

Privates VorApplication_Quit ()
    olkInbox einstellen = nichts
Unterseeboot beenden

Privates VorApplication_Startup ()
    olkInbox = Session.GetDefaultFolder (olFolderInbox) einstellen. Einzelteile
Enden-Unterseeboot

Privates VorolkInbox_ItemAdd (ByVal Einzelteil als Gegenstand)
    Wenn Item.Class = olMail dann
        Add2Count
    Beenden wenn
Unterseeboot beenden

Sub Add2Count ()
    „Den Weg auf der folgenden Linie redigieren“
    Const FILE_PATH = „c:\Users\David\Documents\“
    Schwaches objFSO als Gegenstand, objFile als Gegenstand, lngCounter als lang, strDate als Schnur
    lngCounter = 0
    strDate = Format (Datum, „Yyyy-MillimeterdD“)
    objFSO = CreateObject („Scripting.FileSystemobject“) einstellen
    Wenn objFSO.FileExists (FILE_PATH u. strDate u. „.txt“) dann
        Gesetztes objFile = objFSO.OpenTextFile (FILE_PATH u. strDate u. „.txt“, ForReading)
        lngCounter = objFile.ReadAll
    Sonst
        Gesetztes objFile = objFSO.CreateTextFile (FILE_PATH u. strDate u. „.txt“)
    Beenden wenn
    objFile.Close
    lngCounter = lngCounter + 1
    Gesetztes objFile = objFSO.CreateTextFile (FILE_PATH u. strDate u. „.txt“)
    objFile.Write lngCounter
    objFile.Close
    Gesetztes objFile = nichts
    objFSO einstellen = nichts
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us