Fråga : Kopiera aktivet täcker till e-posten förkroppsligar räddning för att formulera mappen

Hälsningexperter, förmiddag för

I using Ron de Nalle det macro nedanfört som överför en aktivExcel 2007, täcker som förkroppsliga av en e-post via framtidsutsikten 2007 på min persondator med framgång. Tyvärr jag får säkerhetsvarningar, när jag använder denna makro på arbete using kontoret 2003, och jag har inte administrativt privilegierar för att installera tillfogar på för att kringgå säkerheten warnings.

I undrade, om du skulle all vet hur man ändrar makroen till räddningen e-posten till formulerar mappen i framtidsutsikt i stället för överföring av e-posten?
dunkla Sendrng för

Thanks

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope () som Range
dunkel Intro som Intro för String

= CStr (InputBox (”skriv in e-posten inledande Commments: ”))

på felet GoTo StopMacro

med Application
.ScreenUpdating = False
.EnableEvents = False
avslutar With

”noterar: om valet är en cell som det ska överför den hela worksheet fastställda Sendrng = Selection

”skapar posta och, överför it
med Sendrng

ActiveWorkbook.EnvelopeVisible = True
med. Parent.MailEnvelope

” uppsättning som den valfria inledningen sätter in, som är adds
” någon titelradtext till e-posten body.
. Inledning =

(för Intro) ”i ”med. Den objekt” delen du kan tillfoga mer options
,” se som spetsarna på denna framtidsutsikten ”för " för http://www.rondebruin.nl/mail/tips2.htm " rel= " nofollow " för _blank target= " > http://www.rondebruin.nl/m ail/tips2.htm
med. Item
. Att = ”CLE-omsättningDislist "
. Betvinga = ”CLE C-Kontrollerar omsättningen "
”. Display
. Send
avslutar With

avslutar With
avslutar With

StopMacro:
med Application
.ScreenUpdating = True
.EnableEvents = True
avslutar With
ActiveWorkbook.EnvelopeVisible = False

End Sub

" klar "

Svar : Kopiera aktivet täcker till e-posten förkroppsligar räddning för att formulera mappen

Till formulerar inte omgående men byta ut:

. Överför
med
.save

ska räddning det i inboxen.

Chris