Вопрос : Внешний вид 2007 - Автомобиль создает список распределения

Я работаю на большом заведении using обмен MS.  Электронная почта было послано к мне с множественными именами от их местного списка распределения.  Я был спрошены, что уточняю спрошенную информацию, периодически, и посылаю обновленное к этому списку людей которые я могу увидеть в моем: линия, и имеет учрежденческое электронная почта addresses.

How может я автоматически создать новый местный список распределения от имен в этом коллекторе электронная почта, без индивидуально добавлять каждое одно?

Thanks,

Cook class=

Ответ : Внешний вид 2007 - Автомобиль создает список распределения

Друг держите звонок 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