Où est l'erreur ?!

Résolu
Moto84 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
Moto84 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -
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 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Fonctionne très bien chez moi sur Outlook.

Voir l'adresse du destinataire
0
danielc0 Messages postés 1859 Date d'inscription   Statut Membre Dernière intervention   231
 
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   Statut Membre Dernière intervention  
 
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