Fråga : Skriv ut pdf, uttrycka och överträffa e-posttillbehör från inboxmapp

Hi

I skulle något liknande för att skriva ut multipele-posttillbehör automatiskt.  Fäst sparar är överträffar sparar, pdf och/eller uttrycker dokument.  Jag önskar endast att skriva ut tillbehören utan e-postmeddelandet.  E-postmeddelandena ar redan lokaliserade i min inboxmapp.  Finns det en makro som gör detta?. versionen för

My av framtidsutsikten är framtidsutsikten 2007, överträffar 2003 och uttrycker 2003
The som macro nedanföra nedanföra arbeten för printing överträffar tillbehör, och jag önskar att tillfoga till den pdf och word.

Thank dig,
Amreska > för 
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:
" codeBody " " class= " för Private förklarar fungerar _ för den ShellExecute liben ”shell32.dll”, Pseudonym ”ShellExecuteA” (ByVal hWnd som Long, den ByVal lpOperationen som stränger, _, lpFile ByVal som stränger, ByVal lpParameters som stränger, _, ByVal som är lpDirectory som, stränger, ByVal nShowCmd som Long) som Long UnderprintExcelAttachments () Dunkla itms som anmärker Dunkel itm som anmärker Dunkelt sh som anmärker Dunkel att som anmärker Dunkel objFSO som anmärker Dunkel objTempFolder som anmärker Dunkel dlg som FileDialog Dunkel xlApp som anmärker Dunkel xlWB som anmärker Dunkel xlWS som anmärker Fastställda itms = Application.ActiveExplorer.Selection 'På felmeritförteckning därefter Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”) Fastställd objTempFolder = objFSO.GetSpecialFolder (2) Fastställd xlApp = CreateObject (”excel.application”) För varje itm i itms För varje att i itm. Tillbehör Välj fallet LCase (rätten (att.FileName, Len (att.FileName) - InStrRev (att.FileName, ”. ”))) Fall ”xls”, att.SaveAsFile-objTempFolder & ”\” & att.FileName xlApp.workbooks.Open-objTempFolder & ”\” & att.FileName För varje xlWS i xlApp.workbooks (1) .worksheets xlWS.PrintOut Därefter xlApp.workbooks (1). Nära falskt Fall ”xlsm”, att.SaveAsFile-objTempFolder & ”\” & att.FileName xlApp.workbooks.Open-objTempFolder & ”\” & att.FileName För varje xlWS i xlApp.workbooks (1) .worksheets xlWS.PrintOut Därefter xlApp.workbooks (1). Nära falskt 'Fall ”123”, 'att.SaveAsFile-objTempFolder & ”\” & att. Filename 'xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename 'För varje xlWS i xlApp.workbooks (1) .worksheets 'xlWS.PrintOut 'Därefter 'xlApp.workbooks (1). Nära falskt 'Fall ”456”, 'att.SaveAsFile-objTempFolder & ”\” & att. Filename 'xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename 'För varje xlWS i xlApp.workbooks (1) .worksheets 'xlWS.PrintOut 'Därefter 'xlApp.workbooks (1). Nära falskt Avsluta valt Därefter Därefter xlApp.Quit Avsluta suben
" klar "

Svar : Skriv ut pdf, uttrycka och överträffa e-posttillbehör från inboxmapp

Alternativt uppehälle API-appellen upptill som innan och bruk:

Chris
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:

UnderprintExcelAttachments ()
Dunkla itms som anmärker
Dunkel itm som anmärker
Dunkelt sh som anmärker
Dunkel att som anmärker
Dunkel objFSO som anmärker
Dunkel objTempFolder som anmärker
Dunkel dlg som FileDialog
Dunkel xlApp som anmärker
Dunkel xlWB som anmärker
Dunkel xlWS som anmärker
 
    Fastställda itms = Application.ActiveExplorer.Selection
 
    'På felmeritförteckning därefter
    Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
    Fastställd objTempFolder = objFSO.GetSpecialFolder (2)
    Fastställd xlApp = CreateObject (”excel.application”)
    För varje itm i itms
        För varje att i itm. Tillbehör
            Välj fallet LCase (rätten (att. Filename Len (att. Filename) - InStrRev (att. Filename ”. ”)))
            Fall ”xls”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename
                För varje xlWS i xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Därefter
                xlApp.workbooks (1). Nära falskt
            Fall ”xlsm”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename
                För varje xlWS i xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Därefter
                xlApp.workbooks (1). Nära falskt
            Fall ”doc”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                ShellExecute 0&, ”tryck”, objTempFolder &” \ ”& att. Filename 0&, 0&, 0&
            Fall ”pdf”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                ShellExecute 0&, ”tryck”, objTempFolder &” \ ”& att. Filename 0&, 0&, 0&
            Avsluta valt
        Därefter
    Därefter
    xlApp.Quit
Avsluta suben
Andra lösningar  
 
programming4us programming4us