Questione : Come usare prospettiva VBA per selezionare i messaggi in un dispositivo di piegatura di prospettiva ed in una macro funzionata di VBA

Ciò è un follow-up alla soluzione: il href= " http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html " di ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I del e.com/Soft di http://www.experts-exchang vorrebbe collegare benchè tutti i messaggi in un dispositivo di piegatura ed in un funzionamento di posta specificati quella macro di VBA nella soluzione precedente contro ogni messaggio della posta quel nei punti di folder.

250 per input che aiuta il me
500 per il funzionamento del code. class= del

Risposta : Come usare prospettiva VBA per selezionare i messaggi in un dispositivo di piegatura di prospettiva ed in una macro funzionata di VBA

Ciao ancora, cschene.

Ciò dovrebbe farla.  Sostituire il sottoprogramma chiamato Cschene con quello qui sotto.  Per per usare questo

1.  Aprire il dispositivo di piegatura con gli articoli che volete procedare
2.  Selezionare gli articoli per procedare.  CTRL+A li selezionerà tutti
3.  Fare funzionare la 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 fioco come Outlook.MailItem, strIncidentNumber come stringa, strStatus come stringa, varLine come variante, _
        di arrLine variante così, objFSO quanto oggetto, objFile come oggetto
    Regolare il objFSO = CreateObject (“Scripting.FileSystemobject„)
    “Sulla linea cambiamento seguente il nome di schedario ed il percorso.„
    objFile stabilito = objFSO.OpenTextFile (“C:\eeTesting\CShene.txt„, ForAppending, allineare)
    Per ogni olkMsg in Application.ActiveExplorer.Selection
        Per ogni varLine nella spaccatura (olkMsg.Body, vbCrLf)
            il arrLine = ha spaccato (varLine, “: ")
            Se UBound (arrLine) > 0 allora
                Selezionare il arrLine di caso (0)
                    Mettere “il numero di avvenimento„
                        strIncidentNumber = arrLine (1)
                    Caso “condizione„
                        strStatus = arrLine (1)
                        Uscire per
                Concludere prescelto
            Concluder se
        Dopo
        objFile.WriteLine GetPrintable (strIncidentNumber) & “,„ & GetPrintable (strStatus)
    Dopo
    objFile.Close
    Regolare il objFSO = niente
    Regolar objFile = niente
    Regolare il olkMsg = niente
    msgbox “fatto„
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us