Pytanie : MS Światopogląd - Hrabiowski email

Cześć Experts

Is tam  sposób the liczba email odmianowy skrzynka pocztowa w nasz cokpnay otrzymywać dziennik. Być tam  sposób być poniekąd raportowy lub niektóre sposób rozkaz który dodawać the liczba emais. Być może wyrównywać dostawać ten raport lub obliczenie ten inny użytkownik daily.

Odpowiedź : MS Światopogląd - Hrabiowski email

Tutaj być the kod dla w górę the rzecz.  Podążać te instrukcja ono Światopogląd.

Światopogląd 2003

1.  Zaczynać Światopogląd
2.  Klikać Narzędzie > Makro- > Wizualny Podstawowy Redaktor
3.  Jeśli nie już rozprężony, rozszerzać Microsoft Office Światopogląd Przedmiot i klikać dalej ThisOutlookSession
4.  Kopiować the kod od the Kod Odrzynek pudełko i klajstrować ono w the tafla tafla
5.  Światopogląd VB Redaktor okno
6.  Redagować the kod potrzebować.  I zawrzeć komentarz linia gdziekolwiek linia potrzeba lub móc
7.  Klikać the dyskietka ikona na the pasek narzędzi save the zmiana
8.  Zamykać the VB Redaktor
9.  Klikać Narzędzie > Makro- > Ochrona
10. Ustawiać the Poziom Zabezpieczeń Środek
11. Zamykać Światopogląd
12. Zaczynać Światopogląd
13. Światopogląd wystawiać dialog-boksować ostrzeżenie że ThisOutlookSession zawierać macros i jeżeli ty chcieć.  Mówić tak.

Światopogląd 2007

1.  Zaczynać Światopogląd
2.  Klikać Narzędzie > Makro- > Wizualny Podstawowy Redaktor
3.  Jeśli nie już rozprężony, rozszerzać Microsoft Office Światopogląd Przedmiot i klikać dalej ThisOutlookSession
4.  Kopiować the kod od the Kod Odrzynek pudełko i klajstrować ono w the okno tafla Światopogląd VB Redaktor okno
5.  Redagować the kod potrzebować.  I zawrzeć komentarz linia gdziekolwiek linia potrzeba lub móc
6.  Klikać the dyskietka ikona na the pasek narzędzi save the zmiana
7.  Zamykać the VB Redaktor
8.  Klikać Narzędzie > Zaufanie Centrum
9.  Klikać Makro- Ochrona
10. Ustawiać Makro- Ochrona "Ostrzeżenie dla wszystkie macros"
11. Klikać KLIKAĆ
12. Zamykać Światopogląd
13. Zaczynać Światopogląd.  Światopogląd wystawiać dialog-boksować ostrzeżenie że ThisOutlookSession zawierać macros i jeżeli ty chcieć.  Mówić tak.

Jak Tylko ty mieć the kod na miejscu i my znać ono liczyć the rzecz, then I wysyłać the kod dla the obliczenie.
(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:

Ciemnawy WithEvents olkInbox Jako Outlook.Items

Intymny Okręt podwodny Application_Quit ()
    Ustalony olkInbox = Nic
Końcówka Okręt podwodny

Intymny Okręt podwodny Application_Startup ()
    Ustalony olkInbox = Session.GetDefaultFolder (olFolderInbox). Rzecz
Końcówka Okręt podwodny

Intymny Okręt podwodny olkInbox_ItemAdd (ByVal Rzecz Przedmiot)
    Jeżeli Item.Class = olMail Wtedy
        Add2Count
    Kończyć Jeżeli
Kończyć Okręt podwodny

Okręt podwodny Add2Count ()
    "Redagować the ścieżka na the następny linia"
    Const FILE_PATH = "c:\Users\David\Documents\"
    Ciemnawy objFSO Jako Przedmiot, objFile Przedmiot, lngCounter Długo, strDate Sznurek
    lngCounter = (0)
    strDate = Format (Daktylowy, "yyyy-mm-dd")
    Ustalony objFSO = CreateObject ("Scripting.FileSystemobject")
    Jeżeli objFSO.FileExists (FILE_PATH & strDate & ".txt") Wtedy
        Ustalony objFile = objFSO.OpenTextFile (FILE_PATH & strDate & ".txt", ForReading)
        lngCounter = objFile.ReadAll
    Inny
        Ustalony objFile = objFSO.CreateTextFile (FILE_PATH & strDate & ".txt")
    Kończyć Jeżeli
    objFile.Close
    lngCounter = lngCounter + (1)
    Ustalony objFile = objFSO.CreateTextFile (FILE_PATH & strDate & ".txt")
    objFile.Write lngCounter
    objFile.Close
    Ustalony objFile = ObjFile
    Ustalony objFSO = Nic
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us