Vraag : Hoe ik bewaar inkomende e-mailgehechtheid in een specifieke omslag?

Hallo, heeft

I een macro onder dat bewaart inkomend uitblinkt dossier in bijlage in een e-mail in subfolder.  Gebaseerd op blink dossier uit - noem, wil ik aan uitblink dossier automatisch in een specifieke omslag.  De macro onder de werken slechts voor blinkt dossier genoemde WFT_NC0136065_T01_James_201005.xls uit.  Ik wil de macro wijzigen zodat het voor allebei uitblinkt dossiernamen werkt: WFT_NC0136065_T01_James_201005.xls of WFT_NC0136065_T01_James_201005-01.xls.  Ik wil de macro het unieke sleutelwoord „NC0136065“ van de spreadsheetnaam opnemen en zetten uitblink dossier in genoemde subfolder „0136065 James“.


Thank You
" codeBody " 
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:
36:
37:
38:
39:
40:

Sub SaveAttachmentsToDiskRule (Punt als Outlook.MailItem)
    De „verandering de weg op de volgende lijn in de omslag u wil de gehechtheid sparen aan.  De weg moet met backslash beëindigen.“
    Const SAVE_TO_PATH = „C:\Some Folder\August 2009 \“
    Schemerige olkAttachment als Outlook.Attachment, _
        strSubfolder als Koord, _
        strFilename als Koord, _
        objFSO als Voorwerp, _
        arrParts als Variant
    Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
    Voor Elke olkAttachment in Item.Attachments
        Als objFSO.GetExtensionName (LCase (olkAttachment.FileName)) = „xls“ toen
            arrParts = verdeel (olkAttachment.FileName, „_“)
            Als UBound (arrParts) = 4 toen
                „Voeg andere gevallen als nodig toe“
                Selecteer Geval arrParts (1)
                    Geval „NC0136065“
                        strSubfolder = SAVE_TO_PATH & „0136065 James \“
                    Geval „NC0564454“
                        strSubfolder = SAVE_TO_PATH & „0564454 Mens \“
                    Geval anders
                        strSubfolder = ""
                Uitgezocht eind
                strFilename = olkAttachment.FileName
                intCount = 0
                Doe terwijl Waar
                    Als Dir (strSubfolder & strFilename) = "" toen
                        De uitgang 
                    Anders
                        intCount = intCount + 1
                        „Geef het dossier - naamformaat op de volgende lijn als gewenst uit“
                        strFilename = „Exemplaar (“ & intCount & „) van“ & olkAttachment.FileName
                    Eind als
                Lijn
                olkAttachment.SaveAsFile strSubfolder & strFilename
            Eind als
        Eind als
    Daarna
    Reeks objFSO = niets
    Vastgestelde olkAttachment = niets
Sub van het eind

Antwoord : Hoe ik bewaar inkomende e-mailgehechtheid in een specifieke omslag?

Sparen iets in die aard als whatever.cm D:
1:
2:
3:
4:
5:
6:
7:
8:
9:

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

Als u de vensters van de Ontdekkingsreiziger met de boomstructuur in de linkerruit wilt verschijnen,

begin "" explorer.exe /e, „C:\Folder1“
begin "" explorer.exe /e, „C:\Folder2“
begin "" explorer.exe /e, „C:\Folder3“
Andere oplossingen  
 
programming4us programming4us