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