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
Netbook Poison Pill
SBS 2008 Backup to USB Flash Drive
PHP Array Syntax Issue
I implemented a Java (J2SE) application. The client wants the program to look like as .NET gui. Are there libraries for this need in Java?
1024 character limit in query grid
This is strange in dbml designer Column name and Enttiy Name is different.
Add to dictionary - where is dictionary located
Server 2008 R2 Backup account permissions
Visio 2010 Online Training
Shut down and external hard drive damage