SendItAll secondario pubblico ()
outlookApp fioco
mItem fioco
lRow fioco come lungamente
Sul riassunto di errore dopo
Regolare il outlookApp = GetObject ("", “Outlook.Application„)
Se Err.Number <> 0 allora
Regolare il outlookApp = CreateObject (“Outlook.Application„, "")
Concluder se
Sull'errore 0 di avanzamento
Application.ScreenUpdating = Fase
lRow = manuali (“dati„). Gamma (“A65536„). Estremità (xlUp). Fila
'Libero fuori qualsiasi vecchi dati sul rapporto
Strati (“rapporto„). Prescelto
Gamma (“A4: ANNUNCIO„ & lRow) .ClearContents
'Dati di specie dalla regione
'Strati (“dati„). Prescelto
'Gamma (“A1„) .CurrentRegion.Select
'Selection.Sort Key1: =Range (“A2„), intestazione: =xlYes
'Procedare ogni annotazione su distribuzione
Strati (“distribuzione„). Prescelto
FinalRow = gamma (“A50„). Estremità (xlUp). Fila
Per i = 2 a FinalRow
Strati (“distribuzione„). Prescelto
RegionToGet = gamma (“A„ & i). Valore
Destinatario = gamma (“B„ & i). Valore
'Libero fuori qualsiasi vecchi dati sul rapporto
Strati (“rapporto„). Prescelto
Gamma (“A4: ANNUNCIO„ & lRow) .ClearContents
'Ottenere le annotazioni dai dati
Strati (“dati„). Prescelto
Gamma (“A1„) .CurrentRegion.Select
'Accendere AutoFilter, se non è sopra
Se ActiveSheet.AutoFilterMode = allora Selection.AutoFilter falso
'Filtrare i dati appena a questa regione
Campo di Selection.AutoFilter: =1, Criteria1: =RegionToGet
'Selezionare soltanto le cellule visibili e copiare per segnalare
Selection.SpecialCells (xlCellTypeVisible). Selezionare
Destinazione di Selection.Copy: =Sheets (“rapporto„). Gamma (“A4„)
'Spegnere il Autofilter
Selection.AutoFilter
'Copiare lo strato di rapporto ad un nuovo libro e ad un email
Strati (“rapporto„). Copia
ActiveWorkbook.SaveAs “C:\Windows\temp\book123.xls„
' Application.Dialogs (xlDialogSendMail). Mostrare il _
' arg1: =Recipient, _
' arg2: = " rapporto - “& RegionToGet
Regolare il mItem = outlookApp.CreateItem (olMailItem)
Con mItem
. A = destinatario
. Oggetto = “rapporto -„ & RegionToGet
. Il corpo = “questo è il vostro rapporto„
. Attachments.Add “C:\Windows\temp\book123.xls„
. Risparmiare
Concluder con
ActiveWorkbook.Close SaveChanges: =False
Uccisione “C:\Windows\temp\book123.xls„
Application.ScreenUpdating = Fase
Dopo i
Sommergibile dell'estremità
|