Email automatically based on information in column A

This may help you http://www.rondebruin.nl/mail/change.htm

Thanks for the reply, I am not really a VB guy, so can't get this working with the info in the link. Can someone give me little more help with it?

Ron deBruin is the master of email - well worth the study.
Also have a look at simular:
http://www.mrexcel.com/forum/showthread.php?t=532800
http://www.mrexcel.com/forum/showthread.php?t=532048

I tried my hand at this but don't quite know a lot about VB. Please can someone write me a small program?

guys please help me out here

Post what you have so far and we'll take a look.
Getting code from the ground up... well... doesn't happen a lot.

Thanks Warship for replying so quickly.

As I said earlier, I dont know much about VB, so don't laugh at my coding

Here is what I have put up as of now.


Option Explicit

Sub email_agents()
Dim row As Integer
Dim row2 As Integer
Dim agent_name As String
Dim emailadd As String
Worksheets("sheet1").Activate

For row = 1 To 7
Worksheets("sheet1").Activate
If Cells(row, 4).Value = "Poor" Then
GoTo email
ElseIf Cells(row, 4).Value = "Average" Then
GoTo email
ElseIf Cells(row, 4).Value = "below Average" Then
GoTo email
Else: GoTo option2

email:
agent_name = Cells(row, 3).Value
Worksheets("emailaddress").Activate
For row2 = 1 To 7
If Cells(row2, 3).Value = agent_name Then
emailadd = Worksheets("emailaddress").Cells(row2, 4).Value
MsgBox (emailadd)
Else
End If
Next row2

option2:
End If

Next row

End Sub

I am still working on getting VB to pickup the correct email address to send the email too and havn't succeeded yet.

Guys, am still looking for help on this.

Bump

still need help on this.