Cuestión : Quise analizar hacia fuera el texto en perspectiva usar VBA y ahorrar los valores en una hoja de balance

Hola, el

I tiene un mensaje y un campo del texto según las indicaciones del cuadro atado. Éstos son de OnTime, un producto de Axasoft. el

I quiere al

1) analiza hacia fuera este email y extrae el número del incidente usar el
2) Pase el emal y extrae el
3) añade el texto “número del incidente”, el “estado” a un file

I del texto asume que éste requeriría VBA, pero cualquier acercamiento que trabaje esté muy bien.

class= del

Respuesta : Quise analizar hacia fuera el texto en perspectiva usar VBA y ahorrar los valores en una hoja de balance

Aquí está mi solución.  Seguir estas instrucciones de agregar el código a la perspectiva.

1.  Comenzar la perspectiva
2.  Chascar las herramientas > la macro > el redactor de Visual Basic
3.  Si no ampliado ya, ampliar los objetos de la perspectiva de Microsoft Office
4.  Si no ampliado ya, ampliar los módulos
5.  Seleccionar un módulo existente (e.g. Module1) double-clicking en él o crear un nuevo módulo right-clicking los módulos y seleccionando el parte movible > el módulo.
6.  Copiar el código de la caja del recorte de código y pegarlo en el cristal derecho de la ventana del redactor de VB de la perspectiva
7.  Corregir el código según lo necesitado.  Incluí comentarios dondequiera que que algo necesita o que puede cambiar
8.  Chascar el icono del diskette en la barra de herramientas para ahorrar los cambios
9.  Cerrar el redactor de VB

Para utilizar esto

1.  Seleccionar o abrir un mensaje
2.  Funcionar el CShene macro

Una alternativa es alterar el código levemente para funcionarlo de una regla.
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:
38:
39:
40:
41:

CShene secundario ()
    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
    Seleccionar el caso TypeName (Application.ActiveWindow)
        Encajonar a “explorador”
            Fijar el olkMsg = Application.ActiveExplorer.Selection (1)
        Encajonar a “inspector”
            Fijar el olkMsg = Application.ActiveInspector.CurrentItem
    Terminar selecto
    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
    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)
    objFile.WriteLine GetPrintable (strIncidentNumber) y “,” y GetPrintable (strStatus)
    objFile.Close
    Fijar el objFSO = nada
    Fijar objFile = nada
Terminar el submarino

Función GetPrintable (strValue como secuencia) como secuencia
    intCount dévil como número entero, strTemp como secuencia
    Para el intCount = 1 a Len (strValue)
        strTemp = mediados de (strValue, intCount, 1)
        Seleccionar el caso Asc (el strTemp)
            Caso 32 a 126
                GetPrintable = GetPrintable y strTemp
        Extremo selecto
    Después
    GetPrintable = ajuste (GetPrintable)
Función del final
Otras soluciones  
 
programming4us programming4us