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