Help With E-Mail Code

[Dazzawm]

I have this code for e-mailing from Excel. I have an allocated e-mail for numbers 1-11 that may appear in column A. When that number appears it puts whatever is in column B on the same row in an e-mail with 'is in minus' on the end. The problem is that if the the number 11 is in 5 rows it send 5 different e-mails to the same person. What I need it to do is send 1 e-mail with the 5 numbers/text that are in B on 1 email like the table.


Sheet1

<TABLE style="BACKGROUND-COLOR: #ffffff; PADDING-LEFT: 2pt; PADDING-RIGHT: 2pt; FONT-FAMILY: Calibri,Arial; FONT-SIZE: 11pt" border=1 cellSpacing=0 cellPadding=0><COLGROUP><COL style="WIDTH: 30px; FONT-WEIGHT: bold"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"></COLGROUP><TBODY><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt; FONT-WEIGHT: bold"><TD> </TD><TD>A</TD><TD>B</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">1</TD><TD style="TEXT-ALIGN: right">11</TD><TD>Can</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">2</TD><TD style="TEXT-ALIGN: right">11</TD><TD>you </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">3</TD><TD style="TEXT-ALIGN: right">11</TD><TD>help </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">4</TD><TD style="TEXT-ALIGN: right">11</TD><TD>me </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">5</TD><TD style="TEXT-ALIGN: right">11</TD><TD>please</TD></TR></TBODY></TABLE>

So the e-mail would be 'Can you help me please is in minus' rather than 5 different e-mails. I hope I have explained myself ok.

Sub Mail_small_Text_Outlook()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim LR As Long, i As Long
Dim Addys
Addys = Array("addy1", "addy2", "addy3", "addy4", "addy5", "addy6", _
"addy7", "addy8", "addy9", "addy10", "addy11")
LR = Range("A" & Rows.Count).End(xlUp).Row
 
Set OutApp = CreateObject("Outlook.Application")
For i = 1 To LR
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = ""
    On Error Resume Next
    With OutMail
        .to = Addys(Range("A" & i).Value - 1)
        .CC = ""
        .BCC = ""
        .Subject = Range("B" & i).Value & "Is in minus?"
        .Body = strbody
        .Send   'or use .Display
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
Next i
Set OutApp = Nothing
End Sub

 

[Dazzawm]

^

 

[Dazzawm]

^