Frage : Pdf drucken, eMail-Zubehöre vom inbox Faltblatt abfassen und übertreffen

Hallo, möchte

I mehrfache eMail-Zubehöre automatisch drucken.  Die angebrachten Akten ist übertreffen Akten, pdf und/oder Wortdokumente.  Ich möchte nur die Zubehöre ohne das E-Mail-Nachricht drucken.  Die E-Mail-Nachricht sitzen bereits in meinem inbox Faltblatt.  Gibt es ein Makro, zum dies zu tun?.

My Version der Aussicht ist Aussicht 2007, übertreffen 2003, und Makro des Wortes 2003
The unten unterhalb der Arbeiten für Drucken übertreffen Zubehöre und ich möchte es pdf und word.

Thank hinzufügen Sie,
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

Private erklären Funktion ShellExecute Bibliothek „shell32.dll“ _
  Alias „ShellExecuteA“ (ByVal hWnd als lang, ByVal lpOperation als Schnur, _
  ByVal lpFile als Schnur, ByVal lpParameters als Schnur, _
  ByVal lpDirectory als Schnur, ByVal nShowCmd als lang) als lang

VorprintExcelAttachments ()
Schwache itms als Gegenstand
Schwaches itm als Gegenstand
Schwaches SH als Gegenstand
Schwaches ATT als Gegenstand
Schwaches objFSO als Gegenstand
Schwaches objTempFolder als Gegenstand
Schwaches DLG als FileDialog
Schwaches xlApp als Gegenstand
Schwaches xlWB als Gegenstand
Schwaches xlWS als Gegenstand
 
    Itms = Application.ActiveExplorer.Selection einstellen
 
    'Auf Störungs-Zusammenfassung zunächst
    objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
    objTempFolder = objFSO.GetSpecialFolder einstellen (2)
    xlApp = CreateObject („excel.application“) einstellen
    Für jedes itm in den itms
        Für jedes ATT im itm. Zubehöre
            Fall LCase vorwählen (recht (att.FileName, Len (att.FileName) - InStrRev (att.FileName, „.")))
            „Xls“ umkleiden
                att.SaveAsFile objTempFolder u. „\“ u. att.FileName
                xlApp.workbooks.Open objTempFolder u. „\“ u. att.FileName
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
            Fall „xlsm“
                att.SaveAsFile objTempFolder u. „\“ u. att.FileName
                xlApp.workbooks.Open objTempFolder u. „\“ u. att.FileName
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
'Fall „123“
'att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
'xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
'Für jedes xlWS in xlApp.workbooks (1).worksheets
'xlWS.PrintOut
'Zunächst
'xlApp.workbooks (1).Close falsch
'Fall „456“
'att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
'xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
'Für jedes xlWS in xlApp.workbooks (1).worksheets
'xlWS.PrintOut
'Zunächst
'xlApp.workbooks (1).Close falsch
            Ende auserwählt
        Zunächst
    Zunächst
    xlApp.Quit
Enden-Unterseeboot

Antwort : Pdf drucken, eMail-Zubehöre vom inbox Faltblatt abfassen und übertreffen

Den API-Anruf an der Oberseite als vorher wechselweise halten und verwenden:

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

VorprintExcelAttachments ()
Schwache itms als Gegenstand
Schwaches itm als Gegenstand
Schwaches SH als Gegenstand
Schwaches ATT als Gegenstand
Schwaches objFSO als Gegenstand
Schwaches objTempFolder als Gegenstand
Schwaches DLG als FileDialog
Schwaches xlApp als Gegenstand
Schwaches xlWB als Gegenstand
Schwaches xlWS als Gegenstand
 
    Itms = Application.ActiveExplorer.Selection einstellen
 
    'Auf Störungs-Zusammenfassung zunächst
    objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
    objTempFolder = objFSO.GetSpecialFolder einstellen (2)
    xlApp = CreateObject („excel.application“) einstellen
    Für jedes itm in den itms
        Für jedes ATT im itm. Zubehöre
            Fall LCase vorwählen (recht (ATT. Dateiname, Len (ATT. Dateiname) - InStrRev (ATT. Dateiname, „.")))
            Fall „xls“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
            Fall „xlsm“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
            Fall „Doc.“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                ShellExecute 0&, „Druck“, objTempFolder u.“ \ „u. ATT. Dateiname, 0&, 0&, 0&
            Fall „pdf“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                ShellExecute 0&, „Druck“, objTempFolder u.“ \ „u. ATT. Dateiname, 0&, 0&, 0&
            Ende auserwählt
        Zunächst
    Zunächst
    xlApp.Quit
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us