Open new email from excel, and attach the workbook

[LordVoldetort_IV]

Hello! i am looking for a piece of VBA code that will allow the person using my workbook to click a button, then it should open a new outlook email addressed to me, have a subject line of "errors and suggestions" and they should then be able to add the body themselves.

a copy of the workbook should also be attached to the email.

The code need not send the email, as the user's input will still be required

 

[John_w]

Assign this macro to the button.

Public Sub Create_Email_Attach_Workbook()

    Dim OutApp As Object
    Dim OutMail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = "your.address@email.com"
        .Subject = "Errors and suggestions"
        .Body = "Type body text here"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    On Error GoTo 0
    
End Sub

 

[LordVoldetort_IV]

thank you! works perfect