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.