Bij het opslaan automatisch een e-maitje sturen.

[DZP]

Mijn vraag is de volgende:
Is er een macro te maken of te vinden dat als iemand het Excel-bestand opslaat dat dan automatisch een e-mailtje wordt verstuurd naar een vast e-mail adres.
(Dit om een back-up voor de constructeur te maken en dat een ander ook altijd daar weer op terug kan vallen).

 

[Demeter]

Probeer deze code eens achter ThisWorkBook te plaatsen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    onderwerp = "Calculatie archief"
    emailadres = "zet hier je email"
    bericht = "De file is weer veranderd en opgeslagen"
    
    ActiveWorkbook.SendMail Recipients:=emailadres, Subject:=onderwerp, Message:=bericht
    
    MsgBox "Het formulier is verzonden naar: " & emailadres
    
End Sub

Maar denk dat je beter een file kan sturen als het blad wordt geopent aangezien er dan nog niks veranderd is.

 

[Demeter]

Kijk ook eens hier:
http://www.rondebruin.nl/print.htm

Mooie verzameling email tips van Ron de Bruin.