Pergunta : MS Outlook - email da contagem

Olá! Experts

Is lá uma maneira de contar o número de email uma caixa postal específica no nosso cokpnay recebe o diário. Há uma maneira de começ alguma sorte do relatório ou alguma maneira de funcionar um comando que adicione o número de emais. Talvez mesmo começ esta relatório ou contagem enviado por correio electrónico a um outro usuário daily. class= do

Resposta : MS Outlook - email da contagem

Está aqui o código para contar acima dos artigos.  Seguir estas instruções para adicioná-lo à probabilidade.

Probabilidade 2003

1.  Começar a probabilidade
2.  Estalar ferramentas > macro > editor de Visual Basic
3.  Se não já expandido, expandir objetos da probabilidade de Microsoft Office e estalar sobre ThisOutlookSession
4.  Copiar o código da caixa da pequena notícia do código e colá-lo na placa right-hand de
5.  Janela do editor de VB da probabilidade
6.  Editar o código como necessário.  Eu incluí linhas de comentário onde que algo precisa ou pode mudar
7.  Estalar o ícone da disquete na barra de ferramentas para conservar as mudanças
8.  Fechar o editor de VB
9.  Estalar ferramentas > macro > segurança
10. Ajustar o nível de segurança ao meio
11. Fechar a probabilidade
12. Começar a probabilidade
13. A probabilidade indicará um aviso da diálogo-caixa que ThisOutlookSession contem macro e perguntar se você quer permitir que funcionem.  Dizer sim.

Probabilidade 2007

1.  Começar a probabilidade
2.  Estalar ferramentas > macro > editor de Visual Basic
3.  Se não já expandido, expandir objetos da probabilidade de Microsoft Office e estalar sobre ThisOutlookSession
4.  Copiar o código da caixa da pequena notícia do código e colá-lo na placa right-hand da janela do editor de VB da probabilidade
5.  Editar o código como necessário.  Eu incluí linhas de comentário onde que algo precisa ou pode mudar
6.  Estalar o ícone da disquete na barra de ferramentas para conservar as mudanças
7.  Fechar o editor de VB
8.  Estalar ferramentas > centro da confiança
9.  Estalar a segurança macro
10. Ajustar a segurança macro aos “avisos para todos os macro”
11. Estalar a APROVAÇÃO
12. Fechar a probabilidade
13. Começar a probabilidade.  A probabilidade indicará um aviso da diálogo-caixa que ThisOutlookSession contem macro e perguntar se você quer permitir que funcionem.  Dizer sim.

Uma vez que você tem o código no lugar e nós sabemos que está contando os artigos, a seguir eu afixarei o código para recuperar a contagem.
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 não ofuscante de WithEvents como Outlook.Items

Application_Quit secundário confidencial ()
    Ajustar o olkInbox = nada
Terminar o submarino

Application_Startup secundário confidencial ()
    Ajustar o olkInbox = o Session.GetDefaultFolder (olFolderInbox). Artigos
Submarino da extremidade

olkInbox_ItemAdd secundário confidencial (artigo de ByVal como o objeto)
    Se Item.Class = olMail então
        Add2Count
    Terminar se
Terminar o submarino

Sub Add2Count ()
    “Editar o trajeto na linha seguinte”
    Const FILE_PATH = “c:\Users\David\Documents\”
    objFSO não ofuscante como o objeto, objFile como o objeto, lngCounter como por muito tempo, strDate como a corda
    lngCounter = 0
    strDate = formato (data, “yyyy-milímetro-dd”)
    Ajustar o objFSO = o CreateObject (“Scripting.FileSystemobject”)
    Se objFSO.FileExists (FILE_PATH & strDate & “.txt”) então
        objFile ajustado = objFSO.OpenTextFile (FILE_PATH & strDate & “.txt”, ForReading)
        lngCounter = objFile.ReadAll
    Mais
        objFile ajustado = objFSO.CreateTextFile (FILE_PATH & strDate & “.txt”)
    Terminar se
    objFile.Close
    lngCounter = lngCounter + 1
    objFile ajustado = objFSO.CreateTextFile (FILE_PATH & strDate & “.txt”)
    lngCounter de objFile.Write
    objFile.Close
    objFile ajustado = nada
    Ajustar o objFSO = nada
Terminar o submarino
Outras soluções  
 
programming4us programming4us