Microsoft Office Forums - View Single Post - Outlook macro to check a value of a cell in an attachment and send an email based on that value

gmayor · 03-23-2015, 11:14 PM

I take it you mean the same e-mail we have created? In that case locate the line

Code:

Set xlSheet = xlWB.Sheets(strSheet)

and add the line

Code:

xlSheet.UsedRange.Copy

immediately after that line

Then locate the line

Code:

oRng.Text = strMessage

and change that to

Code:

oRng.Text = strMessage & vbCr & vbCr
            oRng.collapse 0
            oRng.Paste
            With oRng.Tables(1)
                'Include any table formatting here e.g.
                .Style = "Table Grid"
            End With