Question : Copier la feuille active pour envoyer le corps économisent pour rédiger la chemise

Bonjour experts,

I AM using le macro de Ron de Bruin ci-dessous pour envoyer une feuille active d'Excel 2007 comme corps d'un email par l'intermédiaire des perspectives 2007 sur mon PC avec le succès. Malheureusement j'obtiens des avertissements de sécurité en utilisant ce macro au travail using le bureau 2003, et est-ce que je n'ai-je pas des privilèges administratifs à installer m'ajoute dessus pour éviter la sécurité warnings.

I me demandais si vous tout sauriez modifier le macro pour sauver l'email à la chemise d'ébauches dans les perspectives au lieu d'envoyer l'email ?
faible Sendrng du

Thanks

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope () comme faible introduction de Range
en tant que l'introduction du
de String
= CStr (InputBox (« entrer dans l'email Commments d'introduction : "))

sur l'erreur StopMacro

avec Application
.ScreenUpdating = False
note de/>
/> « : si le choix est une cellule qu'il enverra au worksheet
Sendrng = Selection

« créent le courrier et envoyer l'it
avec Sendrng

ActiveWorkbook.EnvelopeVisible = True
avec. Parent.MailEnvelope

 » a placé le gisement facultatif d'introduction qui est l'adds
 » un certain texte d'en-tête à l'email body.
. Introduction =

« dans « avec. Pièce d'article » vous pouvez ajouter plus d'options
 » voir que les bouts sur ce les perspectives rel= " nofollow " de _blank " de " target= " de http://www.rondebruin.nl/mail/tips2.htm de « href= " de > le ail/tips2.htm
de http://www.rondebruin.nl/m avec. Item
. =
« de Dislist de chiffre d'affaires de CLE ". Le sujet = « CLE C-Vérifient le chiffre d'affaires " le
 ». Display
. Extrémité With

StopMacro de With
de fin de With

de fin de Send
:
avec Application
.ScreenUpdating = True
extrémité With
ActiveWorkbook.EnvelopeVis/>ible = False

End Sub

class= de

Réponse : Copier la feuille active pour envoyer le corps économisent pour rédiger la chemise

Pas immédiatement aux ébauches mais au remplacement :

. Envoyer
avec
.save

le sauvera dans l'inbox.

Chris