Pergunta : Como usar a probabilidade VBA para selecionar mensagens em um dobrador da probabilidade e em um macro funcionado de VBA

Esta é uma continuação à solução: o href= " http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html " do o ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I do e.com/Soft de http://www.experts-exchang gostaria de dar laços embora todas as mensagens em uma pasta e em um funcionamento especific de correspondência esse macro de VBA na solução precedente de encontro a cada mensagem do correio esse em pontos de folder.

250 para a entrada que ajuda o me
500 para trabalhar code. class= do

Resposta : Como usar a probabilidade VBA para selecionar mensagens em um dobrador da probabilidade e em um macro funcionado de VBA

Olá! outra vez, cschene.

Isto deve fazê-lo.  Substituir a sub-rotina nomeada Cschene com esse abaixo.  Para usar isto

1.  Abrir o dobrador com os artigos que você quer processar
2.  Selecionar os artigos para processar.  CTRL+A selecioná-los-á todos
3.  Funcionar o macro
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:

Sub CSchene ()
    Const ForAppending = 8
    olkMsg não ofuscante como Outlook.MailItem, strIncidentNumber como a corda, strStatus como a corda, varLine como a variação, _
        do arrLine variação tão, objFSO quanto o objeto, objFile como o objeto
    Ajustar o objFSO = o CreateObject (“Scripting.FileSystemobject”)
    “Na linha mudança seguinte o nome de arquivo e o trajeto.”
    objFile ajustado = objFSO.OpenTextFile (“C:\eeTesting\CShene.txt”, ForAppending, verdadeiros)
    Para cada olkMsg em Application.ActiveExplorer.Selection
        Para cada varLine na separação (olkMsg.Body, vbCrLf)
            arrLine = separação (varLine, “: ")
            Se UBound (arrLine) > 0 então
                Selecionar o arrLine do caso (0)
                    Encaixotar do “o número incidente”
                        strIncidentNumber = arrLine (1)
                    Caso “status”
                        strStatus = arrLine (1)
                        Retirar para
                Terminar seleto
            Terminar se
        Em seguida
        objFile.WriteLine GetPrintable (strIncidentNumber) & “,” & GetPrintable (strStatus)
    Em seguida
    objFile.Close
    Ajustar o objFSO = nada
    Ajustar objFile = nada
    Ajustar o olkMsg = nada
    msgbox “feito”
Submarino da extremidade
Outras soluções  
 
programming4us programming4us