Using MS Excel 97 with MS XP os


If a cells contents are of a greater value than say 1,000
is it possible for the excel workbook to be emailed upon
saving of the workbook without the person being aware ?

Is there any links to information on this subject???

Thanks in advance.

Wayne

Check out Rons site @ http://www.rondebruin.nl/

"Wayne" wrote:

Using MS Excel 97 with MS XP os


If a cells contents are of a greater value than say 1,000
is it possible for the excel workbook to be emailed upon
saving of the workbook without the person being aware ?

Is there any links to information on this subject???

Thanks in advance.

Wayne

This code works in Excel 2000, MS XP. Test before you try it. Also if you
have Virus protection it may cause a warning.

Charles

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
If Sheets("Sheet1").Range("A1") 1000 Then
.Delivery = xlOneAfterAnother
.Subject = "Hello"
.Message = "TEST"
.Recipients = "Your E-Mail Address"
.ReturnWhenDone = False
ActiveWorkbook.Route
End If
End With
End Sub
"Jim Thomlinson" wrote in message
...
Check out Rons site @ http://www.rondebruin.nl/

"Wayne" wrote:

Using MS Excel 97 with MS XP os


If a cells contents are of a greater value than say 1,000
is it possible for the excel workbook to be emailed upon
saving of the workbook without the person being aware ?

Is there any links to information on this subject???

Thanks in advance.

Wayne

That sounds good but will work only if you put it wihtin the workbook sheet
code.
Not in a separate module.

Correct me if I am wrong.

Thanks.



"Charles Harmon" wrote in message
...
This code works in Excel 2000, MS XP. Test before you try it. Also if you
have Virus protection it may cause a warning.

Charles

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
If Sheets("Sheet1").Range("A1") 1000 Then
.Delivery = xlOneAfterAnother
.Subject = "Hello"
.Message = "TEST"
.Recipients = "Your E-Mail Address"
.ReturnWhenDone = False
ActiveWorkbook.Route
End If
End With
End Sub
"Jim Thomlinson" wrote in
message ...
Check out Rons site @ http://www.rondebruin.nl/

"Wayne" wrote:

Using MS Excel 97 with MS XP os


If a cells contents are of a greater value than say 1,000
is it possible for the excel workbook to be emailed upon
saving of the workbook without the person being aware ?

Is there any links to information on this subject???

Thanks in advance.

Wayne