How to auto-populate email based on Cell Value

[bemp87]

Hi Everyone,

I am trying to make an email automatically prefill with text and a desired email address based on a specific cell value. I am thinking I need to use a IF statement to accomplish what i am trying to do, but i am not coming up with any success, any suggestions?

 

[audioboxer]

Check out this site, I learned so much about emailing from Excel here.

https://www.rondebruin.nl/win/section1.htm

 

[bemp87]

I looked there first, but i can seem to find what i am looking for, essentially what i need to happen is something similar to as follows:

If ActiveWorksheet("Action Form").Range("F6") = "Bob Jones" Then... It should auto populate an email to be sent to Bob, but if cell F6 = Sally Jones then it should auto populate an email to Sally upon pressing a 'Submit' button

On Error Resume Next
With OutMail
If Target.Value = "Bob Jones" Then
myToAdd = "bob.jones@bobjones.com"
ElseIf Target.Value = "Sally Jones" Then
myToAdd = "sally.jones@sallyjones.com.com"
End If
.To = myToAdd

The .To email address that should auto-populate should depend on which user i select from the cell F6... Not sure what i'm missing