Frage : Aussicht 2007 - Automobil erstellen Verteilerliste

Ich arbeite an einer großen Anstalt using Mitgliedstaat-Austausch.  Eine eMail wurde mir mit mehrfachen Namen von ihrer lokalen Verteilerliste geschickt.  Ich bin gebeten worden, die angeforderten Informationen zu aktualisieren, regelmäßig und das modernisierte zu dieser Liste der Leute schicke, die ich in mein sehen kann: Linie und wer haben Institutionsemail address.

How kann ich eine neue lokale Verteilerliste von den Namen in dieser eMail-Überschrift automatisch erstellen, ohne jedes einzeln zu addieren?

Thanks,

Cook

Antwort : Aussicht 2007 - Automobil erstellen Verteilerliste

Den API-Anruf an der Oberseite als vorher wechselweise halten und verwenden:

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

VorprintExcelAttachments ()
Schwache itms als Gegenstand
Schwaches itm als Gegenstand
Schwaches SH als Gegenstand
Schwaches ATT als Gegenstand
Schwaches objFSO als Gegenstand
Schwaches objTempFolder als Gegenstand
Schwaches DLG als FileDialog
Schwaches xlApp als Gegenstand
Schwaches xlWB als Gegenstand
Schwaches xlWS als Gegenstand
 
    Itms = Application.ActiveExplorer.Selection einstellen
 
    'Auf Störungs-Zusammenfassung zunächst
    objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
    objTempFolder = objFSO.GetSpecialFolder einstellen (2)
    xlApp = CreateObject („excel.application“) einstellen
    Für jedes itm in den itms
        Für jedes ATT im itm. Zubehöre
            Fall LCase vorwählen (recht (ATT. Dateiname, Len (ATT. Dateiname) - InStrRev (ATT. Dateiname, „.")))
            Fall „xls“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
            Fall „xlsm“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                xlApp.workbooks.Open objTempFolder u. „\“ u. ATT. Dateiname
                Für jedes xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Zunächst
                xlApp.workbooks (1).Close falsch
            Fall „Doc.“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                ShellExecute 0&, „Druck“, objTempFolder u.“ \ „u. ATT. Dateiname, 0&, 0&, 0&
            Fall „pdf“
                att.SaveAsFile objTempFolder u. „\“ u. ATT. Dateiname
                ShellExecute 0&, „Druck“, objTempFolder u.“ \ „u. ATT. Dateiname, 0&, 0&, 0&
            Ende auserwählt
        Zunächst
    Zunächst
    xlApp.Quit
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us