Fråga : MS Outlook - räkningse-post

Hi Experts

Is där a långt av att räkna numrera av e-post som en specifik brevlåda i vårt cokpnay mottar dagligen. Finns det a långt som får något, sorterar av rapport eller någon långt av spring en befalla som tillfogar numrera av emais. Få kanske även denna rapport eller räkning emailed till en annan användare daily. " klar "

Svar : MS Outlook - räkningse-post

Är här kodifiera för att räkna upp objekten.  Följ dessa anvisningar att tillfoga den till framtidsutsikten.

Framtidsutsikt 2003

1.  Starta framtidsutsikten
2.  Klicka bearbetar > makroen > den Visual Basic redaktören
3.  Utvidga Microsoft Officeframtidsutsikten anmärker och klickar på ThisOutlookSession, om inte redan utvidgat
4.  Kopiera kodifiera från kodifierasnippeten boxas och klistrar den in i det höger förser med rutor av
5.  Framtidsutsikt fönster för VB-redaktör
6.  Redigera kodifiera som behövd.  Inklusive kommentar I fodrar wherever något behöver eller kan ändra
7.  Klicka diskettsymbolen på toolbaren till räddningen ändringarna
8.  Nära VB-redaktören
9.  Klicka bearbetar > makroen > säkerhet
10. Uppsättning säkerheten som är jämn till medlet
11. Nära framtidsutsikt
12. Starta framtidsutsikten
13. Framtidsutsikt ska skärm enboxas varning, att ThisOutlookSession innehåller makro och fråga, om du önskar att låta dem köra.  Något att säga ja.

Framtidsutsikt 2007

1.  Starta framtidsutsikten
2.  Klicka bearbetar > makroen > den Visual Basic redaktören
3.  Utvidga Microsoft Officeframtidsutsikten anmärker och klickar på ThisOutlookSession, om inte redan utvidgat
4.  Kopiera kodifiera från kodifierasnippeten boxas och klistrar den in i det höger förser med rutor av framtidsutsikt fönster för VB-redaktör
5.  Redigera kodifiera som behövd.  Inklusive kommentar I fodrar wherever något behöver eller kan ändra
6.  Klicka diskettsymbolen på toolbaren till räddningen ändringarna
7.  Nära VB-redaktören
8.  Klicka bearbetar > förtroende centrerar
9.  Klicka Macro säkerhet
10. Fastställd Macro säkerhet till ”varningar för alla makro”,
11. Klicka REKO
12. Nära framtidsutsikt
13. Starta framtidsutsikten.  Framtidsutsikt ska skärm enboxas varning, att ThisOutlookSession innehåller makro och fråga, om du önskar att låta dem köra.  Något att säga ja.

När du har kodifiera in att förlägga, och vi vet att den räknar objekten, då jag ska postar kodifiera för hämtande av räkningen.
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:

Dunkel WithEvents olkInbox som Outlook.Items

Privata underApplication_Quit ()
    Fastställd olkInbox = ingenting
Avsluta suben

Privata underApplication_Startup ()
    Fastställd olkInbox = Session.GetDefaultFolder (olFolderInbox). Objekt
Avsluta suben

Privat underolkInbox_ItemAdd (det ByVal objektet som anmärker)
    Om Item.Class = olMail därefter
        Add2Count
    Avsluta om
Avsluta suben

Sub Add2Count ()
    ”Redigera banan på det nästa fodrar”,
    Const FILE_PATH = ”c:\Users\David\Documents\”,
    Dunkel objFSO som anmärker, objFile som anmärker, lngCounter som Long, strDate som stränger
    lngCounter = 0
    strDate = formaterar (datera, ”yyyy-en mm-dd”),
    Fastställd objFSO = CreateObject (”Scripting.FileSystemobject”)
    Om objFSO.FileExists (FILE_PATH & strDate & ”.txt”) därefter
        Fastställdt objFile = objFSO.OpenTextFile (FILE_PATH & strDate & ”.txt”, ForReading)
        lngCounter = objFile.ReadAll
    Annars
        Fastställdt objFile = objFSO.CreateTextFile (FILE_PATH & strDate & ”.txt”)
    Avsluta om
    objFile.Close
    lngCounter = lngCounter + 1
    Fastställdt objFile = objFSO.CreateTextFile (FILE_PATH & strDate & ”.txt”)
    objFile.Write-lngCounter
    objFile.Close
    Fastställdt objFile = ingenting
    Fastställd objFSO = ingenting
Avsluta suben
Andra lösningar  
 
programming4us programming4us