desactiver macro dans envoi outlook

[Bernard-Louis]

Bonsoir,
Apres quelques recherches je me permets de vous poser 2 questions que je n'arrive pas a resoudre.

Dans un envoi de classeur excel, comment faire disparaitre le bouton de la macro qui envoi ce fichier par outlook pour qu'à la reception il n'apparaisse pas?

Puis quel est le code pour supprimer l'acces au macro par celui qui receptionne le fichier afin qu'il recoive un fichier sans aucune formule ou macro?
Avec mes remerciements pour votre aide qui m'est toujours tres efficace.
Cordialement

 

[fredl]

Re : desactiver macro dans envoi outlook

reponse à ta question 1
voir fichier attaché
question 2 :
si tu ne veux pas que l'on voit les macro dans outil/macro :
remplacer dans le vba:
Sub essai()
...
end sub
par:

Sub essai(Optional factice As String)
...
end sub

et enfin si tu ne veux pas que l'on accède par le vba à tes macros, ajoute un mot de passe à ton projet (sous VBA)

tiens moi au courant
cdt
FL

 

[Bernard-Louis]

Re : desactiver macro dans envoi outlook

reponse à ta question 1
voir fichier attaché
question 2 :
si tu ne veux pas que l'on voit les macro dans outil/macro :
remplacer dans le vba:
Sub essai()
...
end sub
par:

Sub essai(Optional factice As String)
...
end sub

et enfin si tu ne veux pas que l'on accède par le vba à tes macros, ajoute un mot de passe à ton projet (sous VBA)

tiens moi au courant
cdt
FL

Apres plusieurs essais, je suis perdu. Voici le code que j'ai place :
Sub Bouton3_QuandClic()

Dim OlApp As Object
Dim OlItem As Object

Set OlApp = CreateObject("Outlook.Application")
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.Recipients.Add "AAAA@free.fr"
.Recipients.Add "BBBB@free.fr"

.Subject = "Statistiques"
.Body = "Bonjour, Vous avez ci-joint le fichier statistiques"
'le classeur Excel est supposé deja sauvegardé
'.Attachments.Add ActiveWorkbook.FullName
.Attachments.Add "\\A\B\C\D\E.xls"
.Save
.Send
End With

Set OlApp = Nothing
End Sub

Merci pour ton aide, car ce n'est pas evident!!
Merci encore

 

[MichelXld]

Re : desactiver macro dans envoi outlook

bonsoir

tu ne pourras pas empecher le message d'alerte en utilisant Outlook.Application

Description of the developer-related e-mail security features in Outlook 2002


Par contre tu peux utiliser la methode CDO,

How To Send HTML Formatted Mail Using CDO for Windows 2000 and the Local Pickup Directory


il me semble que cette methode n'accepte les multidestinataires ...


bonne soiréée
MichelXld

 

[fredl]

Re : desactiver macro dans envoi outlook

quid de mes proposition?
As tu testé?

 

[Bernard-Louis]

Re : desactiver macro dans envoi outlook

Merci Fredl et MichelXLD

Je te remercie, ainsi que MichelXLD, tout fonctionne tres bien.
J'ai resolu le probleme des macros, en les positionnant dans un autre classeur du meme dossier que mes fiches d'envoi par internet.
Comme cela tout ce qui part par internet est nickel. Par contre, dans l'entreprise, il y a une protection contre les envoi internet, et je dois donner l'autorisation et confirmer a chaque fois.
A priori on ne peut pas contourner ce probleme.

Merci pour votre aide, car sans vous une heure ferait 120 minutes.
Merci encore.
Cordialement