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 "
|
