envoyer PJ sans autorisation de outlook

[misteryann]

Bonsoir à tous

J'ai le code suivant dans un module.

Dim Dest As String, Sujet As String
Sheets("feuil1").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = "toto@www.fr" 'Saisir l'adresse mail
Sujet = "Envoi copie bon de commande"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True

Par ailleurs, j'aimerai envoyer la feuille jointe en CC et en CCI.
Le problème, c'est que lorsque je clique sur le bouton, Outlook demande une autorisation, ce que je ne souhaite pas.

Merci par avance pour votre aide.
Cordialement.

 

[camarchepas]

Re : envoyer PJ sans autorisation de outlook

Bonsoir ,

Regardes ici :

https://www.excel-downloads.com/thr...xcel-avec-piece-jointe-feuille-active.227429/

 

[gosselien]

Re : envoyer PJ sans autorisation de outlook

Bonsoir,

ici aussi il y a un mec assez fort dans les mails 🙂

Excel Automation - Ron de Bruin

 

[misteryann]

Re : envoyer PJ sans autorisation de outlook

Merci à vous à vous deux pour vos réponses rapides (comme d'hab)

pour gosselien: les pages en anglais... (ne suis pas anglophone, mais merci)

pour camarchepas: merci, je vais étudier le code car il semble vraiment intéressant.
Cependant je ne souhaite pas alourdir le fichier (2Mo).
Il s'agit donc juste d'outre passer l'autorisation de Outlook.
Le but étant que cet envoi soit transparent pour l'utilisateur (sauf msg que je vais inclure)

si vous avez la solution...
Merci encore.

Excel, c'est comme une BD: il y a le scénariste et le dessinateur.
Le scénariste, il à l'idée et le déroulement.
Le dessinateur il met en œuvre le scénario pour que ça plaise (le plus dur).

 

[JCGL]

Re : envoyer PJ sans autorisation de outlook

Bonjour à tous,

Pour se départir du message de sécurité Outlook, fait une recherche sur ClickYes.

A+ à tous