Pytanie : Drukować pdf, formułować, i przodować email doczepianie od inbox falcówka

Cześć,

I polubić wieloskładnikowy email doczepianie automatycznie.  The dołączać kartoteka być przodować kartoteka, pdf, and/or słowo dokument.  I tylko chcieć the doczepianie bez the e-mail.  The e-mail już lokalizować w mój inbox falcówka.  Być tam  macro być?.

My wersja światopogląd być światopogląd 2007, przodować 2003, i słowo 2003
The macro 2007 pod praca dla druk przodować doczepianie i I chcieć ono pdf i word.

Thank Ty,
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:

Private Oznajmiać Funkcja ShellExecute Wyzwolenie "shell32.dll" _
  Pseudonim "ShellExecuteA" (ByVal hWnd Długo, ByVal lpOperation Jako Sznurek, _
  ByVal lpFile Sznurek, ByVal lpParameters Jako Sznurek, _
  ByVal lpDirectory Jako Sznurek, ByVal nShowCmd Długo) Długo

Okręt podwodny printExcelAttachments ()
Ciemnawy itms Przedmiot
Ciemnawy itm Przedmiot
Ćmić sh Przedmiot
Ćmić att Przedmiot
Ćmić objFSO Przedmiot
Ćmić objTempFolder Przedmiot
Ćmić dlg Jako FileDialog
Ćmić xlApp Przedmiot
Ćmić xlWB Przedmiot
Ćmić xlWS Przedmiot
 
    Ustawiać itms = Application.ActiveExplorer.Selection
 
    'Na Błąd Życiorys Następnie
    Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
    Ustalony objTempFolder = objFSO.GetSpecialFolder (2)
    Ustalony xlApp = CreateObject ("excel.application")
    Dla Itms itm W itms
        Dla Itm att W itm. Doczepianie
            Wybrany Skrzynka LCase (Prawy (att.FileName, Len (att.FileName) - InStrRev (att.FileName, ".")))
            Skrzynka "xls"
                att.SaveAsFile objTempFolder & "\" & att.FileName
                xlApp.workbooks.Open objTempFolder & "\" & att.FileName
                Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Następnie
                xlApp.workbooks (1).Close Fałszywy
            Skrzynka "xlsm"
                att.SaveAsFile objTempFolder & "\" & att.FileName
                xlApp.workbooks.Open objTempFolder & "\" & att.FileName
                Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Następnie
                xlApp.workbooks (1).Close Fałszywy
'Skrzynka "123"
'att.SaveAsFile objTempFolder & "\" & att. Filename
'xlApp.workbooks.Open objTempFolder & "\" & att. Filename
'Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
'xlWS.PrintOut
'Następnie
'xlApp.workbooks (1).Close Fałszywy
'Skrzynka "456"
'att.SaveAsFile objTempFolder & "\" & att. Filename
'xlApp.workbooks.Open objTempFolder & "\" & att. Filename
'Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
'xlWS.PrintOut
'Następnie
'xlApp.workbooks (1).Close Fałszywy
            Końcówka Wybiórka
        Następnie
    Następnie
    xlApp.Quit
Końcówka Okręt podwodny

Odpowiedź : Drukować pdf, formułować, i przodować email doczepianie od inbox falcówka

Alternatywnie utrzymywać the API wezwanie przy the wierzchołek przedtem i używać:

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:

Okręt podwodny printExcelAttachments ()
Ciemnawy itms Przedmiot
Ciemnawy itm Przedmiot
Ćmić sh Przedmiot
Ćmić att Przedmiot
Ćmić objFSO Przedmiot
Ćmić objTempFolder Przedmiot
Ćmić dlg Jako FileDialog
Ćmić xlApp Przedmiot
Ćmić xlWB Przedmiot
Ćmić xlWS Przedmiot
 
    Ustawiać itms = Application.ActiveExplorer.Selection
 
    'Na Błąd Życiorys Następnie
    Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
    Ustalony objTempFolder = objFSO.GetSpecialFolder (2)
    Ustalony xlApp = CreateObject ("excel.application")
    Dla Itms itm W itms
        Dla Itm att W itm. Doczepianie
            Wybrany Skrzynka LCase (Prawy (att. Filename, Len (att. Filename) - InStrRev (att. Filename, ".")))
            Skrzynka "xls"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                xlApp.workbooks.Open objTempFolder & "\" & att. Filename
                Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Następnie
                xlApp.workbooks (1).Close Fałszywy
            Skrzynka "xlsm"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                xlApp.workbooks.Open objTempFolder & "\" & att. Filename
                Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Następnie
                xlApp.workbooks (1).Close Fałszywy
            Skrzynka "doc"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                ShellExecute 0&, "Druk", objTempFolder &" \ "& att. Filename, 0&, 0&, 0&
            Skrzynka "pdf"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                ShellExecute 0&, "Druk", objTempFolder &" \ "& att. Filename, 0&, 0&, 0&
            Końcówka Wybiórka
        Następnie
    Następnie
    xlApp.Quit
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us