ExcelBanter - Sending an automatic e-mail

Hi

Thanks for providing me with the code in your last response. It does work,
however, I was wondering if you can help me to take it one step further by
allowing the e-mail to be sent automatically, without me creating a button
and manually pressing that button to get the e-mail sent. I don't want to
open up the workbook at all.

Will it be possible to send the e-mail in this manner?

Also, how can I write the code to add the value of cell E within the body of
the e-mail?

Also, I dont want to limit the formula to say to check the value of cell F3.
I just want it to loop through column F - how can I change the formula to
reflect this? I have tried a few things but the the #Name? error in the
cell. The formula in cell C is - =IF((F3-TODAY())7,"No","Yes")

Here is my code as it is now. Please let me know if you can help me?

Sub TestFile_2()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

On Error GoTo cleanup
For Each cell In
Sheets("RSReleaseDates").Columns("B").Cells.Specia lCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) =
"yes" _
And LCase(cell.Offset(0, 2).Value) < "Sent" Then
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Reminder - New RhymeSIGHT Release Coming Soon"
.Body = "Dear " & cell.Offset(0, -1).Value & vbNewLine &
vbNewLine & _
"A new version of RhymeSIGHT is due to be released 7
days from the receipt of this e-mail." & vbNewLine & vbNewLine & _
"Please e-mail me to arrange a date to upgrade your
laptop." & vbNewLine & vbNewLine & _
"Thank You." & vbNewLine & vbNewLine & _
"(YOUR NAME)" & vbNewLine & vbNewLine & _
"On Behalf of Support Services"
'You can add files also like this
'.Attachments.Add ("C:\test.txt")
.Send
End With
On Error GoTo 0

cell.Offset(0, 2).Value = "Sent"
Set OutMail = Nothing
End If
Next cell

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub

"Ron de Bruin" wrote:

Hi Zak

Start first with the code here (Example2)
http://www.rondebruin.nl/mail/folder3/message.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

"zak" wrote in message ...
Hi

Is it possible for an email to be automatically sent when a cell reaches a
specific value?

The thing is I enter software release dates in a single worksheet in columns
B and D. When a date is reached (stated in either column B or D), I want an
email to be sent automatically to the recipients stated in column E stating
"The software release date is today (with whatever the date is).

Please can anyone let me know if this is possible?

Thank you