Cuestión : Cómo utilizar la perspectiva VBA para seleccionar mensajes en una carpeta de la perspectiva y una macro funcionada con de VBA

Esto es una carta recordativa a la solución: el href= " http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html " del el ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I del e.com/Soft de http://www.experts-exchang quisiera colocar aunque todos los mensajes en una carpeta y un funcionamiento especificados de correo esa macro de VBA en la solución anterior contra cada mensaje del correo en ese los puntos de folder.

250 para la entrada que ayuda al me
500 para trabajar code. class= del

Respuesta : Cómo utilizar la perspectiva VBA para seleccionar mensajes en una carpeta de la perspectiva y una macro funcionada con de VBA

Hola otra vez, cschene.

Esto debe hacerlo.  Substituir la subrutina nombrada Cschene por el abajo.  Para utilizar esto

1.  Abrir la carpeta con los artículos que usted quiere procesar
2.  Seleccionar los artículos para procesar.  CTRL+A los seleccionará todos
3.  Funcionar con 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 dévil como Outlook.MailItem, strIncidentNumber como secuencia, strStatus como secuencia, varLine como variante, _
        del arrLine variante tan, objFSO como el objeto, objFile como objeto
    Fijar el objFSO = CreateObject (“Scripting.FileSystemobject”)
    “En la línea cambio siguiente el nombre de fichero y la trayectoria.”
    objFile determinado = objFSO.OpenTextFile (“C:\eeTesting\CShene.txt”, ForAppending, verdades)
    Para cada olkMsg en Application.ActiveExplorer.Selection
        Para cada varLine en la fractura (olkMsg.Body, vbCrLf)
            el arrLine = partió (varLine, “: ")
            Si UBound (arrLine) > 0 entonces
                Seleccionar el arrLine del caso (0)
                    Encajonar el “número del incidente”
                        strIncidentNumber = arrLine (1)
                    Caso “estado”
                        strStatus = arrLine (1)
                        Salir para
                Terminar selecto
            Terminar si
        Después
        objFile.WriteLine GetPrintable (strIncidentNumber) y “,” y GetPrintable (strStatus)
    Después
    objFile.Close
    Fijar el objFSO = nada
    Fijar objFile = nada
    Fijar el olkMsg = nada
    msgbox “hecho”
Submarino del extremo
Otras soluciones  
 
programming4us programming4us