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

Outlook: Yanıt yoksa e-posta nasıl otomatik olarak yeniden gönderilir?

İş arkadaşınıza veya işbirlikçi ortağınıza veya birine bir e-posta gönderdiğinizde ve acilen bir cevaba ihtiyacınız olduğunda, yanıt belirli bir süreden önce ulaşmadıysa bir otomatik yeniden e-posta ayarı ayarlayabilirsiniz.

Yanıt yoksa otomatik yeniden göndermeyi ayarlamak için Hatırlatıcı ve VBA'yı kullanma

Office Sekmesi - Office'te Sekmeli Düzenleme ve Taramayı Etkinleştirin ve Çalışmayı Çok Daha Kolay Hale Getirin ...
Kutools for Outlook - Microsoft Outlook'a 100 Güçlü Gelişmiş Özellik Getiriyor
  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Kurallara göre Birden Fazla E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - posta adresiniz BCC listesindeyse tümünü yanıtlamaya çalıştığınızda mesajı gösterin; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Tüm Eklerle Yanıtla (Hepsi) posta görüşmesinde; Birçok E-postayı aynı anda yanıtlayın; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Otomatik Tarih ve Saat Ekle ...
  • Ek Araçları: Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Otomatik Kaydet ... Hızlı rapor, Seçilen Postaları Say, Yinelenen Postaları ve Kişileri Kaldır ...
  • 100'den fazla gelişmiş özellik problemlerinin çoğunu çöz Outlook 2010-2019 ve 365'te. Tam özellikleri 60 günlük ücretsiz deneme.

Yanıt yoksa otomatik yeniden göndermeyi ayarlamak için Hatırlatıcı ve VBA'yı kullanma

 

Bölüm 1: belirli bir zamanda hatırlatmak için bir hatırlatıcı ayarlayın

1. Yanıt gelmezse yeniden göndermek istediğiniz bir e-postaya (Gönderilmiş Öğeler klasöründen) sağ tıklayın, açılan içerik menüsünde Takip etmek > Hatırlatıcı Ekle.

yanıt yoksa doc yeniden gönder 1

2. patlamada görenek diyalog, tut Hatırlatma onay kutusunu işaretleyin, ardından aşağıdaki açılır kutularda, yanıtın daha önce gelmesini istediğiniz bir tarih ve saati seçin, ayrıca tarih ve saati doğrudan kutulara yazabilirsiniz. Tıklamak OK.

yanıt yoksa doc yeniden gönder 1 yanıt yoksa doc yeniden gönder 1

Bölüm 2: Belirtilen sürede yanıt gelmezse e-postaları yeniden göndermek için bir VBA ekleyin

3. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

4. Çift tıklama Bu OutlookOturumu içinde Proje – Proje1 boş bir komut dosyası oluşturmak için bölmeyi açın ve aşağıdaki VBA kodunu kopyalayıp boş komut dosyasına 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 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. Kodu kaydedin, ardından ana arayüze dönün, fileto > Opsiyonlar ve içindee Outlook Seçenekleri Pencere, tıklayın Güven Merkezi sol bölmede ve tıklayın Güven Merkezi Ayarları etkinleştirmek için Güven Merkezi penceresi. Click Makro Ayarları ve emin olun Tüm makroları etkinleştirin (önerilmez; potansiyel olarak tehlikeli kod çalışabilir) seçeneği sağ bölümde seçilidir. Tıklamak OK > OK.

yanıt yoksa doc yeniden gönder 1

yanıt yoksa doc yeniden gönder 1

6. Şimdi, bir hatırlatıcı ile ayarlanan gönderilen e-posta, belirtilen süre geldiğinde yanıt almazsa, bildirim yapmak için bir e-postayı yeniden gönderip göndermeyeceğinizi size hatırlatan bir iletişim kutusu açılır.

yanıt yoksa doc yeniden gönder 1

7. tık Evet, bir mesaj penceresi açılır ve önceki e-postayı ekler ve gövdeyi yeniden düzenleyebilir ve Gönder e-postayı tekrar göndermek için..

yanıt yoksa doc yeniden gönder 1

8. tık Yok hayır, hatırlatıcı silinecek.

yanıt yoksa doc yeniden gönder 1

not: E-posta belirtilen süreden önce yanıtlandıysa, hatırlatıcı VBA tarafından kaldırılacaktır.


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0  Karakterler
Önerilen Konumlar