Vraag : MS Outlook - Telling e-mail

Hallo dagelijks ontvangt Experts

Is daar een manier om het aantal e-mail te tellen een specifieke brievenbus in onze cokpnay. Is daar een manier om één of andere soort rapport te krijgen of één of andere manier om een bevel in werking te stellen dat het aantal emais toevoegt. Misschien zelfs wordend deze die rapport of telling aan een andere gebruiker daily. met de elektronische post wordt verstuurd

Antwoord : MS Outlook - Telling e-mail

Hier is de code voor omhoog het tellen van de punten.  Volg deze instructies om het aan Vooruitzichten toe te voegen.

Vooruitzichten 2003

1.  De Vooruitzichten van het begin
2.  Klik Hulpmiddelen > Macro > Visuele BasisRedacteur
3.  Als niet reeds uitgebreid, breid de Voorwerpen van de Vooruitzichten van Microsoft Office uit en klik op ThisOutlookSession
4.  Kopi�ër de code van de doos van het Fragment van de Code en kleef het in de rechtse ruit van
5.  Het venster van de Redacteur van VB van vooruitzichten
6.  Geef de code uit zoals nodig.  Ik omvatte commentaarlijnen waar iets aan vereist of kan veranderen
7.  Klik het diskettepictogram op de toolbar om de veranderingen te bewaren
8.  Sluit de Redacteur VB
9.  Klik Hulpmiddelen > Macro > Veiligheid
10. Bepaal het Niveau van de Veiligheid aan Middel
11. Sluit Vooruitzichten
12. Begin Vooruitzichten
13. De vooruitzichten zullen een dialoog-doos waarschuwing tonen dat ThisOutlookSession macro's en het vragen van bevat of wilt u hen toestaan om te lopen.  Zeg ja.

Vooruitzichten 2007

1.  De Vooruitzichten van het begin
2.  Klik Hulpmiddelen > Macro > Visuele BasisRedacteur
3.  Als niet reeds uitgebreid, breid de Voorwerpen van de Vooruitzichten van Microsoft Office uit en klik op ThisOutlookSession
4.  Kopi�ër de code van de doos van het Fragment van de Code en kleef het in de rechtse ruit van het venster van de Redacteur van VB van Vooruitzichten
5.  Geef de code uit zoals nodig.  Ik omvatte commentaarlijnen waar iets aan vereist of kan veranderen
6.  Klik het diskettepictogram op de toolbar om de veranderingen te bewaren
7.  Sluit de Redacteur VB
8.  Klik Hulpmiddelen > het Centrum van het Vertrouwen
9.  Klik MacroVeiligheid
10. Plaats MacroVeiligheid aan „Waarschuwingen voor alle macro's“
11. Klik O.K.
12. Sluit Vooruitzichten
13. Begin Vooruitzichten.  De vooruitzichten zullen een dialoog-doos waarschuwing tonen dat ThisOutlookSession macro's en het vragen van bevat of wilt u hen toestaan om te lopen.  Zeg ja.

Zodra u de code op zijn plaats hebt en wij het weten telt het de punten, dan zal ik de code voor het terugwinnen van de telling posten.
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:

Schemerige WithEvents olkInbox als Outlook.Items

Privé SubApplication_Quit ()
    Reeks olkInbox = niets
Sub van het eind

Privé SubApplication_Startup ()
    Reeks olkInbox = Session.GetDefaultFolder (olFolderInbox). Punten
Sub van het eind

Privé SubolkInbox_ItemAdd (Punt ByVal als Voorwerp)
    Als Item.Class = olMail toen
        Add2Count
    Eind als
Sub van het eind

Sub Add2Count ()
    „Geef de weg op de volgende lijn uit“
    Const FILE_PATH = „c:\Users\David\Documents\“
    Schemerige objFSO als Voorwerp, objFile als Voorwerp, lngCounter zo lang, strDate zoals Koord
    lngCounter = 0
    strDate = Formaat (Datum, „yyyy-mm-dd“)
    Reeks objFSO = CreateObject („Scripting.FileSystemobject“)
    Als objFSO.FileExists (FILE_PATH & strDate & „.txt“) Dan
        Vastgestelde objFile = objFSO.OpenTextFile (FILE_PATH & strDate & „.txt“, ForReading)
        lngCounter = objFile.ReadAll
    Anders
        Vastgestelde objFile = objFSO.CreateTextFile (FILE_PATH & strDate & „.txt“)
    Eind als
    objFile.Close
    lngCounter = lngCounter + 1
    Vastgestelde objFile = objFSO.CreateTextFile (FILE_PATH & strDate & „.txt“)
    objFile.Write lngCounter
    objFile.Close
    Vastgestelde objFile = niets
    Reeks objFSO = niets
Sub van het eind
Andere oplossingen  
 
programming4us programming4us