Outlook: Yanıt gelmediğinde e-postayı otomatik olarak yeniden gönderme

Author: Sun Last Modified: 2025-06-10

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

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 Sub

5. 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.