Outlook: Cara mengirim ulang email secara otomatis jika tidak ada tanggapan

Saat Anda mengirim email ke kolega atau mitra kerja sama atau seseorang dan membutuhkan respons segera, Anda dapat mengatur pengaturan kirim ulang email otomatis jika respons belum tiba sebelum waktu yang ditentukan.

Menggunakan Pengingat dan VBA untuk mengatur pengiriman ulang otomatis jika tidak ada tanggapan

Tab Office - Aktifkan Pengeditan dan Penjelajahan dengan Tab di Microsoft Office, Membuat Pekerjaan Menjadi Mudah

Read More ...Unduh ...

Kutools for Outlook - Tingkatkan Outlook dengan 100+ Fitur Lanjutan untuk Efisiensi Unggul

Otomatiskan pengiriman email dengan CC / BCC Otomatis, Maju Otomatis berdasarkan aturan; mengirim Balas otomatis (Di Luar Kantor) tanpa memerlukan server pertukaran...
Dapatkan pengingat seperti Peringatan BCC saat membalas semua saat Anda berada di daftar BCC, dan Ingatkan Saat Lampiran Hilang untuk lampiran yang terlupakan...
Tingkatkan efisiensi email dengan Balas (Semua) Dengan Lampiran, Tambahkan Ucapan atau Tanggal & Waktu secara Otomatis ke Tanda Tangan atau Subjek, Balas Beberapa Email...
Sederhanakan pengiriman email dengan Ingat Email, Alat Lampiran (Kompres Semua, Simpan Otomatis Semua...), Hapus Duplikat, dan Laporan Cepat...

Tingkatkan Outlook 2021 - 2010 atau Outlook 365 Anda dengan fitur-fitur canggih ini. Nikmati uji coba gratis 60 hari yang komprehensif dan tingkatkan pengalaman email Anda!

Read More ...Unduh ...

Menggunakan Pengingat dan VBA untuk mengatur pengiriman ulang otomatis jika tidak ada tanggapan

Bagian 1: atur pengingat untuk mengingatkan dalam waktu yang ditentukan

1. Klik kanan pada email (dari folder Item Terkirim) yang ingin Anda kirim ulang jika tidak ada tanggapan, di menu konteks yang muncul, klik Mengikuti > Tambahkan Pengingat.

doc kirim ulang jika tidak ada tanggapan 1

2. Dalam bermunculan Kustom dialog, pertahankan Reminder kotak centang dicentang, lalu di kotak drop-down di bawah ini, pilih tanggal dan waktu yang Anda inginkan tanggapannya tiba sebelumnya, Anda juga dapat langsung mengetikkan tanggal dan waktu di dalam kotak. Klik OK.

doc kirim ulang jika tidak ada tanggapan 1

Bagian 2: Masukkan VBA untuk mengirim ulang email jika tidak ada tanggapan dalam waktu yang ditentukan

3. tekan lain + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

4. Klik dua kali Sesi Pandangan ini dalam Proyek – Proyek1 panel untuk membuat skrip kosong, dan salin dan tempel kode VBA di bawah ini ke dalam skrip kosong.

VBA: Kirim ulang email jika tidak ada tanggapan

Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
  Dim xInboxFld As Folder
  Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
  Set GInboxItems = xInboxFld.Items
End Sub

'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
  Dim xSentItems As Outlook.Items
  Dim xMail As MailItem
  Dim i As Long
  Dim xSubject As String
  Dim xItemSubject As String
  Dim xSendTime As String
  On Error Resume Next
  Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
  If Item.Class <> olMail Then Exit Sub
  For i = xSentItems.Count To 1 Step -1
    If xSentItems.Item(i).Class = olMail Then
      Set xMail = xSentItems.Item(i)
      xSubject = LCase(xMail.Subject)
      xSendTime = xMail.SentOn
      xItemSubject = LCase(Item.Subject)
      If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
        If Item.SentOn > xSendTime Then
           With xMail
             .ClearTaskFlag
             .ReminderSet = False
             .Save
           End With
        End If
      End If
    End If
  Next i
End Sub

'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
  Dim xPrompt As String
  Dim xResponse As Integer
  Dim xFollowUpMail As Outlook.MailItem
  Dim xRcp As Recipient
  On Error Resume Next
  'Resend
  If (Item.Class <> olMail) Then Exit Sub
  xPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
  xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
  If xResponse = vbNo Then Exit Sub
  Set xFollowUpMail = Application.CreateItem(olMailItem)
  With xFollowUpMail
    For Each xRcp In Item.Recipients
      .Recipients.Add (xRcp.Address)
    Next
    .Recipients.ResolveAll
    .Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
    .Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
    .Attachments.Add Item
    .Display
  End With
End Sub

5. Simpan kode, lalu kembali ke antarmuka utama, klik File > Opsi dan die Opsi Outlook window, klik Trust Center di panel kiri, dan klik Pengaturan Pusat Kepercayaan untuk mengaktifkan Trust Center jendela. Klik Pengaturan Makro dan pastikan bahwa file Aktifkan semua makro (tidak disarankan; kode yang berpotensi berbahaya dapat berjalan) opsi dipilih di bagian kanan. Klik OK > OK.

doc kirim ulang jika tidak ada tanggapan 1

6. Sekarang jika email terkirim yang telah disetel dengan pengingat tidak menerima respons ketika waktu yang ditentukan tiba, dialog popping akan muncul untuk mengingatkan Anda apakah akan mengirim ulang email untuk membuat notifikasi.

doc kirim ulang jika tidak ada tanggapan 1

7. klik Yes, sebuah jendela pesan muncul dan melampirkan email sebelumnya, dan Anda dapat mengedit kembali isi dan mengklik Kirim untuk mengirim ulang email..

doc kirim ulang jika tidak ada tanggapan 1