Fråga : Framtidsutsikt 2007 - Automatiskn skapar distribitionslistan

Jag fungerar på en stor institution using ms-utbyte.  En e-post överfördes till mig med multipel namnger från deras lokaldistribitionslista.  Jag har frågats att uppdatera den bedda informationen, periodvis och överför uppdaterad till detta listar av folk det som jag kan se i mitt: fodra, och vem har den institutionella e-posten addresses.

How kan jag automatiskt skapa en ny lokaldistribitionslista från namnger i denna e-posttitelrad, utan individuellt att tillfoga varje?

Thanks,

Cook " klar "

Svar : Framtidsutsikt 2007 - Automatiskn skapar distribitionslistan

Alternativt uppehälle API-appellen upptill som innan och bruk:

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:

UnderprintExcelAttachments ()
Dunkla itms som anmärker
Dunkel itm som anmärker
Dunkelt sh som anmärker
Dunkel att som anmärker
Dunkel objFSO som anmärker
Dunkel objTempFolder som anmärker
Dunkel dlg som FileDialog
Dunkel xlApp som anmärker
Dunkel xlWB som anmärker
Dunkel xlWS som anmärker
 
    Fastställda itms = Application.ActiveExplorer.Selection
 
    'På felmeritförteckning därefter
    Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
    Fastställd objTempFolder = objFSO.GetSpecialFolder (2)
    Fastställd xlApp = CreateObject (”excel.application”)
    För varje itm i itms
        För varje att i itm. Tillbehör
            Välj fallet LCase (rätten (att. Filename Len (att. Filename) - InStrRev (att. Filename ”. ”)))
            Fall ”xls”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename
                För varje xlWS i xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Därefter
                xlApp.workbooks (1). Nära falskt
            Fall ”xlsm”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename
                För varje xlWS i xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Därefter
                xlApp.workbooks (1). Nära falskt
            Fall ”doc”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                ShellExecute 0&, ”tryck”, objTempFolder &” \ ”& att. Filename 0&, 0&, 0&
            Fall ”pdf”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                ShellExecute 0&, ”tryck”, objTempFolder &” \ ”& att. Filename 0&, 0&, 0&
            Avsluta valt
        Därefter
    Därefter
    xlApp.Quit
Avsluta suben
Andra lösningar  
 
programming4us programming4us