Thanks so much! Worked. You're amazing!

On Oct 15, 6:21*pm, ShaneDevenshire
wrote:
Hi,

You should add code such as this and then put your code inside it:

Private Sub Worksheet_Change(ByVal Target As Range)
* * Dim isect As Range
* * Set isect = Application.Intersect(Range("A2:D10"), Target)
* * If Not isect Is Nothing Then

* * * * "your code here"

* * End If
End Sub

The problem is that you need to decide what cell or cells trigger this
email. *In the example above A2:D10 would trigger the event.

--
Thanks,
Shane Devenshire



"Jimbo" wrote:
I have the following macro that will send me an email. * When I
manually run the macro, it works great. *But what I want is to have
the macro sent when someone enter info into the sheet. * How can I get
this done?

Thanks
__________________________________________________ _______
Sub Email1()
* * Dim oSess As Object
* * Dim oDB As Object
* * Dim oDoc As Object
* * Dim oItem As Object
* * Dim direct As Object
* * Dim Var As Variant
* * Dim flag As Boolean

* * Set oSess = CreateObject("Notes.NotesSession")
* * Set oDB = oSess.GETDATABASE("", "")
* * Call oDB.OPENMAIL
* * flag = True
* * If Not (oDB.IsOpen) Then flag = oDB.Open("", "")

* * If Not flag Then
* * * * MsgBox "Can't open mail file: " & oDB.SERVER & " " &
oDB.FILEPATH
* * * * GoTo exit_SendAttachment
* * End If
* * On Error GoTo err_handler

* * *'Building Message
* * Set oDoc = oDB.CREATEDOCUMENT
* * Set oItem = oDoc.CREATERICHTEXTITEM("BODY")
* * oDoc.Form = "Memo"
* * oDoc.Subject = "Request LCMS Update has been submitted"
* * oDoc.sendto = "
* * oDoc.body = "Please review spreadsheet for submission"
* * oDoc.postdate = Date
* * oDoc.SaveMessageOnSend = True

* * *'Attaching DATABASE
* * Call oItem.EmbedObject(1454, "", "I:\Card\@OpsTrain\TSC\LCMS - SDN
Learning\LCMS - SDN Reporting & Updates.xls")
* * oDoc.visable = True
* * *'Sending Message
* * oDoc.SEND False
exit_SendAttachment:
* * On Error Resume Next
* * Set oSess = Nothing
* * Set oDB = Nothing
* * Set oDoc = Nothing
* * Set oItem = Nothing
* * *'Done
* * Exit Sub
err_handler:
* * If Err.Number = 7225 Then
* * * * MsgBox "File doesn't exist"
* * Else
* * * * MsgBox Err.Number & " " & Err.Description
* * End If
* * On Error GoTo exit_SendAttachment
End Sub- Hide quoted text -

- Show quoted text -