Pergunta : Após a exportação e o formato de Excel pode o email do automóvel de I?

Eu tenho uma base de dados de Access 2000 que exporte, formato então 3 relatórios para 166 departamentos. a exportação dos nomes da lima do
The gosta assim, com o número do departamento enquanto a primeira parte do
This do nome de arquivo. trabalha grande. Agora eu quero poder enviar por correio electrónico os relatórios aos departamentos apropriados. Eu não sou certo se este pode ser feito.

0001 - aniversário Report.xls
0001 de julho - aniversário Report.xls
0001 de julho - o desempenho Report.xls

It de julho seria grande mandá-los enviar por correio electrónico junto, mas separado ser fino. Qualquer coisa não ter que manualmente emitir 166 email address de emails.

para o departamento 0001 é [email protected]; o código de [email protected]

The abaixo é para a primeira exportação, os outros 2 são os mesmos à exceção do nome de arquivo e a ajuda da pergunta name.

Any é apreciada extremamente. Agradecer a you. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 secundários " do class= " do id= " codeSnippet841853 do 
 0 de Err.Number = CurrentDb.CreateQueryDef (do “relatório aniversário”)
No erro 0 empreendedores
 
strQry = “Departments1 SELETO. [DeptNum], Departments1. [RestNumbertext] da ORDEM Departments1 por Departments1. [DeptNum]; ”
Ajustar o rst = o CurrentDb () .OpenRecordset (strQry, o dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
Fizerem quando não rst.EOF
Trajeto = de “originais C:\Documents and Settings\Name\My \ relatórios mensais do restaurante \”
StrBU = rst (“RestNumbertext”)
StrExt = RestNumber & “- relatório do aniversário de julho” &” .xls "
strFile = trajeto & StrBU & StrExt
intDcode = rst (“DeptNum”)
qDef.SQL = “SELECIONAM * de QryAnniversaryReport ONDE DeptNum =” & intDcode & o ""
 
acOutputQuery de DoCmd.OutputTo, do “relatório aniversário”, acFormatXLS, strFile, falso


Ajustar o oWB = o oXL.Workbooks.Open (strFile)
Ajustar o oWS = o oWB.Sheets (1)
oWS.Cells.Font.Name = “Times New Roman”
oWS.Cells.Font.Size = 10
oWS.Rows (1). Font.Bold = retificam
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
Ajustar o oWB = nada

rst.MoveNext
Laço
 
MsgBox (“exportação completa”)
Ajustar o rst = nada
 
Exit_Command0_Click:
    Retirar o submarino
 
Err_Command0_Click:
    MsgBox Err.Description
    Resumo Exit_Command0_Click
    
Submarino da extremidade
class= do

Resposta : Após a exportação e o formato de Excel pode o email do automóvel de I?

Pessoal eu abortaria HDD REGEN -- se não fêz mais progresso em 31 horas não é provável ter nenhum sucesso notável com essa movimentação.

Eu começaria experimentar com as divisórias -- criar um 44GB um para começar, a seguir ver se formata está bem.

Em caso afirmativo, criar então uma divisória de 10GB “BadArea1” (mas não a formatar);  e então uma ó divisória que use o descanso do disco.    Se a ó divisória formata está bem, você está feito a menos que você quiser experimentar com apenas como “BadArea1 grande” precisa de ser.     Se aquele é o caso, suprimir da ó divisória e suprimir de BadArea1;  recrear uma divisória “BadArea1” mas fazê-la menor (talvez 5GB);  então fazer uma outra divisória depois que ele e ver se formata está bem.    Você pode repetir este processo até que você se isole apenas como “BadArea1 grande” tem que ser.

Se você traça para fora a área com setores fisicamente danificados, não é provável espalhar às outras divisórias contanto que não estiverem no mesmo cilindro físico -- qual é MUITO improvável a menos que sua divisória “BadArea1” for exatamente o tamanho direito para baixo ao último setor real (quase impossível).
Outras soluções  
 
programming4us programming4us