Questione : Dopo l'esportazione e la disposizione di Excel può il email dell'automobile di I?

Ho una base di dati di Access 2000 che esporta, allora formatto 3 rapporti per 166 reparti. l'esportazione di nomi della lima del
The gradice così, con il numero di reparto mentre la prima parte del
This di nome di schedario. funziona grande. Ora voglio potere inviare con la posta elettronica i rapporti ai reparti adatti. Non sono sicuro se questo può essere fatto.

0001 - anniversario Report.xls
0001 di luglio - compleanno Report.xls
0001 di luglio - la prestazione Report.xls

It di luglio sarebbe grande farli inviare con la posta elettronica insieme, ma separato essere fine. Qualche cosa non dovere manualmente trasmettere 166 email address di emails.

per il reparto 0001 è [email protected]; il codice di [email protected]

The sotto è per la prima esportazione, gli altri 2 sono gli stessi tranne il nome di schedario e l'aiuto di domanda name.

Any notevolmente è apprezzato. Ringraziare you. class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
>Private notpretty Command0_Click secondari " del class= " del id= " codeSnippet841853 del 
 0 di Err.Number = CurrentDb.CreateQueryDef (“rapporto di anniversario„)
Sull'errore 0 di avanzamento
 
strQry = “Departments1 PRESCELTO. [DeptNum], Departments1. [RestNumbertext] da ORDINE Departments1 da Departments1. [DeptNum]; „
Regolare il rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
Fanno mentre non rst.EOF
Percorso = “documenti di C:\Documents and Settings\Name\My \ rapporti mensili \„ del ristorante
StrBU = rst (“RestNumbertext„)
StrExt = RestNumber & “- rapporto di anniversario di luglio„ &„ .xls "
strFile = percorso & StrBU & StrExt
intDcode = rst (“DeptNum„)
qDef.SQL = “SELEZIONANO * A PARTIRE da QryAnniversaryReport DOVE DeptNum =„ & intDcode & ""
 
acOutputQuery di DoCmd.OutputTo, “rapporto di anniversario„, acFormatXLS, strFile, falso


Regolare il oWB = oXL.Workbooks.Open (strFile)
Regolare il oWS = oWB.Sheets (1)
oWS.Cells.Font.Name = “Times New Roman„
oWS.Cells.Font.Size = 10
oWS.Rows (1).Font.Bold = allineano
oWS.Columns (“A: Z„) .AutoFit
oWS.Columns (“C„) .HorizontalAlignment = -4108
oWS.Columns (“E„) .HorizontalAlignment = -4108
oWS.Columns (“G: K„) .HorizontalAlignment = -4108
oWS.Columns (“H„) .NumberFormat = “mm/dd/yyyy„
oWS.PageSetup.TopMargin = 0.2
oWS.PageSetup.RightMargin = 0.2
oWS.PageSetup.LeftMargin = 0.2
oWS.PageSetup.BottomMargin = 0.2
oWS.PageSetup.Orientation = 2
oWS.PageSetup.Zoom = falso
oWS.PageSetup.FitToPagesWide = 1
oWS.PageSetup.FitToPagesTall = 1

oWB.Save
oWB.Close
Regolare il oWB = niente

rst.MoveNext
Ciclo
 
MsgBox (“esportazione completa„)
Regolare il rst = niente
 
Exit_Command0_Click:
    Uscire il sommergibile
 
Err_Command0_Click:
    MsgBox Err.Description
    Riassunto Exit_Command0_Click
    
Sommergibile dell'estremità
class= del

Risposta : Dopo l'esportazione e la disposizione di Excel può il email dell'automobile di I?

Personalmente abbandonerei HDD Regen -- se non realizzi più progressi in 31 ora non è probabile avere alcun successo notevole con quell'azionamento.

Comincerei sperimentare con i divisorii -- generare un 44GB uno per iniziare, quindi vedere se formatta bene.

In caso affermativo, allora generare un divisorio di 10GB “BadArea1„ (ma non formattarlo);  ed allora un terzo divisorio che usa il resto del disc.    Se il terzo divisorio formatta bene, siete fatto a meno che vogliate sperimentare con appena come grande “BadArea1„ deve essere.     Se quello è il caso, cancellare il terzo divisorio e cancellare BadArea1;  ricreare un divisorio “BadArea1„ ma renderlo più piccolo (forse 5GB);  allora fare un altro divisorio dopo che esso e vedere se formatta bene.    Potete ripetere questo processo fino a che non isoliate appena come grande “BadArea1„ deve essere.

Se tracciate fuori la zona con i settori fisicamente nocivi, non è probabile spargersi agli altri divisorii finchè non sono sullo stesso cilindro fisico -- quale è MOLTO improbabile a meno che il vostro divisorio “BadArea1„ sia esattamente il giusto formato giù all'ultimo settore reale (quasi impossibile).
Altre soluzioni  
 
programming4us programming4us