Vraag : Na Excel de uitvoer en het formaat kan ik autoe-mail?

Ik heb een gegevensbestand van Access 2000 dat de uitvoer, dan 3 rapporten voor 166 Afdelingen formatteert.
The- dossiernamen uit als, met het afdelingsaantal als eerste deel van het dossier - grote naam. de werken
This. Nu wil ik de rapporten aan de aangewezen afdelingen kunnen met de elektronische post versturen. Ik ben niet zeker als dit kan worden gedaan.

0001 - de Verjaardag Report.xls
0001 van Juli - Juli Verjaardag Report.xls
0001 - de Prestaties van Juli Report.xls

It zouden groot zijn om hen te hebben samen met de elektronische post versturen, maar afzonderlijk fijn zou zijn. Om het even wat 166 adressen emails.

email voor Afdeling 0001 manueel moeten niet verzenden is [email protected]; de code [email protected]

The is hieronder voor de eerste uitvoer, zijn andere 2 het zelfde behalve het dossier - de naam en de vraagname.

Any zeer gewaardeerd. Dank you.
" codeBody " 
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 SubCommand0_Click ()
  Op Fout GoTo Err_Command0_Click
 
Schemerige rst als DAO.Recordset
Schemerige Weg als Koord
Schemerige StrBU als Koord
Schemerige intDcode als Koord
Schemerige strQry als Koord
Schemerige StrExt als Koord
Schemerige strFile als Koord
Schemerige qDef als DAO.QueryDef
Schemerige oXL als Voorwerp
Schemerige oWB als Voorwerp
Schemerige oWS als Voorwerp
Reeks oXL = CreateObject („Excel.Application“)
oXL.DisplayAlerts = Vals
Schemerige strContents
 
Err.Clear
Op Fout hervat daarna
Plaats qDef = CurrentDb.QueryDefs (het „Rapport van de Verjaardag“)
Als Err.Number <> 0 dan qDef = CurrentDb.CreateQueryDef (het „Rapport van de Verjaardag“) plaatsen
Op Fout GoTo 0
 
strQry = „UITGEZOCHTE Departments1. [DeptNum], Departments1. [RestNumbertext] VAN ORDE Departments1 DOOR Departments1. [DeptNum]; “
Reeks rst = strQry CurrentDb () .OpenRecordset (, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
Doe terwijl niet rst.EOF
Weg = „van C:\Documents and Settings\Name\My van de Documenten de Maandelijkse Rapporten \ van het \- Restaurant“
StrBU = rst („RestNumbertext“)
StrExt = RestNumber & „- het Rapport van de Verjaardag van Juli“ &“ .xls "
strFile = Weg & StrBU & StrExt
intDcode = rst („DeptNum“)
qDef.SQL = „SELECTEER * UIT QryAnniversaryReport WAAR DeptNum =“ & intDcode & ""
 
acOutputQuery van DoCmd.OutputTo, het „Rapport van de Verjaardag“, acFormatXLS, strFile, Vals


Reeks oWB = (strFile) oXL.Workbooks.Open
Reeks oWS = oWB.Sheets (1)
oWS.Cells.Font.Name = „Tijden Nieuwe Romein“
oWS.Cells.Font.Size = 10
oWS.Rows (1). Font.Bold = Waar
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 = Vals
oWS.PageSetup.FitToPagesWide = 1
oWS.PageSetup.FitToPagesTall = 1

oWB.Save
oWB.Close
Reeks oWB = niets

rst.MoveNext
Lijn
 
MsgBox („Volledige de Uitvoer“)
Reeks rst = niets
 
Exit_Command0_Click:
    Sub van de uitgang
 
Err_Command0_Click:
    MsgBox Err.Description
    Hervat Exit_Command0_Click
    
Beëindig Sub

Antwoord : Na Excel de uitvoer en het formaat kan ik autoe-mail?

Persoonlijk zou ik HDD Regen aborteren -- als het meer vooruitgang in 31 uren heeft geboekt zal het waarschijnlijk niet geen opmerkelijk succes met die aandrijving hebben.

Ik zou beginnen met verdelingen te experimenteren -- cre�ër 44GB om te beginnen, dan zie of formatteert het o.k.

Als zo, cre�ër dan een 10GB verdeling van „BadArea1“ (maar formatteer het niet);  en toen een 3de verdeling die de rest van de schijf gebruikt.    Als de 3de verdeling o.k. formatteert, wordt u gedaan tenzij u wilt experimenteren met enkel hoe grote „BadArea1“ moet zijn.     Als dat het geval is, schrap de 3de verdeling en schrap BadArea1;  cre�ër een verdeling „BadArea1 opnieuw“ maar maak het kleiner (misschien 5GB);  dan maak een andere verdeling na het en zie of formatteert het o.k.    U kunt dit proces herhalen tot u isoleert enkel hoe grote „BadArea1“ moet zijn.

Als u het gebied met fysisch beschadigde sectoren uitwerkt, zal het niet waarschijnlijk niet aan de andere verdelingen uitspreiden zolang zij niet op de zelfde fysieke cilinder zijn -- welke zeer onwaarschijnlijk is tenzij uw verdeling „BadArea1“ precies de juiste grootte neer aan de laatste daadwerkelijke (bijna onmogelijke) sector was.
Andere oplossingen  
 
programming4us programming4us