Frage : Ich wollte Text in der Aussicht using VBA heraus analysieren und die Werte in einem Verteilungsbogen sparen

Hallo, haben

I eine Mitteilung und ein Textfeld wie in der angebrachten Abbildung gezeigt. Diese sind von OnTime, ein Produkt von Axasoft.

I wünschen zum

1) analysieren heraus diese eMail und extrahieren die Vorfalzahl using VBA (2000 in diesem Beispiel)
2) Pase das emal und extrahieren das Status (während Entwicklung)
3) anfügen den Text „Vorfalzahl“, „Status“ zu einem Text file

I nehmen an, dass dieser VBA erfordern würde, aber jede mögliche Annäherung, die arbeitet, fein ist.

Antwort : Ich wollte Text in der Aussicht using VBA heraus analysieren und die Werte in einem Verteilungsbogen sparen

Ist hier meine Lösung.  Diese Anweisungen befolgen, den Code Aussicht hinzuzufügen.

1.  Aussicht beginnen
2.  Werkzeuge > Makro- > Visual- Basicherausgeber anklicken
3.  Wenn Sie nicht bereits erweitert, Microsoft Office-Aussicht-Gegenstände erweitern
4.  Wenn Sie nicht bereits erweitert, Module erweitern
5.  Ein vorhandenes Modul (z.B. Module1) indem Sie auf ihm vorwählen double-clicking oder ein neues Modul herstellen, indem Sie Module right-clicking und Einsatz > Modul vorwählen.
6.  Den Code vom Code-Stückchenkasten kopieren und ihn in die rechte Scheibe des Herausgeberfensters VB der Aussicht kleben
7.  Den Code redigieren, wie gebraucht.  Ich einschloß Anmerkungen ch, gleichgültig wo, das etwas benötigt oder ändern kann
8.  Die Diskettenikone auf der Symbolleiste anklicken, um die Änderungen zu sparen
9.  Den VB Herausgeber schließen

Zu dieses verwenden

1.  Eine Mitteilung vorwählen oder öffnen
2.  Das MakroCShene laufen lassen

Eine Alternative ist, den Code etwas zu ändern, um ihn von einer Richtlinie laufen zu lassen.
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:
6:
37:
38:
39:
40:
41:

VorCShene ()
    Schwaches olkMsg als Outlook.MailItem, strIncidentNumber als Schnur, strStatus als Schnur, varLine als Variante, _
        arrLine so Variante, objFSO wie der Gegenstand, objFile als Gegenstand
    Fall TypeName (Application.ActiveWindow) vorwählen
        „Forscher“ umkleiden
            olkMsg = Application.ActiveExplorer.Selection einstellen (1)
        „Prüfer“ umkleiden
            olkMsg = Application.ActiveInspector.CurrentItem einstellen
    Auserwähltes beenden
    Für jedes varLine in der Spalte (olkMsg.Body, vbCrLf)
        arrLine = aufspaltete (varLine, „: ")
        Wenn UBound (arrLine) > 0 dann
            Fall arrLine (0) vorwählen
                „Vorfall-Zahl“ umkleiden
                    strIncidentNumber = arrLine (1)
                Fall „Status“
                    strStatus = arrLine (1)
                    Für herausnehmen
            Auserwähltes beenden
        Beenden wenn
    Zunächst
    objFSO = CreateObject („Scripting.FileSystemobject“) einstellen
    „Auf folgenden Zzeilenwechsel der Dateiname und der Weg.“
    Gesetztes objFile = objFSO.OpenTextFile („C:\eeTesting\CShene.txt“, ForAppending, zutreffend)
    objFile.WriteLine GetPrintable (strIncidentNumber) u. „,“ u. GetPrintable (strStatus)
    objFile.Close
    objFSO einstellen = nichts
    objFile einstellen = nichts
Unterseeboot beenden

Funktion GetPrintable (strValue als Schnur) als Schnur
    Schwaches intCount als ganze Zahl, strTemp als Schnur
    Für intCount = 1 zu Len (strValue)
        strTemp = mittler (strValue, intCount, 1)
        Fall Asc (strTemp) vorwählen
            Rechtssache 32 bis 126
                GetPrintable = GetPrintable u. strTemp
        Ende auserwählt
    Zunächst
    GetPrintable = Ordnung (GetPrintable)
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us