Here is the macro that I am using.
Here is the macro I am using. When it comes to the Outlook message, not all of it appears in the email.
Sub Send_Email_Current_Workbook()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set...