Auto email when cell a1=1

[Stevie p]

Hi,
Im looking for a macro or vba to auto email me when cell A1=1.
Can anyone help. i've only have very basic knowlage of vba.

 

[westconn1]

what method do you want to use to send email?
this is a basic method using cdo, which will work as is from many xpand some vista computers

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing And Range("a1") = 1 Then
    cdo = CreateObject("cdo.message")
    cdo.to = "someone@some.com"
    cdo.from = "me@myhost.com"
    cdo.Subject = "cdo test"
    cdo.textbody = "this is the content " & Range("b17").Value
    cdo.send
End If
End Sub

for computers with no registered email client, you may need to set all the configuration properties, also it you want to use a gmail or similar account, again you will need to set the configuration properties

 

[Stevie p]

I have outlook and windows xp, i would be sending through smtp. I really have no knowledge at all of setting configurations and any help would be very appreciated

 

[westconn1]

you can test the code, by just changing to a valid to address, see if email arrives

for more information on settings see http://www.paulsadowski.com/WSH/cdo.htm