Vraag : Spaart het actieve blad van het exemplaar aan e-maillichaam aan ontwerpomslag

Hello Deskundigen,

I am de Ron DE Bruin macro gebruiken hieronder om een actief blad van Excel 2007 als lichaam van een e-mail via Vooruitzichten 2007 op mijn personal computer met succes te verzenden. Jammer genoeg word hebben ik veiligheidswaarschuwingen wanneer het gebruiken van deze macro op het werk gebruikend Bureau 2003, en ik geen administratieve voorrechten om toevoegen om de veiligheid warnings.

I te omringen te installeren benieuwd was of zou u allen het weten hoe te om de macro te wijzigen om e-mail aan de ontwerpenomslag in vooruitzichten te bewaren in plaats van het verzenden van e-mail?

Thanks

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope ()
Schemerige Sendrng als Range
Schemerige Intro als String

Intro = CStr (InputBox („ga E-mail Inleidende Commments in: “))

op Fout GoTo StopMacro

met Application
.ScreenUpdating = False
.EnableEvents = False
Nota van With

de „: als de selectie één cel is zal het gehele worksheet
Vastgestelde Sendrng = Selection

„cre�ërt de post en verzendt it
met Sendrng

ActiveWorkbook.EnvelopeVisible = True
met verzenden. Parent.MailEnvelope

“ plaatsen het facultatieve inleidingsgebied dat adds
“ één of andere kopbaltekst aan e-mail body.
is. Inleiding = (Intro)

„in „met. Deel van het punt het“ u kan toevoegen meer options
“ de uiteinden op voorbeeld page.
http://www.rondebruin.nl/m ail/tips2.htm
met ziet. Item
. = „CLE Omzet Dislist "
. Onderwerp = „c-Controle CLE Omzet "
“. Display
. Het Eind With

StopMacro van With

/>/>:
met Application
.ScreenUpdating = True
.EnableEvents = True
Eind With
ActiveWorkbook.EnvelopeVisible = False

End Sub

Antwoord : Spaart het actieve blad van het exemplaar aan e-maillichaam aan ontwerpomslag

Niet onmiddellijk aan de ontwerpen maar het vervangen:

. Verzend
met
.save

zal bewaren het in inbox.

Chris
Andere oplossingen  
 
programming4us programming4us