E-Mail use in Excel

W

Walt

Is there a way to to embed/use e-mail in an excel
spreadsheet when a date in a cell has been reached?

Thanks in advance
 
R

Ron de Bruin

This you want I think after I read it good<g>

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Target.Value > DateSerial(2003, 7, 5) Then
testmail
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Target.Value > DateSerial(2003, 7, 5) Then
ActiveSheet.Copy
ActiveWorkbook.SendMail "[email protected]", _
"This is the Subject line"
ActiveWorkbook.Close False
End If
End If
End Sub
 
Top