Outlook’ta meşgulken gelen mesajlara nasıl otomatik yanıt verilir?

Bazen, belirli bir dönemde Outlook’ta meşgulken gelen mesajlara otomatik yanıt vermek isteyebilirsiniz. Ne yazık ki bu işlevi yerine getirecek yerleşik bir özellik yoktur; ancak size tam da bu sorunu çözebilecek bir VBA kodu sunuyorum.

Otomatik Yanıt meşgulken bir VBA koduyla

---

Otomatik Yanıt meşgulken bir VBA koduyla

İşte size bir VBA kodu: Outlook takviminizde toplantılar varsa Otomatik Yanıt’ı etkinleştirir; takviminizde hiçbir şey yoksa ise otomatik yanıtı devre dışı bırakır.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. ThisOutlookSessionöğesine sol bölmeden çift tıklayın ve aşağıdaki kodu betiğe kopyalayıp yapıştırın.Project1

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. Bundan sonra, e-postalarınız randevularınızın Zaman Aralığı süresince alındığında Otomatik Yanıt gönderilecektir.

İpuçları:

(1) Kodda, yanıt metnini aşağıdaki betikte ihtiyaçlarınıza göre özelleştirebilirsiniz:"Şu anda size yanıt veremiyorum, üzgünüm. Daha sonra size dönüş yapacağım." & _

(2) Bu VBA makrosu, varsayılan veri dosyasının Gelen Kutusu’ndaki tüm alınan e-postalara otomatik olarak yanıt verebilir.