VBA: Automatisch bericht versturen na opslaan van Excel bestand

[Justg]

Beste,

De volgende situatie wil ik graag geprogrammeerd hebben via VBA: Dat een persoon een bepaald Excel bestand opslaat en dat vervolgens de inhoud van de sheet na het opslaan automatisch wordt verzonden naar een bepaald email adres. Ik heb al voor elkaar gekregen (met onderstaande Macro) dat een email verzonden kan worden naar een bepaald adres. Alleen het deel dat dit automatisch een mail met de inhoud van de sheet wordt verzonden na het opslaan ontbreekt nog. Weet iemand hoe dit moet? 

Bij voorbaat dank!

Groeten,

Just 



Huidige Macro:


Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()

Dim Sendrng As Range

On Error GoTo StopMacro

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set Sendrng = Selection

With Sendrng

ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope


.Introduction = "UPDATE"

With .Item
.To = "emailadres"
.CC = ""
.BCC = ""
.Subject = "See following slide"
.Send
End With

End With
End With

StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False

End Sub

[Asus]

Het valt op dat je je vraag op meerdere fora post, lees er even onze forumregels op na om te weten waarom we op PCH geen voorstander zijn van het gelijktijdig posten van vragen op meerdere fora.

Nu is het uiteraard onze grootste bezorgdheid dat jij zo snel mogelijk tot een oplossing komt, daarom gaat dit topic "on hold" zodat jij je ten volle kan concentreren op de vragen / tips op het andere forum.

 

Succes !