E-Mail use in Excel

  • Thread starter Thread starter Walt
  • Start date Start date
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
 
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 "(e-mail address removed)", _
"This is the Subject line"
ActiveWorkbook.Close False
End If
End If
End Sub
 
Back
Top