Table des matières
Ceci est un exemple simple de la façon d'envoyer un e-mail à partir d'Excel.
Cliquez ici pour un exemple plus complexe : envoyez une feuille de calcul par e-mail en tant que classeur séparé. Cet exemple traite également de la protection par mot de passe et d'autres problèmes courants.
| 12345678910111213141516171819202122232425262728 | Sous-Mail_Classeur()Application.ScreenUpdating = FauxDim OutApp en tant qu'objetEstomper OutMail en tant qu'objet'Créer des variables initialesDéfinir OutApp = CreateObject("Outlook.Application")Définir OutMail = OutApp.CreateItem(0)'E-mailEn cas d'erreur Reprendre ensuiteAvec OutMail.to = "[email protected]".CC = "".BCC = "".Sujet = "Sujet".Body = "Corps du texte"'.Attachments.Add (FilePath) 'Facultatif si vous avez une pièce jointe.Affichage' .Send 'Facultatif pour automatiser l'envoi d'e-mails.Terminer parEn cas d'erreur GoTo 0Définir OutMail = RienDéfinir OutApp = RienApplication.ScreenUpdating = TrueFin du sous-marin |
