Can Excel can send automatic Email using Outlook?

see if it helps you,
http://www.excelforum.com/excel-gene...coming-up.html
just change the line in red
[code]
'
'
For i = 4 To Sheets("Calibration due").Range("c65536").End(xlUp).Row
If Cells(i, 3).Value < 0 Then
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
'
'