Hi,I am a newbie with macros, and would like some expert advice. I have a project every 6 months. We have a master spread

anny24

Estimable
Jan 15, 2016
4
0
4,510
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

 
Solution
Been a few years since I've worked with anything like this. My first recommendation would be to actually retype the body of the e-mail (no cutting and pasting). This would remove any hidden characters that may foul up the formatting.

-Wolf sends
Been a few years since I've worked with anything like this. My first recommendation would be to actually retype the body of the e-mail (no cutting and pasting). This would remove any hidden characters that may foul up the formatting.

-Wolf sends
 
Solution