Note: The other languages of the website are Google-translated. Back to English

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 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!


Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (171)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Metode itu memang membantu. Ini berhasil untuk satu janji awal yang dibuat ketika saya mengujinya. Tapi kemudian berhenti bekerja kemudian.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama, saya telah mengulangi langkah-langkahnya beberapa kali dan sekarang tidak berfungsi sama sekali, tidak ada email yang dikirim atau apa pun. Apakah Anda dapat memperbaikinya?
Komentar ini diminimalkan oleh moderator di situs
Hai, saya dapat mengatur email berulang dengan mengikuti langkah-langkah di atas, tetapi ketika saya membuat Hyperlink di badan Janji Temu, ketika acara dipicu dan saya mendapat email di email, Hyperlink diubah menjadi tautan mentah. Setiap Bantuan Dihargai, Terima Kasih.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Ini berhasil. Apakah ada cara untuk menyertakan lampiran dalam email yang dikirim? Saya mencoba tes dengan menambahkan lampiran ke acara kalender tetapi tidak muncul di email.
Komentar ini diminimalkan oleh moderator di situs
apakah Anda pernah mendapatkan jawaban tentang cara menambahkan lampiran? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Saya membuat ini berfungsi untuk email pengujian, tetapi sekarang tidak lagi melakukan apa-apa, dan saya telah menghapus semuanya dan mengulangi langkah-langkah, apakah ada yang lebih dari ini? Saya di outlook 2013 juga
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama. Ini berfungsi pertama kali tetapi pengingat janji temu berulang tampaknya tidak memicu email. Adakah yang menemukan solusi untuk masalah ini?
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya membuat ini berfungsi untuk email pengujian, tetapi sekarang tidak lagi melakukan apa-apa, dan saya telah menghapus semuanya dan mengulangi langkah-langkah, apakah ada yang lebih dari ini? Saya di outlook 2013 jugaOleh Indah[/quote] Apakah Anda pernah menyelesaikan ini? Saya baru saja mengatur ini dan melihat hal yang sama seperti yang Anda lakukan. Bekerja dengan baik pertama kali kemudian tidak ada.
Komentar ini diminimalkan oleh moderator di situs
Saya menyelesaikan ini pada akhirnya dengan mengaktifkan makro di Outlook yang secara default dimatikan. Satu-satunya masalah yang saya miliki sekarang adalah bahwa teks dalam email hanya teks biasa, tidak ada huruf tebal, ukuran font atau perubahan warna dll. Apakah ada cara untuk mengubah kode di atas sehingga Anda memiliki teks RTF atau HTML di email?
Komentar ini diminimalkan oleh moderator di situs
Hai Apakah Anda menyelesaikan ini. Saya memiliki masalah yang sama Mencoba ini, tetapi tidak berhasil. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail Sebagai Objek) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.GetProperty, Nothing, mail, Nothing)) 'OlFormatUnspecified = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Maka mailFormat = 2 mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.SetProperty, Tidak ada, email, Objek Baru() {mailFormat}) Akhir Sub Pribadi Sub Application_Reminder(ByVal Item Sebagai Objek) Dim MItem Sebagai MailItem Set MItem = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Kemudian Keluar Sub If Item .Categories "Send Schedule Recurring Email" Lalu Keluar dari Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Tidak Ada Yang Berakhir Sub
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya menyelesaikan ini pada akhirnya dengan mengaktifkan makro di Outlook yang secara default dimatikan. Satu-satunya masalah yang saya miliki sekarang adalah bahwa teks dalam email hanya teks biasa, tidak ada huruf tebal, ukuran font atau perubahan warna dll. Apakah ada cara untuk mengubah kode di atas sehingga Anda memiliki teks RTF atau HTML di email?Oleh Kyle[/quote] Hai Apakah Anda menemukan solusi untuk ini. Saya membutuhkannya untuk :) Kim
Komentar ini diminimalkan oleh moderator di situs
Anda mungkin juga mempertimbangkan untuk menggunakan Penjadwal Tugas Windows untuk hal seperti ini. Mudah digunakan dan bahkan dapat menangani lampiran.
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba dengan tugas tetapi saya tidak mendapatkan apa-apa karena lampiran tidak masuk ke badan email. Mohon saran bagaimana Anda telah melakukannya.
Komentar ini diminimalkan oleh moderator di situs
Kode mana yang Anda gunakan? Itu tidak melampirkan ke email lampiran.
Komentar ini diminimalkan oleh moderator di situs
bagaimana Anda mematikannya?
Komentar ini diminimalkan oleh moderator di situs
Dari atas kepala saya, untuk berhenti mengirim email berulang, Anda dapat: 1. Menghapus janji temu sama sekali. 2. Ubah atau Hapus Kategori yang ditetapkan. 3. Terapkan Tanggal 'Berakhir Pada' untuk Pengulangan Janji Temu.
Komentar ini diminimalkan oleh moderator di situs
apakah Anda perlu memiliki pandangan terbuka / berjalan untuk mengirim surat berulang?
Komentar ini diminimalkan oleh moderator di situs
Apakah kode ini berfungsi dengan Office 365 - Outlook 2013? Saya telah mengikuti langkah-langkah beberapa kali, mengaktifkan makro juga. Saya mendapatkan pengingat dan tekan abaikan tetapi email tidak pernah terkirim.
Komentar ini diminimalkan oleh moderator di situs
Hei, lihat ini - Saya pikir Anda akan sangat menyukai fitur ini.. Tidak ada lagi email template mingguan
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk mengirim ke daftar distribusi di kontak?
Komentar ini diminimalkan oleh moderator di situs
Ya Aaron, saya perlu melakukan ini sendiri. Saya mencoba menambahkan daftar distribusi (Outlook Contact Group) yang disebut 'Spec Group'. Ini tidak terkirim. Namun, saya mengubah nama daftar menjadi 'Spec@Group' (agar terlihat seperti alamat email yang sebenarnya) dan ini bekerja dengan sempurna. Itu harus membutuhkan '@' untuk dijemput. Tebakan beruntung! :tertawa terbahak-bahak:
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan baik. Sekarang saya memerlukan email yang sama untuk pergi ke beberapa grup. Adakah yang bisa membantu? Private Sub Application_Reminder(ByVal Item Sebagai Objek) Redupkan CF Sebagai Kumpulan Folder CF = Application.Session.GetDefaultFolder(olFolderContacts) Redupkan DLI Sebagai DistListItem Set DLI = CF.Items("GDL Group 1") Redupkan MItem Sebagai MailItem Set MItem = Aplikasi. CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Kemudian Keluar Sub If Item.Categories "Recurring GDL Recert Email" Kemudian Keluar Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Kirim Set MItem = Tidak Ada Yang Berakhir Sub
Komentar ini diminimalkan oleh moderator di situs
Buat daftar Distribusi lain yang berisi/menunjuk ke Daftar Distribusi lain yang sudah Anda siapkan yang ingin Anda sertakan.
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin menjadwalkan email untuk dikirim dalam pandangan saat komputer hilang. Misalnya, saya ingin mengirim pengingat janji pada hari Minggu untuk rapat pada hari Senin, tetapi saya tidak bekerja pada hari Minggu, jadi bagaimana cara agar email itu keluar pada hari Minggu ketika saya tidak bekerja dan komputer saya mati? mati? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Kode VBA tidak muncul ketika saya menekan ALT & F11. Saya dapat membuka Microsoft Visual Basic for Applications, tetapi tidak ada kode. Bisakah Anda memberi saran? Terima kasih, Raj
Komentar ini diminimalkan oleh moderator di situs
Hai Raj, tidak ada kode VBA yang harus ada. Jika Anda mengikuti panduan di atas, ketika Anda mengklik dua kali pada "ThisOutlookSession" seharusnya kosong. Anda harus menyalin dan menempelkan kode yang ditunjukkan dalam panduan ke jendela "ThisOutlookSession" dan kemudian menyimpannya. Semoga ini membantu.
Komentar ini diminimalkan oleh moderator di situs
Hai ketika saya mengikuti semua langkah dan menyimpan dan pergi, buat email lain - kodenya masih ada dari terakhir kali. Apakah kode dilampirkan pada kategori yang dipilih sehingga tidak perlu menambahkan kode untuk setiap email?
Komentar ini diminimalkan oleh moderator di situs
Hai Bonnie, kode VBA hanya perlu ditambahkan satu kali (untuk email berulang pertama). Jika menyiapkan lebih dari satu email berulang, lewatkan saja langkah itu.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki office 2016 dan saya mencoba ini, mengikuti instruksi Anda dengan tepat. Itu berhasil!! Terima kasih banyak. Saya memang harus mengubah pengaturan keamanan makro saya di Outlook 2016 dan editor VBA untuk membuatnya berfungsi, tetapi setelah itu selesai, instruksinya mengalir dengan mudah.
Komentar ini diminimalkan oleh moderator di situs
Hai, Bagaimana Anda mengubah pengaturan keamanan makro di Outlook dan apa yang Anda ubah?
Komentar ini diminimalkan oleh moderator di situs
Jadi dua hal, satu tidak muncul seperti yang saya tulis yaitu tidak ada karakter tebal dan dua bagaimana cara menambahkan tanda tangan? karena itu muncul sebagai tautan hiper alih-alih tanda tangan biasa saya. Terima kasih untuk bantuannya.
Komentar ini diminimalkan oleh moderator di situs
Alex Mine muncul dengan format yang dihilangkan juga. Bagaimana kita menyimpannya?
Komentar ini diminimalkan oleh moderator di situs
Itu dikirim dengan baik, tetapi menjatuhkan semua format mewah yang saya miliki di badan email saya. Bagaimana saya mendapatkannya untuk menjaga format ini???
Komentar ini diminimalkan oleh moderator di situs
Saya perlu tahu bagaimana\jika Anda dapat melampirkan lembar spreed excel?
Komentar ini diminimalkan oleh moderator di situs
Hai teman-teman. Kode ini berfungsi dengan baik tetapi saya memiliki sedikit masalah. Email yang saya coba kirim adalah bagian dari dua kategori: Kirim Pesan (menggunakan makro) dan PROGRAMARI RED-TEAM. Makro berfungsi dengan baik ketika saya hanya menambahkan kategori Kirim Pesan, tetapi segera setelah kategori lain ditambahkan, makro berhenti mengirim email. Berikut adalah kode sejauh ini. Tolong bantu :P Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem untuk melihat Pengingat Tugas If Item.MessageClass "IPM.Appointment" Lalu Keluar Sub End If If Item.Categories "Kirim Pesan" Kemudian Keluar Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Instiintare expirare Autorizatie/Contract Service" objMsg.Body = "Buna ziua," & vbNewLine & vbNewLine & _ "Sesuai dengan bazei noastre de date, autorizatia/contractul de service, incheiat intre compania nostra si " + Item.Subject + " urmeaza sa berakhir dalam jangka waktu 14 zile." & vbNewLine & _ "Acest lucru este in atentia departmentului nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim pentru increderea acordata." & vbNewLine & _ "Promotor Impor Ekspor SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Tidak Ada Yang Berakhir Sub
Komentar ini diminimalkan oleh moderator di situs
itu berhenti karena garis .... Jika Item.Categories <> "Kirim Email Berulang Jadwal" Kemudian Keluar Sub
ketika Anda menambahkan kategori lain itu menyebabkan sub keluar.... mungkin menggunakan if instr(1,item.categories,"Kirim Jadwal Berulang Email") =0 lalu keluar dari sub atau sesuatu seperti itu...
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL