Fråga : Hur man använder framtidsutsikten VBA för att välja meddelanden i en framtidsutsiktmapp och en körd VBA-makro

Denna är en uppföljning till lösningen: ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I för http://www.experts-exchang e.com/Soft skulle något liknande för att kretsa, fast alla specificerade meddelanden i postar mappen och kör att VBA-makroen i den föregående lösningen mot varje postar meddelandet folder.

250 pekar däri för matar in att hjälpme
500 för arbetet code. " klar "

Svar : Hur man använder framtidsutsikten VBA för att välja meddelanden i en framtidsutsiktmapp och en körd VBA-makro

Hälsningar igen, cschene.

Detta bör göra den.  Byt ut subroutinen som namnges Cschene med den som är nedanför.  Att att använda detta

1.  Öppna mappen med objekten som du önskar att bearbeta
2.  Välj objekten för att bearbeta.  Ska CTRL+A väljer alla dem
3.  Kör makroen
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
    Dunkel olkMsg som Outlook.MailItem, strIncidentNumber som stränger, strStatus som stränger, varLine som varianten, _,
        för arrLine Variant så, objFSO som anmärker, objFile som anmärker
    Fastställd objFSO = CreateObject (”Scripting.FileSystemobject”)
    ”På det nästa fodra ändring spara - namnge och banan.”,
    Fastställdt objFile = objFSO.OpenTextFile (”C:\eeTesting\CShene.txt”, ForAppending som, är riktiga)
    För varje olkMsg i Application.ActiveExplorer.Selection
        För varje varLine i splittring (olkMsg.Body, vbCrLf)
            arrLine = splittring (varLine, ”: ”)
            Om UBound (arrLine) > 0 därefter
                Välj fallarrLine (0)
                    Fallet ”incident numrerar”,
                        strIncidentNumber = arrLine (1)
                    Fall ”status”,
                        strStatus = arrLine (1)
                        Gå ut för
                Avsluta valt
            Avsluta om
        Därefter
        objFile.WriteLine GetPrintable (strIncidentNumber) & ”,” & GetPrintable (strStatusen)
    Därefter
    objFile.Close
    Fastställd objFSO = ingenting
    Fastställdt objFile = ingenting
    Fastställd olkMsg = ingenting
    ”gjord” msgbox,
Avsluta suben
Andra lösningar  
 
programming4us programming4us