Questione : MS Outlook - email di conteggio

Ciao Experts

Is là un senso di conteggio del numero dei email una cassetta postale specifica nel nostro cokpnay riceve il quotidiano. È ci un senso ottenere una certa specie del rapporto o un certo senso di corsa dell'ordine che aggiunge il numero dei emais. Forse persino ottenendo questo rapporto o conteggio inviato con la posta elettronica ad un altro utente daily. class= del

Risposta : MS Outlook - email di conteggio

Qui è il codice per il conteggio sugli articoli.  Seguire queste istruzioni aggiungerlo alla prospettiva.

Prospettiva 2003

1.  Iniziare la prospettiva
2.  Scattare gli attrezzi > la macro > il redattore del Visual Basic
3.  Se non già in espansione, ampliare gli oggetti di prospettiva di Microsoft Office e scattare sopra ThisOutlookSession
4.  Copiare il codice dalla scatola del frammento di codice ed incollarlo nella lastra di vetro destra di
5.  Finestra del redattore di VB della prospettiva
6.  Pubblicare il codice come stato necessario.  Ho compreso le linee di commento laddove che qualcosa ha bisogno di o che può cambiare
7.  Scattare l'icona del dischetto sull'tavoletta porta-utensili per conservare i cambiamenti
8.  Chiudere il redattore di VB
9.  Scattare gli attrezzi > la macro > la sicurezza
10. Fissare il livello di sicurezza al mezzo
11. Chiudere la prospettiva
12. Iniziare la prospettiva
13. La prospettiva visualizzerà un avvertimento della dialogo-scatola che ThisOutlookSession contiene le macro e chiedere se volete permetterli di funzionare.  Dire sì.

Prospettiva 2007

1.  Iniziare la prospettiva
2.  Scattare gli attrezzi > la macro > il redattore del Visual Basic
3.  Se non già in espansione, ampliare gli oggetti di prospettiva di Microsoft Office e scattare sopra ThisOutlookSession
4.  Copiare il codice dalla scatola del frammento di codice ed incollarlo nella lastra di vetro destra della finestra del redattore di VB della prospettiva
5.  Pubblicare il codice come stato necessario.  Ho compreso le linee di commento laddove che qualcosa ha bisogno di o che può cambiare
6.  Scattare l'icona del dischetto sull'tavoletta porta-utensili per conservare i cambiamenti
7.  Chiudere il redattore di VB
8.  Scattare gli attrezzi > il centro di fiducia
9.  Scattare la sicurezza a macroistruzione
10. Fissare la sicurezza a macroistruzione “agli avvertimenti per tutte le macro„
11. Scattare l'APPROVAZIONE
12. Chiudere la prospettiva
13. Iniziare la prospettiva.  La prospettiva visualizzerà un avvertimento della dialogo-scatola che ThisOutlookSession contiene le macro e chiedere se volete permetterli di funzionare.  Dire sì.

Una volta che avete il codice sul posto e sappiamo che sta contando gli articoli, quindi invierò il codice per il richiamo del conteggio.
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:

olkInbox fioco di WithEvents come Outlook.Items

Application_Quit secondario riservato ()
    Regolare il olkInbox = niente
Concludere il sommergibile

Application_Startup secondario riservato ()
    Regolare il olkInbox = Session.GetDefaultFolder (olFolderInbox). Articoli
Sommergibile dell'estremità

olkInbox_ItemAdd secondario riservato (articolo di ByVal come oggetto)
    Se Item.Class = olMail allora
        Add2Count
    Concluder se
Concludere il sommergibile

Sub Add2Count ()
    “Pubblicare il percorso sulla linea seguente„
    Const FILE_PATH = “c:\Users\David\Documents\„
    objFSO fioco come oggetto, objFile come oggetto, lngCounter come lungamente, strDate come stringa
    lngCounter = 0
    strDate = disposizione (data, “yyyy-millimetro-dd„)
    Regolare il objFSO = CreateObject (“Scripting.FileSystemobject„)
    Se objFSO.FileExists (FILE_PATH & strDate & “.txt„) allora
        objFile stabilito = objFSO.OpenTextFile (FILE_PATH & strDate & “.txt„, ForReading)
        lngCounter = objFile.ReadAll
    Altrimenti
        objFile stabilito = objFSO.CreateTextFile (FILE_PATH & strDate & “.txt„)
    Concluder se
    objFile.Close
    lngCounter = lngCounter + 1
    objFile stabilito = objFSO.CreateTextFile (FILE_PATH & strDate & “.txt„)
    lngCounter di objFile.Write
    objFile.Close
    objFile stabilito = niente
    Regolare il objFSO = niente
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us