Μετάβαση στο κύριο περιεχόμενο

Πώς μπορείτε να στείλετε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook;

Στο Microsoft Outlook, μπορείτε εύκολα να στείλετε ένα χρονοδιάγραμμα επαναλαμβανόμενου ραντεβού, συνάντησης ή εργασίας σε άλλους. Αλλά αν θέλετε απλώς να στείλετε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου χωρίς ραντεβού, συνάντηση ή εργασία, πώς μπορείτε να το κάνετε; Δυστυχώς, το Outlook δεν παρέχει καμία δυνατότητα για αποστολή περιοδικών μηνυμάτων ηλεκτρονικού ταχυδρομείου χρονοδιαγράμματος, αλλά στο σεμινάριό μας, θα σας δείξουμε πώς μπορείτε να στείλετε περιοδικά μηνύματα ηλεκτρονικού ταχυδρομείου προγραμματισμού στο Outlook.

Στείλτε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook με κωδικό VBA

Εύκολη αποστολή προγραμματισμού επαναλαμβανόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook με ένα καταπληκτικό εργαλείο


Στείλτε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook με κωδικό VBA

Αυτό το σεμινάριο χωρίζεται σε τέσσερα μέρη, θα πετύχετε να στείλετε ένα περιοδικό μήνυμα ηλεκτρονικού ταχυδρομείου προγραμματισμού μετά την ολοκλήρωση αυτών των τμημάτων. Κάντε τα εξής:

Μέρος 1: Δημιουργήστε ένα νέο ραντεβού

1. Μεταβείτε στο Ημερολόγιο εκδηλώσεων προβολή κάνοντας κλικ Ημερολόγιο εκδηλώσεων στο Παράθυρο περιήγησηςκαι, στη συνέχεια, δημιουργήστε ένα νέο ραντεβού κάνοντας κλικ Νέο ραντεβού υπό Home Tab.

3. Στο Ραντεβού διαλόγου κάτω Ραντεβού αυτί. Πρέπει να:

Α: Πληκτρολογήστε το Θέμα Β: Εισαγάγετε τις διευθύνσεις email των παραληπτών στο Τοποθεσία
C: Διαμορφώστε το Ώρα έναρξης και την Ώρα λήξης D: Επιλέξτε την υπενθύμιση κάτω από το υπενθύμιση Αναπτυσσόμενη λίστα.
Εάν επιλέξετε 15 λεπτά, αυτό σημαίνει ότι θα σας υπενθυμίσει 15 λεπτά νωρίτερα κατά την αποστολή του email.
Ε: Συνθέστε το σώμα ραντεβού σας.

Note: Ο Θέμα ραντεβού θα γίνει το επαναλαμβανόμενο θέμα ηλεκτρονικού ταχυδρομείου. και το Σώμα διορισμού θα γίνει το επαναλαμβανόμενο σώμα email όταν οι παραλήπτες έλαβαν το email.

Μέρος 2: Δημιουργήστε μια νέα κατηγορία

Τώρα πρέπει να δημιουργήσετε μια νέα κατηγορία με το όνομα "Αποστολή προγραμματισμένου επαναλαμβανόμενου email" ως εξής:

1. Στο Ραντεβού διαλόγου, κάντε κλικ Ταξινομώ > Όλες οι κατηγορίες στο Ετικέτες ομάδα κάτω Ραντεβού Tab.

2. Οταν ο Κατηγορίες χρωμάτων αναδυόμενο παράθυρο διαλόγου, κάντε κλικ Νέα κουμπί. Στο Προσθήκη νέας κατηγορίας διαλόγου, πληκτρολογήστε "Αποστολή προγραμματισμένου επαναλαμβανόμενου email" στο Όνομα πεδίο; και στη συνέχεια επιλέξτε ένα χρώμα στο Χρώμα αναπτυσσόμενη λίστα. Στη συνέχεια κάντε κλικ στο κουμπί OK.

3. Τότε θα δείτε το «Αποστολή προγραμματισμένου επαναλαμβανόμενου emailΗ κατηγορία εμφανίζεται έξω, επιλέξτε το πλαίσιο και, στη συνέχεια, κάντε κλικ OK κουμπί.

Μέρος 3: Ρυθμίστε την επανάληψη

Τώρα, είναι καιρός να ρυθμίσετε την επανάληψη για το ραντεβού.

1. κλικ Επανάληψη στο Επιλογές ομάδα κάτω Ραντεβού αυτί. Δείτε το στιγμιότυπο οθόνης:

2. Στο Επανάληψη ραντεβού διαλόγου, διαμορφώστε το Επανάληψη πρότυπο. Εάν χρειάζεστε ώρα λήξης, διαμορφώστε την κάτω Εύρος επανάληψης. Και στη συνέχεια κάντε κλικ στο κουμπί OK.

3. Όταν επιστρέψει στο Ραντεβού διαλόγου, κάντε κλικ Αποθήκευση & Κλείσιμο κουμπί. Δείτε το στιγμιότυπο οθόνης:

Μέρος 4: Χρησιμοποιήστε τον κωδικό VBA για την αποστολή του επαναλαμβανόμενου μηνύματος ηλεκτρονικού ταχυδρομείου

1. Πατήστε άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές διαλόγου.

2. Κάντε διπλό κλικ στο Project1 > Αντικείμενο Microsoft Outlook > Αυτό το OutlookSession στο αριστερό παράθυρο. Δείτε το στιγμιότυπο οθόνης:

3. Αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στον επεξεργαστή VBA. Και μετά κάντε κλικ Αποθήκευση κουμπί.

VBA: αποστολή επαναλαμβανόμενου email για το πρόγραμμα

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. κλικ Εργαλεία > αναφορές για να ανοίξετε το αναφορές - Εργο διάλογος. Στο παράθυρο διαλόγου, επιλέξτε το Βιβλιοθήκη αντικειμένων του Microsoft Word και κάντε κλικ στο OK κουμπί.

5. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Όταν ο υπενθύμιση αναδυόμενο, το email θα σταλεί αυτόματα στους παραλήπτες που έχετε πληκτρολογήσει στο πεδίο Τοποθεσία στο πρώτο μέρος. Στη συνέχεια κάντε κλικ να απορρίψει στο υπενθύμιση διάλογος. Και το email θα αποστέλλεται επαναλαμβανόμενα κάθε μέρα αυτή τη στιγμή. Δείτε το στιγμιότυπο οθόνης:

Note: Ο κώδικας VBA δοκιμάστηκε με επιτυχία στο Outlook 2010 και στις νεότερες εκδόσεις.


Εύκολη αποστολή προγραμματισμού επαναλαμβανόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook με ένα καταπληκτικό εργαλείο

Για πολλούς χρήστες του Outlook, η παραπάνω μέθοδος είναι πολύ κουραστική για να χειριστεί σωστά. Εδώ συνιστώ ανεπιφύλακτα το Προγραμματισμός αυτόματης αποστολής χαρακτηριστικό του Kutools για το Outlook. Με αυτήν τη λειτουργία, μπορείτε εύκολα να δημιουργήσετε πολλαπλά επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου και να προγραμματίσετε την τακτική αποστολή αυτών των μηνυμάτων ηλεκτρονικού ταχυδρομείου σε καθημερινά, εβδομαδιαία, μηνιαία ή ετήσια διαστήματα, όπως χρειάζεστε. Κάντε τα εξής για να το κάνετε.

Πηγαίνετε στο κατεβάστε το Kutools για το Outlook και δοκιμάστε.

1. κλικ Kutools > Προγραμματισμός αυτόματης αποστολής > Δημιουργία προγράμματος αυτόματης αποστολής.

2. Στη συνέχεια, ανοίγει ένα παράθυρο μηνύματος και πρέπει:

2.1) Επιλέξτε τους παραλήπτες email στο Προς, Cc or Bcc πεδία όπως χρειάζεστε και, στη συνέχεια, συμπληρώστε το μήνυμα ηλεκτρονικού ταχυδρομείου θέμα;
2.2) Σύνταξη του σώματος email
2.3) Κάντε κλικ στο κουμπί Επανάληψη σύμφωνα με το Kutools Επαναλαμβανόμενο αυτί. Δείτε το στιγμιότυπο οθόνης:

3. Τώρα το Επανάληψη μηνυμάτων ηλεκτρονικού ταχυδρομείου εμφανίζεται το παράθυρο διαλόγου, πρέπει να καθορίσετε το επαναλαμβανόμενος χρόνος, επαναλαμβανόμενο μοτίβο και την εύρος υποτροπής για το μήνυμα ηλεκτρονικού ταχυδρομείου και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

4. Τώρα επιστρέφει στο παράθυρο του μηνύματος, κάντε κλικ Αποθήκευση & Κλείσιμο κουμπί για να αποθηκεύσετε τις επαναλαμβανόμενες ρυθμίσεις και να κλείσετε το παράθυρο.

Συμβουλές: Μπορείτε να επαναλάβετε τα παραπάνω βήματα 1 έως 4 για να δημιουργήσετε πολλά επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου όπως χρειάζεστε.

5. Τώρα ενεργοποιήστε τη λειτουργία κάνοντας κλικ Kutools > Προγραμματισμός αυτόματης αποστολής > Επιτρέπω.

6. Στο άνοιγμα Kutools για το Outlook , κάντε κλικ στην επιλογή Εντάξει.

Μετά την ολοκλήρωση των παραπάνω ρυθμίσεων, τα επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου θα αποστέλλονται αυτόματα όταν φτάσει η καθορισμένη ημερομηνία και ώρα.

Σημείωση: Μπορείτε εύκολα να διαχειριστείτε τα επαναλαμβανόμενα μηνύματα ηλεκτρονικού ταχυδρομείου σας ως εξής.

1. κλικ Kutools > Προγραμματισμός αυτόματης αποστολής > Διαχειριστείτε το πρόγραμμα αυτόματης αποστολής.

2. Στο Πρόγραμμα αυτόματης αποστολής Mange παράθυρο, μπορείτε να δημιουργήσετε νέος επαναλαμβανόμενο email, επεξεργασία, διαγραφή, ανάβω or off ένα υπάρχον επαναλαμβανόμενο email όπως χρειάζεστε. Or μπορείτε να κάνετε κλικ στο Σύνδεση εικονίδιο για προβολή του ιστορικού αποστολής των επαναλαμβανόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου.

Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα.

  Kutools για το Outlook περιλαμβάνει 100+ ισχυρές δυνατότητες για το Microsoft Outlook. Δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. Κατεβάστε τώρα!


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (171)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,
J'utilise outlook depuis peu, et j'ai découvert cette manipulation pour envoyer un mail récurrent. Cela a très bien fonctionné la première fois, mais je ne comprends pas, ça ne fonctionne plus. Cela a peut-être de l'importance, mais comme je travaille sur 2 ordinateurs différents, le code VBA a aussi été intégré sur ma deuxième session outlook. Auriez-vous une explication je vous prie ?
Merci d'avance
This comment was minimized by the moderator on the site
Hi Pink,
Which Outlook version are you using? Is there a reminder dialog box popping up afterwards?
This comment was minimized by the moderator on the site
This feature does not work for me no matter what I do and from the above thread, it doesn't look like they are attempting to fix it much less address it--I don't see any responses from the developer.

It's too bad because everything else with this product works very well.
This comment was minimized by the moderator on the site
Hi Rhonda Corn,
Can you provide the emails under the following folder path?
You can compress it and send it to
C:\Users\User Name\AppData\Roaming\ExtendOffice\OutlookKutools\KTORecurringEmail
This comment was minimized by the moderator on the site
How do I get this to run 2 different scheduled emails?
This comment was minimized by the moderator on the site
Hi, 
When I put recipients names into "location" it changes "appointment" to "meeting" invite, is this working as intended? It doesn't allow me to "save and close", but rather "send" the invite now which is not what I want to do.
This comment was minimized by the moderator on the site
Hi,Appointments are not changed to meetings when entering content into the Location field. 
This comment was minimized by the moderator on the site
I scheduled the reoccurring email however instead of sending email on the 30th it sent it today. I checked the settings and is set to send email on 30th at 10 am. Instead it sent the email on the 17th at 5:45 PM
This comment was minimized by the moderator on the site
Hi Leah,Sorry for the trouble, the problem you described cannot be reproduced. Here suggest using the relevant function of KTO to send a schedule recurring email.
This comment was minimized by the moderator on the site
I’m trying to set up a recurring email to be sent. However, it’s not working for some reason. It acts like it’s trying, but I get this error message:
This comment was minimized by the moderator on the site
Hi,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
It is enabled
This comment was minimized by the moderator on the site
It is enabled already
This comment was minimized by the moderator on the site
I had the same problem.  I had a look in the available references list and found a second Microsoft Word 16.0 Object Library that was not enabled. Once I enabled that one, it solved the problem for me!
This comment was minimized by the moderator on the site
Hello, 
Several errors to easily solve if the mail stays in "draft" : 
-> Add .Save juste before .Send
-> Don't close everything too fast or the script wouldn't have the time to send the mail that it has been cleaned... so find a way to delay those 2 rows 
Set xMailItem = Nothing
VBA.Kill xFldPath
Maybe with a thread sleep/wait ? Is the killing mandatory ? wouldn't this be killed when outlook is closed ? For my usecase, it was ok to remove them
This comment was minimized by the moderator on the site
I followed the instruction in this article "How to send a schedule recurring email in Outlook" multiple times, to no avail. I get the popup reminder box but, the e-mail is never sent. I've tried with Kutools for Outlook installed and uninstalled. Still no success in sending a scheduled recurring email in Outlook.

Thanx,
RLB
This comment was minimized by the moderator on the site
I have had the same situation. It was working fine for almost a year and then suddenly stopped working. I've tried recopying the code, delete it completely and start over. Same results- popup reminder box happens, I click ok, and the email is never sent.
This comment was minimized by the moderator on the site
Hi tarnold,Make sure that the category name you created in step 2 is the same as the name specified in the code.
Can you try the VBA below and give me feedback on error you encountered later? Because this problem needs to be reproduced in my case. Or you can also try the third party tool mentioned in the post. Sorry for the inconvenience.

<div data-tag="code">Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20220114
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
.To = Item.Location
.Recipients.ResolveAll
.Subject = Item.Subject
.Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub
This comment was minimized by the moderator on the site
Crystal,
Sorry for the delay.  I copied your script into VBA.  My category is "Recurring Email", so I made it match in your script.  I set up a recurring email to test it.  The reminder window pops up at the correct time.  I waited a couple of minutes and then clicked 'dismiss'.  The window closes.  No errors.  No email sent.
This comment was minimized by the moderator on the site
Hi Crystal, when using the code above I have this error: 
Erreur de compilation: Type défini par l'utilisateur non défini
it's concerning this lineDim xItemDoc As Word.Document

any ideas?
This comment was minimized by the moderator on the site
Hi Marie-Eve Noel,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
At least yours work for a while. Mine never worked. Contacted Support and was told to post here. I suppose we'll have to wait on the author to respond.
This comment was minimized by the moderator on the site
Hi RodmanB,
Can neither of the two methods described in the article solve the problem?
VBA code and Kutools for Outlook are two different ways to handle the task.I need to know more specific about your issue, such as your Excel version.
This comment was minimized by the moderator on the site
Hi Crystal,
I am using MSOffice 365 for all of the Office products- Outlook, Excel, etc. As I posted 6month ago, it was working fine with my previous MSOffice desktop software.  When I switched to Office 365, it stopped working and I am having the same/similar situation as RodmanB.  The reminder popup occurs, I dismiss it and nothing happens.  The email is not in the draft folder, not in the sent folder, nothing.
This comment was minimized by the moderator on the site
Crystal,   Thanks for help. I replaced the VBCode and made a different test email. It preformed just as the other; reminder pops up, .wav file plays but the email is not sent. I'll install Kutools for Outlook and try that way tomorrow and, will respond with results.
This comment was minimized by the moderator on the site
Crystal,   Unable to install Kutool for outlook, demo license expired. Not willing to buy  just to debug this feature. So, have a great day and thanks for the help.
Thanx,RLB
This comment was minimized by the moderator on the site
Hi have implemented this and there's a couple of issues.1 - if i don't have Outlook opened, the email is not sent --> i guess this is normal, not a big deal anyway.2 - even the appointment appears just once a day and the email sent properly then, i see that the email is sent randomly other extra times during the day. For example, my schedule is daily at 9:00 and this is sent at 9:00 (OK) and also at 17:13 (NOK). I am not being able to identify why, any idea?
thanks.
This comment was minimized by the moderator on the site
What would the VBA code be for this but sending from the recipients of the appointment, not the "location" of the appointment as coded above? I need to send to 20+ people and cannot add enough names as the location fields is limited on characters. Many thanks
This comment was minimized by the moderator on the site
Hi J,You can try the second method "the Schedule auto send feature of Kutools for Outlook" mentioned in the post.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations