Où est l'erreur ?! [Résolu/Fermé]

Signaler
Messages postés
14
Date d'inscription
vendredi 12 mai 2017
Statut
Membre
Dernière intervention
27 avril 2020
-
Messages postés
14
Date d'inscription
vendredi 12 mai 2017
Statut
Membre
Dernière intervention
27 avril 2020
-
Bonjour, quand je lance cette macro, j'ai bien en retour le Msg et le fichier se ferme, MAIS je ne reçois rien dans mes mails. Je cherche depuis ce matin... Est-ce que quelqu'un voit où est l'erreur svp ? Merci
Sub EnvoiSuiviFormation()
 
   ActiveSheet.Range("A1:E17").Select
 
   ActiveWorkbook.EnvelopeVisible = False
 
   With ActiveSheet.MailEnvelope
      .Introduction = "!!!"
      .Item.To = "prénom.nom@fournisseur.com"
      .Item.Subject = "Suivi Formation"
      .Item.Send
   End With
 
    MsgBox "Infos envoyées, merci !"
 
    Workbooks("TIM_V2.xlsm").Close savechanges:=False
 
End Sub

3 réponses

Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 juillet 2020
532
Bonjour,

Fonctionne très bien chez moi sur Outlook.

Voir l'adresse du destinataire
Messages postés
679
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 avril 2020
52
Bonjour,

Essaie avec :

ActiveWorkbook.EnvelopeVisible = True


et vérifie que ton classeur est bien enregistré. Vérifie aussi que Outlook est bien ton courrielleur.

Daniel
Messages postés
14
Date d'inscription
vendredi 12 mai 2017
Statut
Membre
Dernière intervention
27 avril 2020

J'ai trouvé, c'est tout simplement que javais protégé certaines parties de mon onglet... ce qui est logique... la macro me dit "je n'envoie pas un fichier protégé". Bon, c'est résolu, ouf. Merci ;-)