steve400243
Active Member
- Joined
- Sep 15, 2016
- Messages
- 429
- Office Version
- 365
- 2016
- Platform
- Windows
Hello, I am trying to get this code to copy and paste to the body of an email before sending it out. the cells that need to be copied are B4 : J13. I cant get it to display the email? Any help would be greatly appreciated. Thank you -
Code:
Sub SendEmail()
Dim SendingRng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set displayRng = Worksheets("Entry Sheet").Range("B4:J13")
With SendingRng
.Parent.Select
.Select
' Create the mail and send it
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
.Introduction = "Status Update"
With .Item
.To = "400243@fedex.com"
.CC = ""
.BCC = ""
.Subject = "My subject"
.display
End With
End With
End With
StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub