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
Unable to reach VMware update service. Please try again later
need text to flow evenly between vertical columns
Problem installing Microsoft Exchange 2010
log speed
Removing Quotes From DB Fields
An E-mail from "Nobody"
Visual foxpro with digital camera
Mobile Broadband
Remove a tag but leave the text
PHP code that randomize number or letters combination