Vraag : Ik wilde tekst in vooruitzichten uit ontleden gebruikend VBA en de waarden in een verspreidingsblad opslaan

Hallo, heeft

I een bericht en een tekstgebied zoals aangetoond in het beeld in bijlage. Deze zijn van OnTime, een product van Axasoft.

I wil aan

1) ontleedt uit deze e-mail en haalt het inherente aantal gebruikend VBA (2000 in dit voorbeeld)
2) Pase emal en haalt de status (in afwachting van Ontwikkeling)
3) toevoegt de tekst „inherent aantal“, de „status“ aan een tekst file

I veronderstelt dit VBA zou vereisen, maar om het even welke benadering die werkt is fijn.

Antwoord : Ik wilde tekst in vooruitzichten uit ontleden gebruikend VBA en de waarden in een verspreidingsblad opslaan

Hier is mijn oplossing.  Volg deze instructies om de code aan Vooruitzichten toe te voegen.

1.  Begin Vooruitzichten
2.  Klik Hulpmiddelen > Macro > Visuele BasisRedacteur
3.  Als niet reeds uitgebreid, breid de Voorwerpen van de Vooruitzichten van Microsoft Office uit
4.  Als niet reeds uitgebreid, breid Modules uit
5.  Selecteer een bestaande module (b.v. Module1) door op het tweemaal te klikken of cre�ër een nieuwe module door Modules met de rechtermuisknop aan te klikken en Tussenvoegsel > Module te selecteren.
6.  Kopi�ër de code van de doos van het Fragment van de Code en kleef het in de rechtse ruit van het venster van de Redacteur van VB van Vooruitzichten
7.  Geef de code uit zoals nodig.  Ik omvatte commentaren waar iets aan vereist of kan veranderen
8.  Klik het diskettepictogram op de toolbar om de veranderingen te bewaren
9.  Sluit de Redacteur VB

Om dit te gebruiken

1.  Selecteer of open een bericht
2.  Stel macroCShene in werking

Een alternatief is de code lichtjes te veranderen om het van een regel in werking te stellen.
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:

Sub CShene ()
    Schemerige olkMsg als Outlook.MailItem, strIncidentNumber als Koord, strStatus als Koord, varLine als Variant, _
        arrLine als Variant, objFSO als Voorwerp, objFile als Voorwerp
    Selecteer Geval TypeName (Application.ActiveWindow)
        Geval „Ontdekkingsreiziger“
            Reeks olkMsg = Application.ActiveExplorer.Selection (1)
        Geval „Inspecteur“
            Reeks olkMsg = Application.ActiveInspector.CurrentItem
    Uitgezocht eind
    Voor Elke varLine in Spleet (olkMsg.Body, vbCrLf)
        arrLine = verdeelde (varLine, „: “)
        Als UBound (arrLine) > 0 toen
            Selecteer arrLine van het Geval (0)
                Geval „Inherent Aantal“
                    strIncidentNumber = arrLine (1)
                Geval „Status“
                    strStatus = arrLine (1)
                    Uitgang voor
            Uitgezocht eind
        Eind als
    Daarna
    Reeks objFSO = CreateObject („Scripting.FileSystemobject“)
    „Op de volgende lijnverandering het dossier - naam en weg.“
    Vastgestelde objFile = objFSO.OpenTextFile („C:\eeTesting\CShene.txt“, Ware ForAppending,)
    objFile.WriteLine GetPrintable (strIncidentNumber) & „,“ & GetPrintable (strStatus)
    objFile.Close
    Reeks objFSO = niets
    Vastgestelde objFile = niets
Sub van het eind

Functie GetPrintable (strValue als Koord) als Koord
    Schemerige intCount als Geheel, strTemp als Koord
    Voor intCount = 1 aan Len (strValue)
        strTemp = Medio (strValue, intCount, 1)
        Selecteer Geval Asc (strTemp)
            Geval 32 tot 126
                GetPrintable = GetPrintable & strTemp
        Uitgezocht eind
    Daarna
    GetPrintable = Versiering (GetPrintable)
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us