Hello,
I have a simple macro based on specific criteria, the macro works but when populating the email, only one populates with all of the correct criteria. Am I missing a setting in the code?
Dim r As Integer
Dim m As Long
m = Cells(Rows.Count, 1).End(xlUp).Row
For r = 4 To m
If Cells(r, 11) = "Send Reminder" Then
ActiveWorkbook.FollowHyperlink "mailto:" & Cells(r, 2) & _
"?Subject=Overdue Procedures or within 10 days of Being Due&Body=Dear " & _
Cells(r, 14) & ", Procedure Last Reviewed " & _
Cells(r, 9) & "Procedure Name" & Cells(r, 5) & "."
End If
Next r
End Sub
When running the first record that meets the criteria is looks good. Dear robert, Procedure Last Reviewed 3/24/2015Procedure NameProactive Price Documentation - Pricing Documentation to External Customers. But the next record that meets the criteria only has partial data in the body - Dear robert, Procedure Last Reviewed 3/6/2015Procedure NameReview (missing the complete procedure name.
I have a simple macro based on specific criteria, the macro works but when populating the email, only one populates with all of the correct criteria. Am I missing a setting in the code?
Dim r As Integer
Dim m As Long
m = Cells(Rows.Count, 1).End(xlUp).Row
For r = 4 To m
If Cells(r, 11) = "Send Reminder" Then
ActiveWorkbook.FollowHyperlink "mailto:" & Cells(r, 2) & _
"?Subject=Overdue Procedures or within 10 days of Being Due&Body=Dear " & _
Cells(r, 14) & ", Procedure Last Reviewed " & _
Cells(r, 9) & "Procedure Name" & Cells(r, 5) & "."
End If
Next r
End Sub
When running the first record that meets the criteria is looks good. Dear robert, Procedure Last Reviewed 3/24/2015Procedure NameProactive Price Documentation - Pricing Documentation to External Customers. But the next record that meets the criteria only has partial data in the body - Dear robert, Procedure Last Reviewed 3/6/2015Procedure NameReview (missing the complete procedure name.
