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
Deleting A Row from a DataTable based on ID column
Oracle Enterprise Manager 11g Database Control
SCOM 2007 R2 Dashboard creation / manipulation
Simplest way to change Windows Server 2008 R2 password complexity requirements?
Forefront TMG 2010: Open all ports between 2 TMG servers
SQL non clustered index
regarding installation of macromedia dreamweaver 8.0
Exchange 2k3 Mailbox limit quesiton
Windows 2008 AD: Replay resistant for network access
Speech Error Message -- WTF?