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