Menu

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

Messages postés
12
Date d'inscription
vendredi 12 mai 2017
Dernière intervention
18 janvier 2019
-
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
Afficher la suite 

Votre réponse

3 réponses

Messages postés
5817
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 février 2019
403
0
Merci
Bonjour,

Fonctionne très bien chez moi sur Outlook.

Voir l'adresse du destinataire
Commenter la réponse de cs_Le Pivert
Messages postés
400
Date d'inscription
mardi 5 juin 2018
Dernière intervention
13 février 2019
29
0
Merci
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
Commenter la réponse de danielc0
Messages postés
12
Date d'inscription
vendredi 12 mai 2017
Dernière intervention
18 janvier 2019
0
Merci
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 ;-)
Commenter la réponse de Moto84