Vraag : De druk pdf, het woord, en blinken e-mailgehechtheid van inboxomslag uit

Hallo, zou

I veelvoudige e-mailgehechtheid willen automatisch drukken.  De dossiers in bijlage is uitblinken dossiers, pdf, en/of woorddocumenten.  Ik wil slechts de gehechtheid zonder het e-mailbericht drukken.  De e-mailberichten worden reeds gevestigd in mijn inboxomslag.  Is daar een macro om dit te doen?. />My de versie

The hieronder onder de werken voor druk blinkt gehechtheid uit en ik wil aan het pdf en word.

Thank u,
Amreska toevoegen
" 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:

Private verklaart de Lib „shell32.dll“ van ShellExecute _ van de Functie
  „Alias ShellExecuteA“ (ByVal hWnd zoals lang, lpOperation ByVal als Koord, _
  ByVal lpFile als Koord, lpParameters ByVal als Koord, _
  ByVal lpDirectory als Koord, ByVal nShowCmd zoals lang) zoals lang

Sub printExcelAttachments ()
Schemerige itms als Voorwerp
Schemerige itm als Voorwerp
Schemerige sh als Voorwerp
Schemerige att als Voorwerp
Schemerige objFSO als Voorwerp
Schemerige objTempFolder als Voorwerp
Schemerige dlg als FileDialog
Schemerige xlApp als Voorwerp
Schemerige xlWB als Voorwerp
Schemerige xlWS als Voorwerp
 
    Reeks itms = Application.ActiveExplorer.Selection
 
    'Op Fout hervat daarna
    Plaats objFSO = CreateObject („Scripting.FileSystemObject“)
    Plaats objTempFolder = objFSO.GetSpecialFolder (2)
    Plaats xlApp = CreateObject („excel.application“)
    Voor Elke itm in itms
        Voor Elke att in itm. Gehechtheid
            Selecteer Geval Juiste LCase ((att.FileName, Len (att.FileName) - InStrRev (att.FileName, „. “)))
            Geval „xls“
                att.SaveAsFile objTempFolder & „\“ & att.FileName
                xlApp.workbooks.Open objTempFolder & „\“ & att.FileName
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
            Geval „xlsm“
                att.SaveAsFile objTempFolder & „\“ & att.FileName
                xlApp.workbooks.Open objTempFolder & „\“ & att.FileName
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
'Geval „123“
'att.SaveAsFile objTempFolder & „\“ & att. Filename
'xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
'Voor Elke xlWS in xlApp.workbooks (1) .worksheets
'xlWS.PrintOut
'Daarna
'xlApp.workbooks (1). Dichte Vals
'Geval „456“
'att.SaveAsFile objTempFolder & „\“ & att. Filename
'xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
'Voor Elke xlWS in xlApp.workbooks (1) .worksheets
'xlWS.PrintOut
'Daarna
'xlApp.workbooks (1). Dichte Vals
            Uitgezocht eind
        Daarna
    Daarna
    xlApp.Quit
Sub van het eind

Antwoord : De druk pdf, het woord, en blinken e-mailgehechtheid van inboxomslag uit

Houd alternatief de API vraag bij de bovenkant zoals vóór en gebruik:

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:

Sub printExcelAttachments ()
Schemerige itms als Voorwerp
Schemerige itm als Voorwerp
Schemerige sh als Voorwerp
Schemerige att als Voorwerp
Schemerige objFSO als Voorwerp
Schemerige objTempFolder als Voorwerp
Schemerige dlg als FileDialog
Schemerige xlApp als Voorwerp
Schemerige xlWB als Voorwerp
Schemerige xlWS als Voorwerp
 
    Reeks itms = Application.ActiveExplorer.Selection
 
    'Op Fout hervat daarna
    Plaats objFSO = CreateObject („Scripting.FileSystemObject“)
    Plaats objTempFolder = objFSO.GetSpecialFolder (2)
    Plaats xlApp = CreateObject („excel.application“)
    Voor Elke itm in itms
        Voor Elke att in itm. Gehechtheid
            Selecteer Geval Juiste LCase ((att. Filename, Len (att. Filename) - InStrRev (att. Filename, „. “)))
            Geval „xls“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
            Geval „xlsm“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
            Geval „doc.“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                ShellExecute 0&, „Druk“, objTempFolder &“ \ „& att. Filename, 0&, 0&, 0&
            Geval „pdf“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                ShellExecute 0&, „Druk“, objTempFolder &“ \ „& att. Filename, 0&, 0&, 0&
            Uitgezocht eind
        Daarna
    Daarna
    xlApp.Quit
Sub van het eind
Andere oplossingen  
 
programming4us programming4us