Microsoft
Software
Hardware
Network
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?
Thanks
Sub Send_Selection_Or_ActiveSh
eet_with_M
ailEnvelop
e()
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.EnvelopeVis
ible = 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.
'
http://www.rondebruin.nl/m
ail/tips2.
htm
With .Item
.To = "CLE Turnover Dislist"
.Subject = "CLE C-Check Turnover"
'.Display
.Send
End With
End With
End With
StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVis
ible = False
End Sub
Answer : Copy active sheet to email body save to draft folder
Not immediately to the drafts but replacing:
.Send
with
.save
will save it in the inbox.
Chris
Random Solutions
SQL query for values less than a sequential number but depending on other column value
Maibox enabling 2008 Active Directory Users for Exchange 2010
VLSM
ASP.NET- would anybody have an Idea as to what is causing me to have I.E report - Internet Explorer cannot display the webpage
Google Contacts and iPhone
How to add images to tabs on tab control+windows programming vb.net 2005
cisco ADSL router config
This document requires the following missing component: Korean Fonts
Populate text box based on drop down selection?
DELL Poweredge 1600 SC -- RAID array degraded