Fråga : Efter Excelexporten och formaterar kan I-automatiske-posten?

Jag har en Access 2000databas, som exporterar, då formaterar 3 rapporter för 166 avdelningar.
The sparar namnger exportnågot liknande så, med avdelningen numrerar som den första delen av spara - känd.
This fungerar utmärkt. Nu jag önskar att vara kompetent till e-posten rapporterna till anslåavdelningarna. Förmiddag I inte sure, om detta kan göras.

0001 - den Juli årsdagen Report.xls
0001 - Juli födelsedag Report.xls
0001 - den Juli kapaciteten Report.xls

It skulle är stor att ha dem e-posten tillsammans, men avskiljer skulle är boten. Något att inte måste manuellt att överföra 166 emails.

email tilltalar för avdelning 0001 är [email protected]; [email protected]

The kodifierar nedanfört är för den första exporten, de andra 2na är samma bortsett från spara - namnge, och hjälpen för queryen name.

Any uppskattas väldeliga. Tacka you. > för

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:

" codeBody " " >Private underCommand0_Click för class= " för 0 därefter = CurrentDb.CreateQueryDef (”årsdagrapport”) På fel GoTo 0 strQry = ”VALD Departments1. [DeptNum], Departments1. FRÅN Departments1 BESTÄLLA VID Departments1, [RestNumbertext]. [DeptNum]; ”, Fastställd rst = strQry CurrentDb () .OpenRecordset (, dbOpenDynaset) rst.MoveLast rst.MoveFirst Gör stunder inte rst.EOF Banan = ”C:\Documents and Settings\Name\My dokument \ restaurangmånadstidningen anmäler \”, StrBU = rst (”RestNumbertext”) StrExt = RestNumber & ”- Juli årsdagrapport” &” .xls ", strFile = bana & StrBU & StrExt intDcode = rst (”DeptNum”) qDef.SQL = ”VÄLJER * FRÅN QryAnniversaryReport VAR DeptNum =” & intDcode & "", DoCmd.OutputTo-acOutputQuery, ”årsdagrapport”, acFormatXLS, strFile som är falsk Fastställd oWB = (strFile) oXL.Workbooks.Open, Fastställd oWS = oWB.Sheets (1) oWS.Cells.Font.Name = ”Times New Roman”, oWS.Cells.Font.Size = 10 oWS.Rows (1). Font.Bold = True 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 = falskt oWS.PageSetup.FitToPagesWide = 1 oWS.PageSetup.FitToPagesTall = 1 oWB.Save oWB.Close Fastställd oWB = ingenting rst.MoveNext Kretsa MsgBox (”färdig export”) Fastställd rst = ingenting Exit_Command0_Click: Gå ut suben Err_Command0_Click: MsgBox Err.Description Meritförteckning Exit_Command0_Click Avsluta suben " klar "

Svar : Efter Excelexporten och formaterar kan I-automatiske-posten?

Personligen jag skulle aborterar HDD Regen -- om den inte har gjort mer framsteg i 31 timmar, den är inte rimlig att ha någon noterbar framgång med det drev.

Jag skulle start som experimenterar med delningar -- skapa en 44GB en för att starta, då se, om den formaterar bra.

Skapa därefter en delning för 10GB ”BadArea1” (men inte formatera den), om så;  och därefter en 3rd delning som använder vila av disken.    Om den 3rd delningen formaterar bra, du göras, om inte du önskar att experimentera med hur precis stor ”BadArea1” behöver att vara.     Om det är fallet, ta bort den 3rd delningen och ta bort BadArea1;  skapa en delning ”BadArea1 på nytt” men gör den mindre (kanske 5GB);  därefter gör en annan delning efter det och se, om det formaterar bra.    Du kan repetition detta processaa tills dig isolaten hur precis stor ”BadArea1” måste att vara.

Om du kartlägger ut området med fysiskt skadada sektorer, det är inte rimligt till spridning till de andra delningarna, så länge som de inte är på den samma läkarundersökningcylindern -- storleksanpassa besegrar till (den nästan omöjliga) sist faktiska sektoren, vilket är MYCKET osannolikt, om inte din delning ”BadArea1” var exakt rätten.