Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment envoyer un email à une heure précise d'une journée dans Excel?

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

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


Envoyez facilement des e-mails via Outlook en fonction de la liste de diffusion créée:

Le bouton Envoyer des emails L'utilitaire de Kutools pour Excel aide les utilisateurs à envoyer des e-mails via Outlook en fonction de la liste de diffusion créée dans Excel. Voir la capture d'écran:

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Téléchargez l'essai gratuit maintenant


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


Les codes VBA suivants peuvent vous aider à envoyer un e-mail à l'heure spécifique d'une journée dans Excel. S'il vous plaît 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 dans la fenêtre Module.

Code VBA 1: Envoyer un e-mail à une heure précise d'une 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). Et copiez ensuite le code VBA 2 dans la fenêtre. Voir la capture d'écran:

Code VBA 2: Envoyer un e-mail à une heure précise d'une journée dans Excel

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
    Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub

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

4. appuie sur le autre + Q les clés pour fermer le Microsoft Visual Basic pour applications fenêtre.

5. Cliquez Fichier > Enregistrer sous > Feuilleter.

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

A partir de maintenant, dès que l'heure précise d'arrivée, le certain email s'affichera automatiquement. S'il vous plaît cliquer sur le Envoyer bouton pour envoyer cet email.

Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    hiba · 7 months ago
    I have a list of email addresses in excel that i need to send emails to The subject and body are in cells besides the email address and i have the script below but i need to send 100 emails per 1 hour how i can and what the code the use for it ,please your support



    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")
    For i = 2 To lr
    With Mail_Object.CreateItem(o)
    .Subject = Range("B" & i).Value
    .To = Range("A" & i).Value

    .Body = Range("C" & i).Value
    .attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
    .Send

    '.display 'disable display and enable send to send automatically
    End With
    Next i
    MsgBox "E-mail successfully sent", 64
    Application.DisplayAlerts = False
    Set Mail_Object = Nothing
    End Sub