Hi,
I am sure this is a really simple one, but my brain is not working!
I have the following code. When I run the macro I want it to test the contents of the 4th cell down (row 4) in the active column, so basically replace the C with active column. Also in the body of the E-Mail set Range("C4") to the same.
Can anyone help?
TLP
My Code:
Sub AccClosureEMail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
If Range("C4") = "Blah X" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Dear " & Range("C4") & "," & vbNewLine & vbNewLine & _
Bookmarks