Pergunta : Copiar a folha ativa para enviar por correio electrónico o corpo conservam para esboçar o dobrador

Olá! peritos,

I am using o macro de Ron de Bruin abaixo para emitir uma folha ativa de Excel 2007 como o corpo de um email através da probabilidade 2007 em meu computador pessoal com sucesso. Infelizmente eu começ avisos da segurança ao usar este macro no trabalho using o escritório 2003, e eu não tenho os privilégios administrativos para instalar adiciono sobre para contornar a segurança warnings.

I queria saber se você todo saberia emendar o macro para conservar o email ao dobrador dos esboços na probabilidade em vez de emitir o email?
Sendrng não ofuscante do

Thanks

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope () como a introdução não ofuscante de Range
como a introdução do
de String
= o CStr (InputBox (“entrar no email Commments introdutório: "))

no erro StopMacro

com Application
.ScreenUpdating = False
nota de/>
/> “: se a seleção é uma pilha que emitirá ao worksheet
Sendrng = Selection

“cria o correio e emitir o it
com Sendrng

ActiveWorkbook.EnvelopeVisible = True
com. Parent.MailEnvelope

” ajustou o campo opcional da introdução que é o adds
” algum texto do encabeçamento ao email body.
. Introdução =

(da introdução) “no “com. Peça do artigo” você pode adicionar mais options
” ver que as pontas neste probabilidade rel= " nofollow " " do _blank " do " target= " de http://www.rondebruin.nl/mail/tips2.htm do href= do “> o ail/tips2.htm
de http://www.rondebruin.nl/m com. Item
. = de “
de Dislist do retorno CLE ". O assunto = “CLE C-Verific o retorno "
”. Display
. Extremidade With

StopMacro de With
do fim de With

do fim de Send
:
com Application
.ScreenUpdating = True
extremidade With
ActiveWorkbook.EnvelopeVis/>ible = False

End Sub

class= do

Resposta : Copiar a folha ativa para enviar por correio electrónico o corpo conservam para esboçar o dobrador

Não imediatamente aos esboços mas à substituição:

. Emitir
com
.save

conservá-lo-á no inbox.

Chris