Vraag : Hoe te om Vooruitzichten VBA te gebruiken om berichten in een de omslag en de looppasVBA macro van Vooruitzichten te selecteren

Dit is een follow-up aan oplossing: http://www.experts-exchang e.com/Soft ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I aan lijn hoewel alle berichten in een gespecificeerde postomslag en een looppas houden van die de macro VBA in de vorige oplossing tegen elk postbericht in dat folder.

250 voor input richt die me
500 voor het werken code. helpt

Antwoord : Hoe te om Vooruitzichten VBA te gebruiken om berichten in een de omslag en de looppasVBA macro van Vooruitzichten te selecteren

Hello opnieuw, cschene.

Dit zou het moeten doen.  Vervang de subroutine genoemd Cschene met hieronder.  Om dit te gebruiken

1.  Open de omslag met de punten u wilt verwerken
2.  Selecteer de punten aan proces.  CTRL+A zal hen allen selecteren
3.  Stel de macro in werking
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
    Schemerige olkMsg als Outlook.MailItem, strIncidentNumber als Koord, strStatus als Koord, varLine als Variant, _
        arrLine als Variant, objFSO als Voorwerp, objFile als Voorwerp
    Reeks objFSO = CreateObject („Scripting.FileSystemobject“)
    „Op de volgende lijnverandering het dossier - naam en weg.“
    Vastgestelde objFile = objFSO.OpenTextFile („C:\eeTesting\CShene.txt“, Ware ForAppending,)
    Voor Elke olkMsg in Application.ActiveExplorer.Selection
        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
        objFile.WriteLine GetPrintable (strIncidentNumber) & „,“ & GetPrintable (strStatus)
    Daarna
    objFile.Close
    Reeks objFSO = niets
    Vastgestelde objFile = niets
    Reeks olkMsg = niets
    msgbox „Gedaan“
Sub van het eind
Andere oplossingen  
 
programming4us programming4us