variable email title in outlook while sending in vba

[rafaello007]

Hi, I would like to define a variable email title in vba in following line: .Subject = "This is the Subject line". My spreadsheet compares values like in following example:

name	value 1	value 2	diff
aa	1	1	0
aa1	2	1	1

If there are no differencies, email title should be: "Values check - no differencies" and otherwise it should include names which have discrepancies, e.g. "Values check - diff on aa1". I would be very grateful for help

[mancubus]

i assume you have all the code but variable subject to send email for each row in excel table, whose topleft cell is A1, you pasted in your message above.


run below code when the worksheet is active.

Sub vbax_53276_SendEmails()

    Dim i As Long

    With CreateObject("Outlook.Application")
        For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
            With .CreateItem(0)
                .To = "email_address"
                If Range("D" & i).Value = 0 Then
                    .Subject = "Values check - no differences"
                Else
                    .Subject = "Values check - difference on " & Range("A" & i).Value
                End If
                .Body = "Message body"
                '.Send
                .Display
            End With
        Next i
    End With

End Sub

uncomment .Send and comment .Display if you want to directly send email.