Vous pouvez envoyer une seule feuille de calcul par courrier électronique à l’aide de SendMail avec Microsoft Outlook. La macro suivante copie la feuille de calcul active et l’envoie en tant que feuille de calcul unique dans son propre classeur:

Sub EnvoyerFeuilleEmail ()
ActiveSheet.Copy
On Error Resume Next
ActiveWorkbook.SendMail "chancelin@yahoo.com", " Test d'une seule feuille."
Err.Clear
ActiveWorkbook.Close False
End Sub

Remarque

SendMail peut envoyer une seule feuille de calcul en tant que pièce jointe en hébergeant cette feuille de calcul dans son propre classeur et en l’envoyant par courrier électronique. SendMail ne nécessite pas la spécification d’un serveur SMTP (Simple Mail Transport Protocol); il envoie le courrier en utilisant votre système de messagerie installé. Cela a l’avantage de contourner une grande partie du code lié à Outlook que vous avez vu jusqu’à présent, mais cela présente des inconvénients, tels qu’une capacité limitée à joindre des fichiers et aucun argument CC disponible.