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 OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "TestUser@test.com"
.Subject = "Blackline Access Review"
.Body = "Please note the purpose of this review is to have the local admins validate user access is appropriate based on their job function. In order to ensure that users are authorized for access to the Blackline application, please review the access listed in the attached spreadsheet. Local admins should be able to explain how they conduct the review on user's access if asked. If there are additions/changes needed, please follow the standard procedure."
.Attachments.Add "C:\Users\ps523d\Documents\Audit Copy June 2015 BlacklineUserQuery Job Title.xlsm"
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
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 OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "TestUser@test.com"
.Subject = "Blackline Access Review"
.Body = "Please note the purpose of this review is to have the local admins validate user access is appropriate based on their job function. In order to ensure that users are authorized for access to the Blackline application, please review the access listed in the attached spreadsheet. Local admins should be able to explain how they conduct the review on user's access if asked. If there are additions/changes needed, please follow the standard procedure."
.Attachments.Add "C:\Users\ps523d\Documents\Audit Copy June 2015 BlacklineUserQuery Job Title.xlsm"
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub