Allgemeines VorSendItAll ()
Schwaches outlookApp
Schwaches mItem
Schwaches lRow als lang
Auf Störungs-Zusammenfassung zunächst
outlookApp = GetObject ("", „Outlook.Application“ einstellen)
Wenn Err.Number <> 0 dann
outlookApp = CreateObject („Outlook.Application“, "") einstellen
Beenden wenn
Auf Störung Goto- 0
Application.ScreenUpdating = Fase
lRow = Arbeitsblätter („Daten“). Strecke („A65536“). Ende (xlUp). Reihe
'Frei heraus irgendwelche alten Daten bezüglich des Reports
Blätter („Report“). Auserwählt
Strecke („A4: ANZEIGE“ u. lRow) .ClearContents
'Artdaten durch Region
'Blätter („Daten“). Auserwählt
'Strecke („A1“) .CurrentRegion.Select
'Selection.Sort Key1: =Range („A2“), Überschrift: =xlYes
'Jede Aufzeichnung auf Verteilung verarbeiten
Blätter („Verteilung“). Auserwählt
FinalRow = Strecke („A50“). Ende (xlUp). Reihe
Für i = 2 zu FinalRow
Blätter („Verteilung“). Auserwählt
RegionToGet = Strecke („A“ u. i). Wert
Empfänger = Strecke („B“ u. i). Wert
'Frei heraus irgendwelche alten Daten bezüglich des Reports
Blätter („Report“). Auserwählt
Strecke („A4: ANZEIGE“ u. lRow) .ClearContents
'Aufzeichnungen von den Daten erhalten
Blätter („Daten“). Auserwählt
Strecke („A1“) .CurrentRegion.Select
'AutoFilter einschalten, wenn es nicht eingeschaltet ist
Wenn ActiveSheet.AutoFilterMode = falsches dann Selection.AutoFilter
'Die Daten zu gerade dieser Region filtern
Selection.AutoFilter Feld: =1, Criteria1: =RegionToGet
'Nur die sichtbaren Zellen vorwählen und kopieren, um zu berichten
Selection.SpecialCells (xlCellTypeVisible). Vorwählen
Selection.Copy Bestimmungsort: =Sheets („Report“). Strecke („A4“)
'Das Autofilter abstellen
Selection.AutoFilter
'Das Reportblatt zu einem neuen Buch und zu einer eMail kopieren
Blätter („Report“). Kopie
ActiveWorkbook.SaveAs „C:\Windows\temp\book123.xls“
' Application.Dialogs (xlDialogSendMail). _ Zeigen
' arg1: =Recipient, _
' arg2: = " Report - „u. RegionToGet
mItem = outlookApp.CreateItem (olMailItem) einstellen
Mit mItem
. Zu = Empfänger
. Thema = „Report -“ u. RegionToGet
. Körper = „dieses ist Ihr Report“
. Attachments.Add „C:\Windows\temp\book123.xls“
. Speichern
Mit beenden
ActiveWorkbook.Close SaveChanges: =False
Tötung „C:\Windows\temp\book123.xls“
Application.ScreenUpdating = Fase
Zunächst I
Enden-Unterseeboot
|