Вопрос : Напечатайте PDF, сформулируйте, и первенствуйте приложения электронная почта от скоросшивателя inbox

Hi,

I хотел было бы напечатать множественные приложения электронная почта автоматически.  Прикрепленные архивы первенствуют архивы, PDF, and/or документы слова.  Я только хочу напечатать приложения без сообщения по электронной почте.  Сообщения по электронной почте уже расположены в моем скоросшивателе inbox.  Макрос для того чтобы сделать это?. вариантом

My внешнего вида будет внешний вид 2007, первенствует 2003, и макрос слова 2003
The ниже под работами для печатание первенствует приложения и я хочу добавить к ему PDF и word.

Thank вы,
Amreska class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
class= " id= " codeSnippet852551 
Private объявляет _ свободы «shell32.dll» ShellExecute функции
  Псевдоним «ShellExecuteA» (hWnd ByVal как длиной, lpOperation ByVal как шнур, _
  ByVal lpFile как шнур, lpParameters ByVal как шнур, _
  ByVal lpDirectory как nShowCmd шнура, ByVal как длиной) как длиной

Sub printExcelAttachments ()
Тусклые itms как предмет
Тусклое itm как предмет
Тусклое sh как предмет
Тусклый att как предмет
Тусклое objFSO как предмет
Тусклое objTempFolder как предмет
Тусклый dlg как FileDialog
Тусклое xlApp как предмет
Тусклое xlWB как предмет
Тусклое xlWS как предмет
 
    Установите itms = Application.ActiveExplorer.Selection
 
    'На резюме ошибки затем
    Установите objFSO = CreateObject («Scripting.FileSystemObject»)
    Установите objTempFolder = objFSO.GetSpecialFolder (2)
    Установите xlApp = CreateObject («excel.application»)
    Для каждого itm в itms
        Для каждого att в itm. Приложения
            Выберите случай LCase (правое (att.FileName, Len (att.FileName) - InStrRev (att.FileName, «.")))
            Покрывайте «xls»
                objTempFolder att.SaveAsFile & «\» & att.FileName
                objTempFolder xlApp.workbooks.Open & «\» & att.FileName
                Для каждого xlWS в xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Затем
                xlApp.workbooks (1).Close ложное
            Случай «xlsm»
                objTempFolder att.SaveAsFile & «\» & att.FileName
                objTempFolder xlApp.workbooks.Open & «\» & att.FileName
                Для каждого xlWS в xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Затем
                xlApp.workbooks (1).Close ложное
'Случай «123»
'objTempFolder att.SaveAsFile & «\» & att. Filename
'objTempFolder xlApp.workbooks.Open & «\» & att. Filename
'Для каждого xlWS в xlApp.workbooks (1).worksheets
'xlWS.PrintOut
'Затем
'xlApp.workbooks (1).Close ложное
'Случай «456»
'objTempFolder att.SaveAsFile & «\» & att. Filename
'objTempFolder xlApp.workbooks.Open & «\» & att. Filename
'Для каждого xlWS в xlApp.workbooks (1).worksheets
'xlWS.PrintOut
'Затем
'xlApp.workbooks (1).Close ложное
            Конец отборный
        Затем
    Затем
    xlApp.Quit
Подводная лодка конца
class=

Ответ : Напечатайте PDF, сформулируйте, и первенствуйте приложения электронная почта от скоросшивателя inbox

Друг держите звонок API на верхней части как раньше, и используйте:

Крис
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 ()
Тусклые itms как предмет
Тусклое itm как предмет
Тусклое sh как предмет
Тусклый att как предмет
Тусклое objFSO как предмет
Тусклое objTempFolder как предмет
Тусклый dlg как FileDialog
Тусклое xlApp как предмет
Тусклое xlWB как предмет
Тусклое xlWS как предмет
 
    Установите itms = Application.ActiveExplorer.Selection
 
    'На резюме ошибки затем
    Установите objFSO = CreateObject («Scripting.FileSystemObject»)
    Установите objTempFolder = objFSO.GetSpecialFolder (2)
    Установите xlApp = CreateObject («excel.application»)
    Для каждого itm в itms
        Для каждого att в itm. Приложения
            Выберите случай LCase (правое (att. Filename, Len (att. Filename) - InStrRev (att. Filename, «.")))
            Случай «xls»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                objTempFolder xlApp.workbooks.Open & «\» & att. Filename
                Для каждого xlWS в xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Затем
                xlApp.workbooks (1).Close ложное
            Случай «xlsm»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                objTempFolder xlApp.workbooks.Open & «\» & att. Filename
                Для каждого xlWS в xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Затем
                xlApp.workbooks (1).Close ложное
            Случай «doc»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                ShellExecute 0&, «печать», objTempFolder &» \ «& att. Filename, 0&, 0&, 0&
            Случай «PDF»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                ShellExecute 0&, «печать», objTempFolder &» \ «& att. Filename, 0&, 0&, 0&
            Конец отборный
        Затем
    Затем
    xlApp.Quit
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us