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

Hallo, haben

I ein Makro unter dem speichert ankommendes übertreffen die Akte, die in einer eMail in Subfolder angebracht.  Gegründet auf dem übertreffendateinamen, wünsche ich zur übertreffenakte in eine spezielle Mappe automatisch.  Das Makro unterhalb der Arbeiten nur für eine übertreffenakte nannte WFT_NC0136065_T01_James_201005.xls.  Ich möchte das Makro ändern, damit es für beide übertrifft Aktennamen funktioniert: WFT_NC0136065_T01_James_201005.xls oder WFT_NC0136065_T01_James_201005-01.xls.  Ich wünsche das Makro das einzigartige Schlüsselwort „NC0136065“ aufheben vom Verteilungsbogennamen und die übertreffenakte in den genannten Subfolder einsetzen „0136065 James“.


Thank You
 
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:

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, _
        strSubfolder als Schnur, _
        strFilename als Schnur, _
        objFSO als Gegenstand, _
        arrParts als Variante
    objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
    Für jedes olkAttachment in Item.Attachments
        Wenn objFSO.GetExtensionName (LCase (olkAttachment.FileName)) = „xls“ dann
            arrParts = aufspalteten (olkAttachment.FileName, „_“)
            Wenn UBound (arrParts) = 4 dann
                „Andere Fälle hinzufügen, wie gebraucht“
                Fall arrParts vorwählen (1)
                    „NC0136065“ umkleiden
                        strSubfolder = SAVE_TO_PATH u. „0136065 James \“
                    Fall „NC0564454“
                        strSubfolder = SAVE_TO_PATH u. „0564454 bemannen \“
                    Fall sonst
                        strSubfolder = ""
                Ende auserwählt
                strFilename = olkAttachment.FileName
                intCount = 0
                Tun, wenn zutreffend
                    Wenn Dir (strSubfolder 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 strSubfolder u. strFilename
            Beenden wenn
        Beenden wenn
    Zunächst
    objFSO einstellen = nichts
    olkAttachment einstellen = nichts
Unterseeboot beenden

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

Etwas Ähnliches als whatever.cm d speichern:
1:
2:
3:
4:
5:
6:
7:
8:
9:

"" explorer.exe „C:\Folder1“ beginnen
"" explorer.exe „C:\Folder2“ beginnen
"" explorer.exe „C:\Folder3“ beginnen

Wenn Sie die Forscherfenster mit der Baumstruktur in der linken Scheibe oben zeigen wünschen,

"" explorer.exe /e beginnen, „C:\Folder1“
"" explorer.exe /e beginnen, „C:\Folder2“
"" explorer.exe /e beginnen, „C:\Folder3“
Weitere Lösungen  
 
programming4us programming4us