Frage : Wie man Aussicht VBA verwendet, um Mitteilungen in einem Aussichtfaltblatt und laufen gelassenen IN EINEM VBA Makro vorzuwählen

Dieses ist ein Anschluss zur Lösung: http://www.experts-exchang e.com/Soft ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I möchte sich obwohl alle Mitteilungen in einem spezifizierten Postfaltblatt und -durchlauf dieses VBA Makro in der vorhergehenden Lösung gegen jede Postmitteilung dieses folder.

250 in den Punkten für Eingang schlingen, der me
500 für das Arbeits code. hilft

Antwort : Wie man Aussicht VBA verwendet, um Mitteilungen in einem Aussichtfaltblatt und laufen gelassenen IN EINEM VBA Makro vorzuwählen

Hallo wieder, cschene.

Dieses sollte es tun.  Die Subroutine ersetzen, die Cschene durch das unten genannt.  Zu dieses verwenden

1.  Das Faltblatt mit den Einzelteilen öffnen, die Sie verarbeiten möchten
2.  Die Einzelteile vorwählen, um zu verarbeiten.  CTRL+A vorwählt sie alle le
3.  Das Makro laufen 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:

Sub CSchene ()
    Const ForAppending = 8
    Schwaches olkMsg als Outlook.MailItem, strIncidentNumber als Schnur, strStatus als Schnur, varLine als Variante, _
        arrLine so Variante, objFSO wie der Gegenstand, objFile als Gegenstand
    objFSO = CreateObject („Scripting.FileSystemobject“) einstellen
    „Auf folgenden Zzeilenwechsel der Dateiname und der Weg.“
    Gesetztes objFile = objFSO.OpenTextFile („C:\eeTesting\CShene.txt“, ForAppending, zutreffend)
    Für jedes olkMsg in Application.ActiveExplorer.Selection
        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
        objFile.WriteLine GetPrintable (strIncidentNumber) u. „,“ u. GetPrintable (strStatus)
    Zunächst
    objFile.Close
    objFSO einstellen = nichts
    objFile einstellen = nichts
    olkMsg einstellen = nichts
    msgbox „erfolgt“
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us