Email Macro Help

[podunkus]

Works great but the subject line is not being pulled in.

[code]
Sub SendEmail()
Dim OutApp, OutMail As Object
Dim Cell As Range
Dim myBody As String

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

Sheets("Modified").Activate 'rename to sheet where emails are located

On Error GoTo cleanup
For Each Cell In Range("j2:j3").Cells.SpecialCells(xlCellTypeConstants) 'Point this to email column
If Cell.Value Like "?*@?*.?*" And _
LCase(Cells(Cell.Row, "s").Value) = "y" Then
Cells(Cell.Row, "t").Value = Now
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Cell.Value
.Subject = "re: " & Cell.Offset(0, -1) ' THIS LINE DOESNT WORK

[swade730]

See what happens if you set it to

Please Login or Register  to view this content.