Pytanie : Dlaczego I save przybywający email doczepianie w odmianowy falcówka?

Cześć,

I polubić save przybywający przodować kartoteka dołączać w email w subfolder.  Opierać się na the przodować kartoteka - imię, I chcieć the przodować kartoteka w odmianowy falcówka automatycznie.  Na przykład, przodować kartoteka wymieniać WFT_NC0136065_T01_James_201005.xls.  I chcieć the macro James the unikalny słowo kluczowe "NC0136065" od the spreadsheet imię i the przodować kartoteka w the subfolder wymieniać "0136065 James".

I polubić the macro pod/>Amreska pracować z 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:
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 (Rzecz Jako Outlook.MailItem)
    "Zmieniać the ścieżka na the następny linia the falcówka ty chcieć the doczepianie save.  The ścieżka musieć z backslash."
    Const SAVE_TO_PATH = "C:\Some Folder\August 2009 \"
    Ciemnawy olkAttachment Jako Outlook.Attachment, _
        strFilename Jako Sznurek, _
        objFSO Przedmiot
    Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
    Dla Item.Attachments olkAttachment W Item.Attachments
        Jeżeli objFSO.GetExtensionName (LCase (olkAttachment.FILENAME)) = "xls" Wtedy
            Jeżeli InStr ((1), olkAttachment.FILENAME, "200908") Wtedy
                strFilename = olkAttachment.FILENAME
                intcount = (0)
                Robić Podczas Gdy Prawdziwy
                    Jeżeli Dir (SAVE_TO_PATH & strFilename) = "" Wtedy
                        Wyjście
                    Inny
                        intcount = intcount + (1)
                        "Redagować the kartoteka - imię format na the następny linia pragnąć"
                        strFilename = "Kopia (" & intcount & ")" & olkAttachment.FILENAME
                    Kończyć Jeżeli
                Pętla
                olkAttachment.SaveAsFile SAVE_TO_PATH & strFilename
            Kończyć Jeżeli
        Kończyć Jeżeli
    Następnie
    Ustalony objFSO = Nic
    Ustalony olkAttachment = Nic
Końcówka Okręt podwodny

 
Funkcja md (dosPath Jako Sznurek, Fakultatywny createFolders Boolowski) Sznurek
Ciemnawy fso Przedmiot
Ciemnawy fldrs () Sznurek
Ciemnawy rootdir Sznurek
Ciemnawy fldrIndex Jako Integer
Ciemnawy bolret Boolowski
    
    md = ""
    Ustalony fso = CreateObject ("Scripting.FileSystemObject")
    Jeśli nie fso.FolderExists (dosPath) Wtedy
        fldrs = Rozłam (dosPath, "\ ")
        rootdir = fldrs ((0))
        Jeśli nie fso.FolderExists (rootdir) Wtedy
            Wyjście Funkcja
        Kończyć Jeżeli
 
        bolret = Prawdziwy
        Dla fldrIndex = (1) UBound (fldrs) - (1)
            rootdir = rootdir & "\" & fldrs (fldrIndex)
            Jeśli nie fso.FolderExists (rootdir) Wtedy
                Jeżeli createFolders Wtedy
                    fso.CreateFolder rootdir
                Inny
                    bolret = Fałszywy
                Kończyć Jeżeli
            Kończyć Jeżeli
        Następnie
        Jeżeli bolret Wtedy
            Dla .SubFolders fldr W fso.getfolder (rootdir) .SubFolders
                Jeżeli Opuszczać (fldr. Imię, 2) = fldrs (UBound (fldrs)) Wtedy
                    md = fldr. Ścieżka
                    Wyjście Funkcja
                Kończyć Jeżeli
            Następnie
        Kończyć Jeżeli
        Wychodzić Funkcja
    Kończyć Jeżeli
Kończyć Funkcja

Odpowiedź : Dlaczego I save przybywający email doczepianie w odmianowy falcówka?

>>after the wszywka the kolumna w sql serwer 2008 mieć wartość 1884-07-21!!! jaki błąd i robić? <>Ale twój pytanie….      :)

Ty nie udać się wycena wokoło the data che powodować the następujący:
1884-07-21 = -1990 ==> 1894-07-21 00:00: 00.000

Twój wszywka potrzeba jak to:
WSZYWKA W xxx (aa, bb, Wysyłać, Cc, dd, linecount) WARTOŚĆ ("aal", "bb", "20100626", (0), "A12977F0F1D340929172EB61DD80A653@aatjanPC3", 4, "(0)")
Inne rozwiązania  
 
programming4us programming4us