Où est l'erreur ?!

Résolu/Fermé
Moto84 Messages postés 26 Date d'inscription vendredi 12 mai 2017 Statut Membre Dernière intervention 6 mars 2024 - Modifié le 18 janv. 2019 à 09:40
Moto84 Messages postés 26 Date d'inscription vendredi 12 mai 2017 Statut Membre Dernière intervention 6 mars 2024 - 18 janv. 2019 à 11:40
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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 janv. 2019 à 11:38
Bonjour,

Fonctionne très bien chez moi sur Outlook.

Voir l'adresse du destinataire
0
danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 74
Modifié le 18 janv. 2019 à 11:40
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
0
Moto84 Messages postés 26 Date d'inscription vendredi 12 mai 2017 Statut Membre Dernière intervention 6 mars 2024
18 janv. 2019 à 11:40
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 ;-)
0