Question : Copy active sheet to email body save to draft folder

Hello Experts,

I am using the Ron de Bruin macro below to send an active Excel 2007 sheet as the body of an email via Outlook 2007 on my personal computer with success. Unfortunately  I get security warnings when using this macro at work using Office 2003, and I do not have administrative privileges to install add on's to circumvent the security warnings.

I was wondering if you all would know how to amend the macro to save the email to the drafts folder in outlook instead of sending the email?


Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()
    Dim Sendrng As Range
    Dim Intro As String
    Intro = CStr(InputBox("Enter Email Introductory Commments:"))

    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 = (Intro)

            ' In the "With .Item" part you can add more options
            ' See the tips on this Outlook example page.
            With .Item
                .To = "CLE Turnover Dislist"
                .Subject = "CLE C-Check Turnover"
            End With

        End With
    End With

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

End Sub

Answer : Copy active sheet to email body save to draft folder

Not immediately to the drafts but replacing:


will save it in the inbox.

Random Solutions  
programming4us programming4us