Ga naar inhoud

VBA: Automatisch bericht versturen na opslaan van Excel bestand


Justg

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites

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 !

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.