Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Excel
  • Comment envoyer un e-mail à une heure précise de la journée dans Excel?

Comment envoyer un e-mail à une heure précise de la journée dans Excel?

Dans certains cas, vous devrez peut-être retarder l'envoi d'un e-mail à un moment précis de votre travail. Savez-vous comment y parvenir? Cet article va vous montrer une méthode d'envoi d'un e-mail à l'heure précise d'une journée dans Excel.

Envoyer un e-mail à une heure précise de la journée avec le code VBA


Envoyer un e-mail à une heure précise de la journée avec le code VBA

Les codes VBA suivants peuvent vous aider à envoyer un e-mail à l'heure spécifique de la journée dans Excel. Veuillez faire comme suit.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite 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 gauche pour ouvrir la fenêtre ThisWorkbook (Code). Et puis copiez ci-dessous le code VBA 2 dans la fenêtre. Voir la 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

Notes: Dans le code 2, veuillez spécifier l'heure d'envoi selon vos besoins.

4. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

5. Cliquez Déposez le > Enregistrer sous > DECOUVREZ.

6. dans le Enregistrer sous boîte de dialogue, veuillez choisir un dossier pour enregistrer le classeur, nommez-le selon vos besoins, sélectionnez Cahier de travail Excel avec macro-activé format du Enregistrer en tant que type de liste déroulante, et enfin cliquez sur le Enregistrer bouton. Voir la capture d'écran:

À partir de maintenant, dès que l'heure précise arrivera, le certain e-mail s'affichera automatiquement. Veuillez cliquer sur le Envoyer bouton pour envoyer cet e-mail.

Articles Liés:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité en
80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus que
    300
    Caractéristiques puissantes
    . Prend en charge Office/Excel
    2007-2019 et 365
    . Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes
    30
    -jour d'essai gratuit. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition 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é en
    50 %
    , et réduit chaque jour des centaines de clics de souris !
bas de cabine
Commentaires (1)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai une liste d'adresses e-mail dans Excel auxquelles j'ai besoin d'envoyer des e-mails Le sujet et le corps sont dans des cellules en plus de l'adresse e-mail et j'ai le script ci-dessous mais je dois envoyer 100 e-mails par heure comment je peux et quel est le code l'utilisation pour cela, s'il vous plaît votre soutien



Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Mail_Object = CreateObject("Outlook.Application")
Pour i = 2 À lr
Avec Mail_Object.CreateItem(o)
.Sujet = Plage("B" & i).Valeur
.To = Plage("A" & i).Valeur

.Corps = Plage("C" & i).Valeur
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Texte)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Envoyer

'.display' désactive l'affichage et active l'envoi pour envoyer automatiquement
Terminer par
Suivant i
MsgBox "E-mail envoyé avec succès", 64
Application.DisplayAlerts = Faux
Définir Mail_Object = Rien
End Sub
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL