Automatic Outlook e-mail notification on worksheet change-to include changed cells or rows in message body

[Xcel_Nu-B]

I am using Excel and Outlook 2007.

My department shares a workbook on the network with another department. Both departments have read and write permissions. There is data in columns A through H. My department is only concerned with data in columns D through F. The text in column E is very important to my department as it is what the other department is requesting we translate for them.

I need Outlook to send an automatic e-mail (no user interaction) to my department's distribution list (included within the code, not in the spreadsheet) when cells in columns D-F change. I need the text (and all font formatting) in these columns to be included in the body of the message (or as an attachment, if possible) so we can readily see the text to be translated.

The e-mails not only save us from repeatedly checking the workbook (and duplicating efforts) throughout the day, but more importantly, it will allow us to streamline our project list, as we create our tasks from our e-mails.

I apologize if this is very similar to other questions already posted. I have read through so many questions, and even pages on Ron De Bruin's website, but having no knowledge of VBA, it becomes quite confusing when sorting through code trying to determine which reply applies to my specific concerns, but as far as I can tell, it is an original post as I don't need a workbook or a worksheet e-mailed, or a date range, or numbers.

I appreciate your help. Thank you.

 

[VoG]

Did you see this? http://www.rondebruin.nl/mail/change.htm

 

[Xcel_Nu-B]

Thanks, Peter, for your prompt response. I have looked at thism but it is not automatic. It requires the person editing the workbook to hit Send. My main concern is I need to send the row or cells that were changed in the worksheet in the message body.

Also, since I am not using numbers, how do I modify the code to apply to text? Do I change:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call YourMacroName

to If Not IsNumeric?

Thanks.

 

[VoG]

Maybe like this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 5 Then
    If Target.Value = "Urgent" Then Call MyEmailMacro

 

[Xcel_Nu-B]

I just wanted to mention that I am not knowledgeable in VBA. I understand why >1, but what does this line mean?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 5 Then
If Target.Value = "Urgent" Then Call MyEmailMacro

If I should be asking these types of questions elsewhere, please feel free to point me in the right direction

Thank you