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
Get Value of gridview field that is set to visible false
VBA Excel Delete Records
Write a batch file in windows and schedule it to copy certain files to Linux server?
Expression is a value and therefore cannot be the target of an assignment vb.net
Netbook Poison Pill
Access Report to PDF - View/Zoom size
How to prohibit user from sending to all mailboxes exept a handful.
Adding second processor to existing win 2008 server
Log Shipping Recovery Procedure
DataGridView - changing background of row?