Quick question : macro email text

[dwilson38550m]

Hi,

I have a macro I use to distribute an email attachment and screen shot to a defined emails user list (noted on cell U9 and U10) - this works Ok but is there a way I can add a fixed text field at the start of the email so the user know what this is about?

"Please find attached some information you find useful about xxxxxxxxxxxxxxxx"

Do I need to add something below .Subject

Thanks
David
------------------------------------------------------------------------

Sub emailsnap()
'
' emailsnap Macro
'

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Charts")

Dim si As Worksheet
Set si = ThisWorkbook.Sheets("Summary N")

Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A1:r92" & lr).Select

With Selection.Parent.MailEnvelope.Item
.to = sh.Range("U9").Value
.cc = sh.Range("U10").Value
.Subject = sh.Range("U11").Value
.attachments.Add "C:\Bank\Bank Balances Master DW New DW.xlsm"
.send

End With

'
End Sub

 

[Misca]

Try something like:

Sub emailsnap()'
' emailsnap Macro
'


Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Charts")


Dim si As Worksheet
Set si = ThisWorkbook.Sheets("Summary N")


Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row


Dim MyMessage As String


MyMessage = "This is text that goes to the body of the email" & vbNewLine & "and here's another line of text."


sh.Range("A1:r92" & lr).Select


With Selection.Parent.MailEnvelope.Item
    .to = sh.Range("U9").Value
    .cc = sh.Range("U10").Value
    .Subject = sh.Range("U11").Value
    .Body = MyMessage
    .attachments.Add "C:\Bank\Bank Balances Master DW New DW.xlsm"
    .Display
End With




End Sub