Comment envoyer un e-mail à une heure précise de la journée dans Excel ?
Dans certains cas, vous pourriez avoir besoin de retarder l'envoi d'un e-mail à une heure précise pendant votre travail. Savez-vous comment réaliser cela ? Cet article va vous montrer une méthode pour envoyer un e-mail à une heure spécifique de la journée dans Excel.
Envoyer un e-mail à une heure précise de la journée avec du code VBA
Envoyer un e-mail à une heure précise de la journée avec du code VBA
Le code VBA suivant peut vous aider à envoyer un e-mail à une heure précise de la journée dans Excel. Veuillez procéder comme suit.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre Module.
Code VBA 1 : Envoyer un e-mail à une heure précise de la journée dans Excel
Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.Display
.To = "Email address"
.Subject = "Send email"
'HTML for fun
'.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
'.Send
End With
End Sub
3. Double-cliquez sur ThisWorkbook dans le volet de gauche pour ouvrir la fenêtre ThisWorkbook (Code). Ensuite, copiez le code VBA 2 ci-dessous dans cette fenêtre. Voir capture d'écran :
Code VBA 2 : Envoyer un e-mail à une heure précise de la journée dans Excel
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub
Remarque : Dans le code 2, veuillez spécifier l'heure d'envoi selon vos besoins.
4. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.
5. Cliquez sur Fichier > Enregistrer sous > Parcourir.
6. Dans la boîte de dialogue Enregistrer sous, choisissez un dossier pour enregistrer le classeur, nommez-le comme vous le souhaitez, sélectionnez le format Classeur Excel prenant en charge les macros dans la liste déroulante Spécifier le format d'enregistrement, puis cliquez sur le bouton Enregistrer. Voir capture d'écran :
Dès maintenant, dès que l'heure précise sera atteinte, l'e-mail correspondant s'affichera automatiquement. Veuillez cliquer sur le bouton Envoyer pour envoyer cet e-mail.

Découvrez la magie d'Excel avec Kutools AI
- Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
- Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
- Codage VBA : Écrivez et implémentez du code VBA sans effort.
- Interprétation des formules : Comprenez facilement des formules complexes.
- Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.
Articles connexes :
- Comment envoyer automatiquement un e-mail en fonction de la valeur d'une cellule dans Excel ?
- Comment insérer une signature dans un e-mail Outlook lors de l'envoi par VBA dans Excel ?
- Comment envoyer un e-mail avec un corps au format HTML dans Excel ?
- Comment envoyer un e-mail avec un texte en gras/taille/couleur/souligné spécifié dans Excel ?
- Comment envoyer un e-mail sans Outlook dans Excel ?
- Comment envoyer un graphique spécifique dans un e-mail avec VBA dans Excel ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !