PDA

View Full Version : variable email title in outlook while sending in vba



rafaello007
07-25-2015, 01:04 AM
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
07-25-2015, 03:42 AM
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.