Email help excel

  • Thread starter Thread starter Phillip
  • Start date Start date
P

Phillip

Is there anybody that can tell me how to send a email
message to myself from Excel if a certain condition on my
spreadsheet or graph appear. I want to monitor graphs or
spreadsheet values without looking at my spreadsheets
every 5 minutes.

Please help!!!!

Send Email to (e-mail address removed)
 
This will work for OE and Outlook

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Target.Value = 1 Then
testmail
End If
End If
End Sub

Sub testmail()
Recipient = "(e-mail address removed)"
Subj = "Test"
Msg = "Hi there the value of cell b3 = 1"
HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%s", True
End Sub
 
Back
Top