VBA Macro to check for changes and e-mail results

[Guest_imported]

I need a macro that, on exit, checks for any changes, and, if they are found, e-mials a message to someone. Any ideas. Also, the macro must display the change in the e-mial. Thanks for your help.

 

[JustinEzequiel]

this should get you started:

Option Explicit

Private Sub Document_Close()
  Dim oREV As Revision
  
  For Each oREV In ThisDocument.Revisions
    Debug.Print oREV.Type, oREV.Range.Text, oREV.Author
  Next oREV
End Sub

Private Sub Document_Open()
  With ActiveDocument
    .TrackRevisions = True
    .PrintRevisions = False
    .ShowRevisions = False
  End With
End Sub