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

Hallo, zou

I inkomend willen bewaren 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.  Bijvoorbeeld, blink dossier genoemde WFT_NC0136065_T01_James_201005.xls uit.  Ik wil de macro het unieke sleutelwoord „NC0136065“ van de spreadsheetnaam opnemen en zetten uitblink dossier in genoemde subfolder „0136065 James“.

I zou de macro onder dat werk met een rule.

Thank You
Amreska willen wijzigen
" 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:
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 (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, _
        strFilename als Koord, _
        objFSO als Voorwerp
    Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
    Voor Elke olkAttachment in Item.Attachments
        Als objFSO.GetExtensionName (LCase (olkAttachment.FILENAME)) = „xls“ toen
            Als InStr (1, olkAttachment.FILENAME, „200908“) toen
                strFilename = olkAttachment.FILENAME
                intcount = 0
                Doe terwijl Waar
                    Als Dir (SAVE_TO_PATH & 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 SAVE_TO_PATH & strFilename
            Eind als
        Eind als
    Daarna
    Reeks objFSO = niets
    Vastgestelde olkAttachment = niets
Sub van het eind

 
Md van de functie (dosPath als Koord, Facultatieve createFolders als Van Boole) als Koord
Schemerige fso als Voorwerp
Schemerige fldrs () als Koord
Schemerige rootdir als Koord
Schemerige fldrIndex als Geheel
Schemerige bolret zoals Van Boole
    
    md = ""
    Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
    Als niet fso.FolderExists (dosPath) Dan
        fldrs = verdeel (dosPath, „\“)
        rootdir = fldrs (0)
        Als niet fso.FolderExists (rootdir) Dan
            De Functie van de uitgang
        Eind als
 
        bolret = Waar
        Voor fldrIndex = 1 aan UBound (fldrs) - 1
            rootdir = rootdir & „\“ & fldrs (fldrIndex)
            Als niet fso.FolderExists (rootdir) Dan
                Als createFolders toen
                    fso.CreateFolder rootdir
                Anders
                    bolret = Vals
                Eind als
            Eind als
        Daarna
        Als bolret toen
            Voor Elke fldr in fso.getfolder (rootdir) .SubFolders
                Indien Weggegaan (fldr. Naam, 2) = fldrs (UBound (fldrs)) Dan
                    md = fldr. Weg
                    De Functie van de uitgang
                Eind als
            Daarna
        Eind als
        De Functie van de uitgang
    Eind als
De Functie van het eind

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

>>after heeft het tussenvoegsel de overeenkomstige kolom in sql server 2008 een waarde van 1884-07-21!!! welke mistake do I maakt? <>Maar om uw vraag te beantwoorden….      :)

U bent er niet in geslaagd om citaten rond de datum toe te voegen die het volgende om veroorzaakt te gebeuren:
1884-07-21 = 00:00 -1990 ==> 1894-07-21: 00.000

Uw tussenvoegsel moet als dit kijken:
TUSSENVOEGSEL IN xxx (Verwerkt aa, Gestuurd BB, CC, dd, linecount) WAARDEN („aal“, „BB“, „20100626“, 0, „A12977F0F1D340929172EB61DD80A653@aatjanPC3“, 4, „0“)
Andere oplossingen  
 
programming4us programming4us