Create an email with this Macro, but dont send, just show for me to edit

[beepbeep27]

Im trying to use this macro which allows me to send an email with highlighted text in the body. The problem is I have to change emails and add/take out on each one. I was hoping to modify this macro so it will open the email with the highlighted text, etc but not send until i manually do so. Any help welcomed!

Sub


Send_Selection_Or_ActiveSheet_with_MailEnvelope()
'Working in Excel 2002-2016
Dim Sendrng As Range


On Error GoTo StopMacro


With Application
.ScreenUpdating = False
.EnableEvents = False
End With


'Note: if the selection is one cell it will


send the whole worksheet
Set Sendrng = Selection


'Create the mail and send it
With Sendrng


ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope


' Set the optional introduction field


thats adds
' some header text to the email body.
.Introduction = "Text in the body"


With .Item
.To = "email@email.com"
.CC = ""
.BCC = ""
.Subject = "Follow-up"
.Send
End With


End With
End With


StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False


End Sub

 

[MARK858]

Try replacing .Send with .Display (as per Ron's instruction where you got the code from...see quote below the code) and comment out the last line...

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()
    'Working in Excel 2002-2016
    Dim Sendrng As Range


    On Error GoTo StopMacro


    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With


    'Note: if the selection is one cell it will


    'send the whole worksheet
    Set Sendrng = Selection


    'Create the mail and send it
    With Sendrng


        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope


            ' Set the optional introduction field


            'thats adds
            ' some header text to the email body.
            .Introduction = "Text in the body"


            With .Item
                .To = "email@email.com"
                .CC = ""
                .BCC = ""
                .Subject = "Follow-up"
                .Display
            End With


        End With
    End With


StopMacro:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

    ' ActiveWorkbook.EnvelopeVisible = False


End Sub

From Ron de Bruin's site
I personally not like to use the VBA MailEnvelope code because it will use the Excel window instead of creating a separate Outlook mail. When you use the code examples in the two links below you can use .Display instead of .Send in the code and it will create a separate Outlook mail and you can view it first if you want.

 

[MARK858]

Can you please not duplicate questions
http://www.mrexcel.com/forum/excel-...il-macro-but-dont-send-just-show-me-edit.html