Help with Loop

[seasmith]

<TABLE class=tborder id=post2795179 cellSpacing=0 cellPadding=6 width="100%" align=center border=0><TBODY><TR vAlign=top><TD class=alt1 id=td_post_2795179 style="BORDER-RIGHT: #ffffff 1px solid">I have this code (see below) that goes thru column L to see if the something is true or not and if it is true it sends an email to the email address in column 15. I am using my email address as a test to make sure it works and it is sending me 100's of emails. Is there anyway to have all the messages be sent in just one email?

For example the bold part is the body of the email that is to be sent is there anyway to get there where it goes:
Relief Valve number " & Cells(i, 1) & " at " & Cells(i, 2) & " needs to be tested
Relief Valve number " & Cells(i, 1) & " at " & Cells(i, 2) & " needs to be tested
Relief Valve number " & Cells(i, 1) & " at " & Cells(i, 2) & " needs to be tested and so on all in one email instead of being sent one by one


Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
x = Date

If x - Cells(3, 4) > 30 Then
Dim i As Long

For i = 7 To 368
If Range("L" & i) <= (Date - 365 * (3 * Range("N" & i)) - 182) Then
Address = Cells(i, 15)
strbody = "Relief Valve number " & Cells(i, 1) & " at " & Cells(i, 2) & " needs to be tested"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Address
.CC = ""
.BCC = ""
.Subject = "Pressure Relief Valve" 'Subject line'
.Body = strbody
.Attachments.Add ActiveWorkbook.FullName
.Send 'Sends Email"

End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
Next i




Cells(3, 4) = x

End If
End Sub
<!-- / message -->
</TD></TR><TR><TD class=alt2 style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 0px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid">

</TD><TD class=alt1 style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 0px solid; BORDER-LEFT: #ffffff 0px solid; BORDER-BOTTOM: #ffffff 1px solid" align=right><!-- controls --></TD></TR></TBODY></TABLE>

 

[Joe4]

Duplicate: http://www.mrexcel.com/forum/showthread.php?t=565326

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).