Loncat ke daftar isi utama

Bagaimana cara mengirim email berulang jadwal di Outlook?

Di Microsoft Outlook, Anda dapat dengan mudah mengirim jadwal janji temu, rapat, atau tugas berulang kepada orang lain. Tapi jika Anda hanya ingin mengirim email berulang jadwal tanpa janji, rapat atau tugas, bagaimana Anda bisa melakukannya? Sayangnya, Outlook tidak menyediakan fitur untuk mengirim email berulang jadwal, tetapi dalam tutorial kami, kami akan menunjukkan kepada Anda cara mengirim email berulang jadwal di Outlook.

Kirim email berulang jadwal di Outlook dengan kode VBA

Kirim email berulang terjadwal dengan mudah di Outlook dengan alat yang luar biasa


Kirim email berulang jadwal di Outlook dengan kode VBA

Tutorial ini dibagi menjadi empat bagian, Anda akan berhasil mengirim email berulang jadwal setelah menyelesaikan bagian tersebut. Silakan lakukan sebagai berikut.

Bagian 1: Buat janji baru

1. Harap navigasikan ke Kalender lihat dengan mengklik Kalender dalam Navigasi Pane, lalu buat janji temu baru dengan mengklik Penunjukan Baru bawah Beranda Tab.

3. Dalam Penunjukan dialog di bawah Penunjukan tab. Kamu butuh:

J: Ketik Subjek B: Masukkan alamat email penerima di Lokasi
C: Konfigurasi Waktu mulai dan Akhir waktu D: Pilih pengingat di bawah Reminder daftar drop-down
Jika Anda memilih 15 menit, berarti akan mengingatkan Anda 15 menit lebih awal ketika email dikirim.
E: Susun tubuh pengangkatan Anda.

Note: Para Subjek Janji Temu akan menjadi subjek email berulang; dan Badan pengangkatan akan menjadi badan email berulang saat penerima menerima email tersebut.

Bagian 2: Buat kategori baru

Sekarang Anda perlu membuat kategori baru bernama "Kirim Jadwal Email Berulang" sebagai berikut:

1. Dalam Penunjukan dialog, silakan klik Mengkategorikan > semua Kategori dalam Tag kelompok di bawah Penunjukan Tab.

2. Ketika Kategori Warna dialog muncul, silakan klik New tombol. Dalam Tambahkan kategori baru dialog, ketik "Kirim Jadwal Email Berulang" dalam Nama bidang; lalu pilih warna dalam Warna daftar drop-down. Lalu klik OK.

3. Kemudian Anda akan melihat "Kirim Jadwal Email BerulangKategori dicantumkan, centang kotaknya, lalu klik OK .

Bagian 3: Mengatur Pengulangan

Sekarang, saatnya mengatur pengulangan untuk janji temu.

1. klik Kambuh dalam Opsi kelompok di bawah Penunjukan tab. Lihat tangkapan layar:

2. Dalam Pengulangan Janji Temu dialog, konfigurasikan Kambuh pola. Jika Anda membutuhkan waktu berakhir, harap konfigurasikan di bawah Rentang kekambuhan. Dan kemudian klik OK.

3. Ketika kembali ke Penunjukan dialog, silakan klik Simpan & Tutup tombol. Lihat tangkapan layar:

Bagian 4: Gunakan kode VBA untuk mengirim Email Berulang Jadwal

1. Silakan tekan lain + F11 untuk membuka Microsoft Visual Basic untuk Aplikasi dialog.

2. Klik dua kali Project1 > Objek Microsoft Outlook > Sesi Pandangan ini di panel kiri. Lihat tangkapan layar:

3. Salin dan tempel kode VBA berikut ke editor VBA. Dan kemudian klik Save .

VBA: mengirim email berulang jadwal

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. klik Tools > Referensi untuk membuka Referensi - Proyek dialog. Dalam dialog, centang Perpustakaan objek Microsoft Word pilihan dan klik OK .

5. tekan lain + Q kunci sekaligus untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Ketika Reminder bermunculan, email akan secara otomatis dikirim ke penerima yang telah Anda ketik di bidang Lokasi di bagian pertama. Lalu klik Memberhentikan dalam Reminder dialog. Dan email akan dikirim berulang kali setiap hari saat ini. Lihat tangkapan layar:

Note: Kode VBA berhasil diuji di Outlook 2010 dan versi yang lebih baru.


Kirim email berulang terjadwal dengan mudah di Outlook dengan alat yang luar biasa

Bagi banyak pengguna Outlook, metode di atas terlalu membosankan untuk ditangani dengan benar. Di sini sangat merekomendasikan Jadwalkan pengiriman otomatis fitur dari Kutools untuk Outlook. Dengan fitur ini, Anda dapat dengan mudah membuat beberapa email berulang, dan menjadwalkan email ini untuk dikirim secara teratur pada interval harian, mingguan, bulanan, atau tahunan sesuai kebutuhan. Silakan lakukan hal berikut untuk menyelesaikannya.

Pergi ke unduh Kutools untuk Outlook dan cobalah.

1. klik Kutools > Jadwalkan pengiriman otomatis > Buat jadwal kirim otomatis.

2. Kemudian jendela pesan terbuka, dan Anda perlu:

2.1) Pilih penerima email di Kepada, Cc or Bcc bidang yang Anda butuhkan, lalu isi email subjek;
2.2) Tulis badan email;
2.3) Klik Kambuh bawah Kutools Berulang tab. Lihat tangkapan layar:

3. Sekarang Pengulangan Email kotak dialog muncul, Anda perlu menentukan waktu berulang, pola berulang dan kisaran kekambuhan untuk email, lalu klik OK .

4. Sekarang kembali ke jendela pesan, klik Simpan & Tutup untuk menyimpan pengaturan berulang dan menutup jendela.

Tip: Anda dapat mengulangi langkah 1 hingga 4 di atas untuk membuat beberapa email berulang sesuai kebutuhan.

5. Sekarang aktifkan fitur dengan mengklik Kutools > Jadwalkan pengiriman otomatis > Memungkinkan.

6. Dalam pembukaan Kutools untuk Outlook kotak dialog, klik OK.

Setelah menyelesaikan pengaturan di atas, email berulang akan dikirim secara otomatis ketika tanggal dan waktu yang ditentukan tercapai.

Catatan: Anda dapat dengan mudah mengelola email berulang Anda sebagai berikut.

1. klik Kutools > Jadwalkan pengiriman otomatis > Kelola jadwal pengiriman otomatis.

2. Dalam Atur jadwal kirim otomatis jendela, Anda dapat membuat yang baru email berulang, Ubah hapus, nyalakan or lepas email berulang yang ada sesuai kebutuhan. Atau bisa klik Log ikon untuk melihat riwayat pengiriman email berulang.

Klik untuk mengetahui lebih banyak tentang fitur ini.

  Kutools untuk Outlook mencakup 100+ fitur canggih untuk Microsoft Outlook. Gratis untuk mencoba tanpa batasan dalam 60 hari. Unduh sekarang!


Alat Produktivitas Kantor Terbaik

Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda

🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...

📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP)  /  Jadwal Kirim Email  /  Auto CC/BCC Sesuai Aturan Saat Mengirim Email  /  Penerusan Otomatis (Aturan Lanjutan)   /  Tambah Salam Otomatis   /  Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...

📨 email Management: Mengingat Email dengan Mudah  /  Blokir Email Penipuan berdasarkan Subjek dan Lainnya  /  Hapus Email Duplikat  /  Pencarian  /  Konsolidasi Folder ...

📁 Lampiran ProPenyimpanan Batch  /  Pelepasan Batch  /  Kompres Batch  /  Penyimpanan otomatis   /  Lepaskan Otomatis  /  Kompres Otomatis ...

🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren   /  Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab  /  Minimalkan Outlook Daripada Menutup ...

👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk  /   Email Anti-Phishing  /  🕘Tampilkan Zona Waktu Pengirim ...

👩🏼‍🤝‍👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih  /  Bagi Grup Kontak menjadi Grup Individual  /  Hapus Pengingat Ulang Tahun ...

Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.

 

 

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