email macro

[sacha]

Ik heb een macro die er voor zorgt dat na een druk op de knop automatisch het werkblad wordt verzonden naar een ingesteld emailadres.
dat ziet er zo uit:ActiveWorkbook.SendMail Recipients:="x@xxx.nl"
Nu is het zo dat het gehele werkblad wordt verzonden. Ik zou graag willen dat er een bepaalde selectie wordt verzonden en niet alles. Het krijg ik dat voor elkaar?
Alvast bedankt.

 

[Vecom]

Hoi,

Niet zondermeer dus!

Selecteer het gedeelte dat wél verzonden mag worden.
Kopieer dit
Open een nieuw werkblad en sla dit op (Opslaan als...) onder een toepasselijke naam
Kies nu menu: Bewerken > Plakken speciaal > Koppeling plakken.
Pas hierop dezelfde macro toe.
Door de koppeling wordt, bij het openen van het zojuist aangemaakte werkblad, gecontroleerd of er in het 'bron'-bestand wijzigingen zijn en deze worden bijgewerkt. Je kunt het 'nieuwe' bestand dus steeds gebruiken voor het verzenden per E-mail.

Grts, Teun

 

[Vecom]

Hoi,

Nog een oplossing:

Hieronder de code om het actieve werkblad naar een email adres te sturen

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "Vul hier het emailadres in", _
"Vul hier het onderwerp in"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

 

[sacha]

Oeps, dit moet ik even gaan testen.....
Hartelijk dank!!!

 

[sacha]

Beste Vecom,

Op zih doet je macro het wel, maar toch gaat alles mee!
Is het mogelijk om een bepaald cellenbereik op te geven wat ie moet versturen?

 

[Vecom]

Hoi,

Nee, niet voor zover ik weet.
Wat de macro doet is het actieve werkblad, dat op dat moment op het scherm staat verzenden.
Wil je een selectie uit dat werkblad - er van uitgaand dat dat steeds dezelfde selectie is - dan moet je deze kopiëren en koppelen in een nieuw werkblad.
Het kan natuurlijk zijn dat er een ander is, die een slimmere oplossing weet ...... !

Succes, Teun

 

[jzeedijk]

Hoi Sacha,

De oplossing staat op de site van Ron de Bruin (.nl).

Kopieer het bereik naar een nieuw werkboek, verzend dat werkboek en verwijder het werkboek weer.

Jeroen