Frage : Wie speichere ich ankommende eMail-Zubehöre in eine spezielle Mappe?

Hallo, möchte

I ankommendes speichern übertreffen die Akte, die in einer eMail in Subfolder angebracht wurde.  Gegründet auf dem übertreffendateinamen, wünsche ich zur übertreffenakte in eine spezielle Mappe automatisch.  Z.B. nannte eine übertreffenakte WFT_NC0136065_T01_James_201005.xls.  Ich wünsche das Makro das einzigartige Schlüsselwort „NC0136065“ aufheben vom Verteilungsbogennamen und die übertreffenakte in den genannten Subfolder einsetzen „0136065 James“.

I möchte das Makro unter dem ändern arbeitet mit einem rule.

Thank You
Amreska 
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:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

Sub SaveAttachmentsToDiskRule (Einzelteil als Outlook.MailItem)
    „Den Weg auf der folgenden Linie zum Faltblatt ändern, das Sie die Zubehöre speichern zu wünschen.  Der Weg muss mit einem Gegenschrägstrich beenden.“
    Const SAVE_TO_PATH = „C:\Some Folder\August 2009 \“
    Schwaches olkAttachment als Outlook.Attachment, _
        strFilename als Schnur, _
        objFSO als Gegenstand
    objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
    Für jedes olkAttachment in Item.Attachments
        Wenn objFSO.GetExtensionName (LCase (olkAttachment.FILENAME)) = „xls“ dann
            Wenn InStr (1, olkAttachment.FILENAME, „200908“) dann
                strFilename = olkAttachment.FILENAME
                intcount = 0
                Tun, wenn zutreffend
                    Wenn Dir (SAVE_TO_PATH u. strFilename) = "" dann
                        Ausgang tun
                    Sonst
                        intcount = intcount + 1
                        „Das Dateinameformat auf der folgenden Linie redigieren, wie gewünscht“
                        strFilename = „Kopie (“ u. intcount u. ") von“ u. olkAttachment.FILENAME
                    Beenden wenn
                Schleife
                olkAttachment.SaveAsFile SAVE_TO_PATH u. strFilename
            Beenden wenn
        Beenden wenn
    Zunächst
    objFSO einstellen = nichts
    olkAttachment einstellen = nichts
Unterseeboot beenden

 
Funktion md (dosPath als Schnur, wahlweise freigestellte createFolders als Boolesches) als Schnur
Schwaches fso als Gegenstand
Schwache fldrs () als Schnur
Schwaches rootdir als Schnur
Schwaches fldrIndex als ganze Zahl
Schwaches bolret, wie Boolesch
    
    md = ""
    Fso = CreateObject („Scripting.FileSystemObject“) einstellen
    Wenn nicht fso.FolderExists (dosPath) dann
        fldrs = spalteten auf sich (dosPath, „\ ")
        rootdir = fldrs (0)
        Wenn nicht fso.FolderExists (rootdir) dann
            Funktion herausnehmen
        Beenden wenn
 
        bolret = richten aus
        Für fldrIndex = 1 zu UBound (fldrs) - 1
            rootdir = rootdir u. „\“ u. fldrs (fldrIndex)
            Wenn nicht fso.FolderExists (rootdir) dann
                Wenn createFolders dann
                    fso.CreateFolder rootdir
                Sonst
                    bolret = falsch
                Beenden wenn
            Beenden wenn
        Zunächst
        Wenn bolret dann
            Für jedes fldr in fso.getfolder (rootdir) .SubFolders
                Wenn Sie verlassen werden (fldr. Name, 2) = fldrs (UBound (fldrs)) Dann
                    md = fldr. Weg
                    Funktion herausnehmen
                Beenden wenn
            Zunächst
        Beenden wenn
        Funktion herausnehmen
    Beenden wenn
Funktion beenden

Antwort : Wie speichere ich ankommende eMail-Zubehöre in eine spezielle Mappe?

>>after der Einsatz die entsprechende Spalte in sql-Bediener 2008 hat einen Wert von 1884-07-21!!! welchen Fehler mache ich? <>Aber Ihre Frage beantworten….      :)

Sie nicht gekonnt Anführungsstriche um das Datum hinzufügen, das das folgende veranlaßt zu geschehen:
1884-07-21 = -1990 ==> 1894-07-21 00:00: 00.000

Ihre Einsatznotwendigkeiten, wie dieses auszusehen:
EINSATZ xxx (AA, Bb, gesendet, verarbeitet, cm, DD, Zeilenzähl) IN WERTE („aal“, „in Bb“, „20100626“, 0, „A12977F0F1D340929172EB61DD80A653@aatjanPC3“, 4, „0“)
Weitere Lösungen  
 
programming4us programming4us