Questione : Prospettiva 2007 - L'automobile genera la lista di distribuzione

Lavoro ad una grande istituzione using lo scambio del ms.  Un email è stato trasmesso me con i nomi multipli dalla loro lista di distribuzione locale.  Sono stato chiesto di aggiornare le informazioni chieste, periodicamente e trasmetto l'aggiornato a questa lista della gente che posso vedere in mio: la linea e chi ha

How di email address. può io generare automaticamente una nuova lista di distribuzione locale dai nomi in questa intestazione del email, senza individualmente aggiungere ciascuno?

Thanks,

Cook class= del

Risposta : Prospettiva 2007 - L'automobile genera la lista di distribuzione

Mantenere alternativamente la chiamata di api alla parte superiore come prima ed usare:

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:

printExcelAttachments secondari ()
Itms fiochi come oggetto
Itm fioco come oggetto
SH fioco come oggetto
ATT fioca come oggetto
objFSO fioco come oggetto
objTempFolder fioco come oggetto
Dlg fioco come FileDialog
xlApp fioco come oggetto
xlWB fioco come oggetto
xlWS fioco come oggetto
 
    Regolare i itms = Application.ActiveExplorer.Selection
 
    'Sul riassunto di errore dopo
    Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
    Regolare il objTempFolder = objFSO.GetSpecialFolder (2)
    Regolare il xlApp = CreateObject (“excel.application„)
    Per ogni itm nei itms
        Per ogni ATT nel itm. Collegamenti
            Selezionare il caso LCase (di destra (ATT. Nome di schedario, Len (ATT. Nome di schedario) - InStrRev (ATT. Nome di schedario, “.")))
            Caso “xls„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                objTempFolder di xlApp.workbooks.Open & “\„ & ATT. Nome di schedario
                Per ogni xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Dopo
                xlApp.workbooks (1).Close falso
            Caso “xlsm„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                objTempFolder di xlApp.workbooks.Open & “\„ & ATT. Nome di schedario
                Per ogni xlWS in xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Dopo
                xlApp.workbooks (1).Close falso
            Caso “documento„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                ShellExecute 0&, “stampa„, objTempFolder &„ \ “& ATT. Nome di schedario, 0&, 0&, 0&
            Caso “pdf„
                objTempFolder di att.SaveAsFile & “\„ & ATT. Nome di schedario
                ShellExecute 0&, “stampa„, objTempFolder &„ \ “& ATT. Nome di schedario, 0&, 0&, 0&
            Estremità prescelta
        Dopo
    Dopo
    xlApp.Quit
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us