Hello
I need to specify that the email is sent in plain text format
The code I am using is below...
Is anybody able to suggest the relevant amendment to this code?
Sub sendrangeEUR()
'
' sendrangeEUR Macro
' Select the range of cells on the active worksheet.
ActiveSheet.Range("M9:N9").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Please note"
.Item.To = "thetestemail.com"
.Item.Subject = "LCH EUR MARGIN"
.Item.Send
End With
End Sub
Thanks
I need to specify that the email is sent in plain text format
The code I am using is below...
Is anybody able to suggest the relevant amendment to this code?
Sub sendrangeEUR()
'
' sendrangeEUR Macro
' Select the range of cells on the active worksheet.
ActiveSheet.Range("M9:N9").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Please note"
.Item.To = "thetestemail.com"
.Item.Subject = "LCH EUR MARGIN"
.Item.Send
End With
End Sub
Thanks