Вопрос : После экспорта и формы Эксел может электронная почта автомобиля I?

Я имею базу данных 2000 доступа ехпортирует, после этого форматирую 3 рапорта для 166 отделов. экспорт имен архива
The любит так, с номером отдела по мере того как первая часть архива -
This имени. работает большой. Теперь я хочу мочь посылать рапорты по электронной почте к соотвествующим отделам. Я не уверен если это можно сделать.

0001 - годовщина Report.xls
0001 в июль - день рождения Report.xls
0001 в июль - представление Report.xls

It в июль было бы больш иметь их посылать по электронной почте совместно, но отдельно был точн. Что-нибыдь ручно послать 166 адресов emails.

email на отдел 0001 будет [email protected]; Кодий [email protected]

The ниже для первого экспорта, другие 2 этими же за исключением архива - имя и помощь вопроса name.

Any больш оценены. Возблагодарите you. class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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 Sub Command0_Click " class= " id= " codeSnippet841853 0 Err.Number после этого установленное = CurrentDb.CreateQueryDef, то («отчет о годовщины») На ошибке переход 0 strQry = «ОТБОРНОЕ Departments1. [DeptNum], Departments1. [RestNumbertext] ОТ ЗАКАЗА Departments1 Departments1. [DeptNum]; » Установите rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset) rst.MoveLast rst.MoveFirst Сделайте пока не rst.EOF Курс = «документы C:\Documents and Settings\Name\My \ ежемесячные отчеты трактира \» StrBU = rst («RestNumbertext») StrExt = RestNumber & «- отчет о годовщины в июль» &» .xls " strFile = курс & StrBU & StrExt intDcode = rst («DeptNum») qDef.SQL = «ВЫБИРАЮТ * ОТ QryAnniversaryReport ГДЕ DeptNum =» & intDcode & "" acOutputQuery DoCmd.OutputTo, «отчет о годовщины», acFormatXLS, strFile, ложное Установите oWB = oXL.Workbooks.Open (strFile) Установите oWS = oWB.Sheets (1) oWS.Cells.Font.Name = «Тимес Неш Роман» 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 = ложно oWS.PageSetup.FitToPagesWide = 1 oWS.PageSetup.FitToPagesTall = 1 oWB.Save oWB.Close Установите oWB = ничего rst.MoveNext Петля MsgBox («экспорт вполне») Установите rst = ничего Exit_Command0_Click: Выходите подводная лодка Err_Command0_Click: MsgBox Err.Description Резюме Exit_Command0_Click Подводная лодка конца

class=

Ответ : После экспорта и формы Эксел может электронная почта автомобиля I?

Лично я выкинул бы HDD Regen -- если он не делал больше прогресса в 31 часе, то не правоподобно для того чтобы иметь любой знатный успех с тем приводом.

Я начал бы экспериментировать с перегородками -- создайте 44GB одно для того чтобы начать, тогда см. если оно форматирует о'кеы.

Если так, после этого создайте перегородку, то 10GB «BadArea1» (но не форматируйте ее);  и после этого 3-яя перегородка использует остальнои диска.    Если 3-яя перегородка форматирует о'кеы, то вы сделаны если вы не хотеть экспериментировать с как раз как большому «BadArea1» нужно быть.     Если то будет случаем, то уничтожьте 3-юю перегородку и уничтожьте BadArea1;  воссоздайте перегородку «BadArea1» но сделайте ее более малым (возможно 5GB);  после этого сделайте другую перегородку после того как оно и см. если оно форматирует о'кеы.    Вы можете повторить этот процесс до тех пор пока вы не изолировать как раз как большое «BadArea1» должно быть.

Если вы составляете карту вне зона с физическ поврежденными участками, то не правоподобно для того чтобы распространить к другим перегородкам покуда они не находятся на таком же физическом цилиндре -- ОЧЕНЬ маловероятно если ваша перегородка «BadArea1» не быть точно правым размером вниз к последнему фактическому участку (почти невозможному).