Vraag : Vooruitzichten 2007 - de Auto leidt tot de Lijst van de Distributie

Ik werk bij een grote instelling gebruikend de Uitwisseling van lidstaten.  Een e-mail werd verzonden naar me met veelvoudige namen van hun lokale distributielijst.  Ik ben gevraagd om de gevraagde informatie bij te werken, periodiek, en bijgewerkt te verzenden naar deze lijst van mensen die ik in mijn kan zien: de lijn, en wie heeft institutionele e-mail addresses.

How kan ik een nieuwe lokale distributielijst van de namen in deze e-mailkopbal automatisch creëren, zonder elke individueel toe te voegen?

Thanks,

Cook

Antwoord : Vooruitzichten 2007 - de Auto leidt tot de Lijst van de Distributie

Houd alternatief de API vraag bij de bovenkant zoals vóór en gebruik:

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:

Sub printExcelAttachments ()
Schemerige itms als Voorwerp
Schemerige itm als Voorwerp
Schemerige sh als Voorwerp
Schemerige att als Voorwerp
Schemerige objFSO als Voorwerp
Schemerige objTempFolder als Voorwerp
Schemerige dlg als FileDialog
Schemerige xlApp als Voorwerp
Schemerige xlWB als Voorwerp
Schemerige xlWS als Voorwerp
 
    Reeks itms = Application.ActiveExplorer.Selection
 
    'Op Fout hervat daarna
    Plaats objFSO = CreateObject („Scripting.FileSystemObject“)
    Plaats objTempFolder = objFSO.GetSpecialFolder (2)
    Plaats xlApp = CreateObject („excel.application“)
    Voor Elke itm in itms
        Voor Elke att in itm. Gehechtheid
            Selecteer Geval Juiste LCase ((att. Filename, Len (att. Filename) - InStrRev (att. Filename, „. “)))
            Geval „xls“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
            Geval „xlsm“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                xlApp.workbooks.Open objTempFolder & „\“ & att. Filename
                Voor Elke xlWS in xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Daarna
                xlApp.workbooks (1). Dichte Vals
            Geval „doc.“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                ShellExecute 0&, „Druk“, objTempFolder &“ \ „& att. Filename, 0&, 0&, 0&
            Geval „pdf“
                att.SaveAsFile objTempFolder & „\“ & att. Filename
                ShellExecute 0&, „Druk“, objTempFolder &“ \ „& att. Filename, 0&, 0&, 0&
            Uitgezocht eind
        Daarna
    Daarna
    xlApp.Quit
Sub van het eind
Andere oplossingen  
 
programming4us programming4us