Outlook'te meşgulken alınan mesajlara nasıl otomatik yanıt verilir?

Author: Sun Last Modified: 2025-08-07

Bazen, belirli bir süre boyunca meşgulken Outlook'ta alınan mesajlara otomatik olarak yanıt vermek istersiniz. Ancak bu işi yapabilecek yerleşik bir fonksiyon bulunmamaktadır. Neyse ki, burada bu sorunu çözmek için bir VBA kodu var.

VBA kodu ile meşgulken otomatik yanıt

VBA kodu ile meşgulken otomatik yanıt

İşte size bir VBA kodu: Outlook takviminizde randevular varsa otomatik yanıt verecektir, eğer takvimde hiçbir şey yoksa otomatik yanıtlamayı durdurur.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Project1 bölmesinden ThisOutlookSession üzerine çift tıklayın, aşağıdaki kodu kopyalayıp betiğe yapıştırın.

VBA: Takvimde meşgulken otomatik yanıt

Public WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
    Set xMailItem = Item
    Set xReplyMailItem = xMailItem.Reply
    xReplyHTMLBody = xReplyMailItem.HTMLBody
    Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
    xAppointments.Sort "[Start]"
    xAppointments.IncludeRecurrences = True
    xDateFormat = Format(Now, "ddddd h:nn AMPM")
    xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
    Set xRestrictAppointments = xAppointments.Restrict(xFilter)
    If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
    For Each xAppointment In xRestrictAppointments
        If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
            xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
                                      xReplyHTMLBody
            xReplyMailItem.Send
        End If
    Next
End If
End Sub

3. Bu kodu kaydedin ve Outlook'u yeniden başlatın. Artık, e-postalar randevularınızın zaman aralığında alınıyorsa, otomatik bir yanıt gönderilecektir.

Notlar:

(1) Kodda, bu betikteki yanıt içeriğini "Üzgünüm, şu anda size yanıt veremiyorum. Daha sonra size yanıtlayacağım." & _ şeklinde değiştirebilirsiniz.

(2) Bu VBA makrosu, varsayılan veri dosyasının Gelen Kutusu'nda alınan e-postaları otomatik olarak yanıtlayabilir.

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler: