Ana içeriğe atla

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 - Microsoft Office'te Sekmeli Düzenlemeyi ve Göz Atmayı Etkinleştirerek Çalışmayı Kolaylaştırın
Kutools for Outlook - Üstün Verimlilik için Outlook'u 100'den Fazla Gelişmiş Özellikle Güçlendirin
Bu gelişmiş özelliklerle Outlook 2021 - 2010 veya Outlook 365'inizi güçlendirin. Kapsamlı 60 günlük ücretsiz deneme sürümünün keyfini çıkarın ve e-posta deneyiminizi geliştirin!

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.


En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, great script! How can I make this so that it replies to the email instead of sending the original email as an attachment?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations