Outlook: Yanıt gelmediğinde e-postayı otomatik olarak yeniden gönderme
Bir iş arkadaşınıza, iş ortağınıza veya başka birine acil bir yanıt almanız gereken bir e-posta gönderdiğinizde, belirli bir süre içinde yanıt gelmemişse otomatik yeniden gönderim ayarı yapabilirsiniz.
Yanıt yoksa otomatik yeniden gönderim için Hatırlatıcı ve VBA kullanma
Yanıt yoksa otomatik yeniden gönderim için Hatırlatıcı ve VBA kullanma
1. Bölüm: Belirli bir zamanda hatırlatma ayarlama
1. Yanıt gelmediğinde yeniden göndermek istediğiniz bir e-postaya (Gönderilen Öğeler klasöründen) sağ tıklayın, açılan içerik menüsünde "Takip gerekiyor" > "Hatırlatıcı Ekle" seçeneğine tıklayın.
2. Açılan "Özel" iletişim kutusunda "Hatırlatıcı" onay kutusunun işaretli olduğundan emin olun, ardından aşağıdaki açılır kutulardan yanıtın ulaşmasını istediğiniz tarih ve saati seçin veya kutulara doğrudan tarih ve saati yazabilirsiniz. "Tamam" düğmesine tıklayın.
2. Bölüm: Belirli bir süre içinde yanıt gelmediğinde e-postaları yeniden göndermek için VBA kodu ekleme
3. "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini etkinleştirin.
4. "Proje – Proje1" bölmesindeki "ThisOutlookSession" öğesine çift tıklayarak boş bir betik oluşturun ve aşağıdaki VBA kodunu boş betiğe kopyalayıp yapıştırın.
VBA: Yanıt yoksa e-postayı yeniden gönder
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 received 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 Sub5. Kodu kaydedin, ardından ana arayüze dönün, "Dosya" > "Ayarlar" seçeneklerine tıklayın ve "Outlook Ayarları" penceresinde sol bölmedeki "Güven Merkezi"ni tıklayın ve "Güven Merkezi Ayarları"nı tıklayarak "Güven Merkezi" penceresini etkinleştirin. "Makro Ayarları"na tıklayın ve sağ bölümde "Tüm makroları etkinleştir (önerilmez; potansiyel tehlikeli kodlar çalıştırılabilir)" seçeneğinin işaretli olduğundan emin olun. "Tamam" > "Tamam" butonlarına tıklayın.
6. Şimdi, hatırlatıcı ayarlanmış gönderilmiş bir e-posta, belirlenen süre geldiğinde yanıt almazsa, size bir bildirim penceresi açılacak ve e-postayı yeniden gönderip göndermeyeceğinizi soracaktır.
7. "Evet"e tıklayın, bir ileti penceresi açılacak ve önceki e-postayı ekleyecek, gövdeyi yeniden düzenleyebilir ve "Gönder"e tıklayarak e-postayı yeniden gönderebilirsiniz.
8. "Hayır"a tıklayın, hatırlatıcı silinecektir.
Not: Eğer e-posta belirlenen süreden önce yanıtlanmışsa, VBA tarafından hatırlatıcı kaldırılacaktır.
En İyi Ofis Verimlilik Araçları
Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!
Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları engelle / Yinelenen e-postaları sil / Gelişmiş Arama / Klasörleri Düzenle...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...
🌟 Arayüz Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!
🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin
Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)
Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!
- ✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
- 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
- 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint