Où est l'erreur ?! Résolu

Question

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

cs_Le Pivert · Answer

Bonjour,

Fonctionne très bien chez moi sur Outlook. 

Voir l'adresse du destinataire

danielc0 · Answer

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

Moto84 · Answer

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 ;-)

Où est l'erreur ?!

3 réponses

Votre réponse

Discussions similaires

Newsletters