Vraag : Excel die Aantekenvel met de elektronische post versturen

Hallo kunnen de Deskundigen,

Hope iemand bij dit helpen aangezien ik de meesten van twee dagen doorgebracht heb die dit die stuk van code het per e-mail versturen van een aantekenvel proberen aan te passen op een groeperingscode wordt gebaseerd. Ik hoop het kan volledig worden geknepen eerder da worden veranderd. Ook, meer vereenvoudigd beter (indien mogelijk) aangezien ik een newbie.

Data word ingevoerd in het gegevensblad ben. Er is een groeperingscode genoemd gebied.

There is een distributieblad dat de volgende gebieden heeft: Gebied en Ontvanger. Het gebiedgebied van het gegevensblad wordt manuallly ingevoerd in kolom A samen met de ontvangersnaam. Wanneer macro „SendItAll“ in werking die wordt gesteld die, kopi�ërt het de gegevens van gegevensblad in het rapportblad op de groeperingscode in de distributielijst en e-mail het aantekenvel wordt gebaseerd aan de genoemde ontvanger. de kwesties

The zijn:

wanneer het aantekenvel wordt gecre�ërd voor het kijkt niet als het rapportblad met de elektronische post versturen aangezien het het formatteren enz. verliest. Ook moet het rapportblad zelf worden opnieuw ingevoerd telkens als na de macro wordt gelopen. hoe kan ik de code om deze opnieuw invoerende of ontbrekende gegevens in rijen 1 en 2 enz. te elimineren verbeteren?

Secondly, wanneer het aantekenvel hoe met de elektronische post wordt verstuurd kan ik wordt geschreven die worden in het stuk van code een standaardlijn in het lichaam van het bericht opgeven (de Naam van de Ontvanger) en „tevreden maakte vinden de resultaten“ en Achting vast aangezien de het sluiten etc…
Sample- Dossier in bijlage dank/>
Many vooraf die van „Senditall "
Attachments:
van
Results-Test.xlsm (115 KB)  (de Details van het Type van Dossier)  
Steekproef File

Antwoord : Excel die Aantekenvel met de elektronische post versturen

Dit codefragment gebruikt het voorwerp van Vooruitzichten, om tot een postbericht te leiden dat in uw Ontwerpen zal worden bewaard.

Verandering. Sparen aan. Verzend om het onmiddellijk te verzenden maar dit zou kwesties met uw veiligheidsmontages kunnen bespreken.
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:

Openbare SubSendItAll ()
    
    Schemerige outlookApp
    Schemerige mItem
    Schemerige lRow zoals lang
    Op Fout hervat daarna
    Plaats outlookApp = GetObject ("", „Outlook.Application“)
    Als Err.Number <> 0 toen
        Reeks outlookApp = CreateObject („Outlook.Application“, "")
    Eind als
    Op Fout GoTo 0
    Application.ScreenUpdating = Fase
    lRow = Aantekenvellen („Gegevens“). Waaier („A65536“). Eind (xlUp). Rij
    'Haal om het even welke oude gegevens over Rapport weg
    Bladen („Rapport“). Selecteer
    Strek me uit („A4: ADVERTENTIE“ & lRow) .ClearContents
    De 'gegevens van de soort door gebied
    'Bladen („Gegevens“). Selecteer
    'Strek me („A1“) .CurrentRegion.Select uit
    'Selection.Sort Key1: =Range („A2“), Kopbal: =xlYes
    'Proces elk verslag bij de Distributie
    Bladen („Distributie“). Selecteer
    FinalRow = Waaier („A50“). Eind (xlUp). Rij
    Voor I = 2 aan FinalRow
        Bladen („Distributie“). Selecteer
        RegionToGet = Waaier („A“ & I). Waarde
        Ontvanger = Waaier („B“ & I). Waarde
        'Haal om het even welke oude gegevens over Rapport weg
        Bladen („Rapport“). Selecteer
        Strek me uit („A4: ADVERTENTIE“ & lRow) .ClearContents
        'Krijg verslagen van Gegevens
        Bladen („Gegevens“). Selecteer
        Strek me („A1“) .CurrentRegion.Select uit
        'Zet AutoFilter aan, als het niet is
        Als ActiveSheet.AutoFilterMode = Valse toen Selection.AutoFilter
        'Filter de gegevens aan enkel dit gebied
        Selection.AutoFilter Gebied: =1, Criteria1: =RegionToGet
        'Selecteer slechts de zichtbare het Te melden cellen en exemplaar
        (xlCellTypeVisible) Selection.SpecialCells. Selecteer
        Selection.Copy Bestemming: =Sheets („Rapport“). Waaier („A4“)
        'Draai van Autofilter
        Selection.AutoFilter
        'Exemplaar het blad van het Rapport aan een nieuwe boek en een e-mail
        Bladen („Rapport“). Exemplaar
        ActiveWorkbook.SaveAs „C:\Windows\temp\book123.xls“
        
'        Application.Dialogs (xlDialogSendMail). Toon _
'            arg1: =Recipient, _
'            arg2: = " Rapport - „& RegionToGet
        Reeks mItem = outlookApp.CreateItem (olMailItem)
        Met mItem
            . Aan = Ontvanger
            . Onderwerp = „Rapport -“ & RegionToGet
            . Het lichaam = „dit is uw rapport“
            . Attachments.Add „C:\Windows\temp\book123.xls“
            . Sparen
        Eind met
        ActiveWorkbook.Close SaveChanges: =False
        Doden „C:\Windows\temp\book123.xls“
        Application.ScreenUpdating = Fase
      
    Volgende I
Sub van het eind
Andere oplossingen  
 
programming4us programming4us