Outlook'ta orijinal e-posta mesajıyla nasıl otomatik yanıt verilir?

Author: Xiaoyang Last Modified: 2025-06-10

Normalde, ofis dışında otomatik yanıt vermek için bir kural oluşturduğumuzda, e-postanın gövdesindeki orijinal mesaj dahil edilmez. Outlook'ta orijinal mesajla birlikte e-postaları nasıl otomatik olarak yanıtlayabilirsiniz? Bu makalede, size bu işi Outlook'ta mümkün olduğunca hızlı bir şekilde tamamlamanıza yardımcı olacak bir VBA kodundan bahsedeceğim.

VBA kodu ile Outlook'ta orijinal mesaj içeren otomatik yanıt e-postaları

VBA kodu ile Outlook'ta orijinal mesaj içeren otomatik yanıt e-postaları

Normal Outlook kuralı bu işi halletmenize yardımcı olamaz, ancak aşağıdaki VBA kodu ile bunu hızlı ve kolay bir şekilde tamamlayabilirsiniz. Lütfen şu adımları izleyin:

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

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın, modu açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Orijinal mesajla birlikte otomatik yanıt e-postaları:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub

the screenshot of step 1 about using vba to auto reply with original email message in Outlook

3. Ardından kod penceresini kaydedip kapatın, Outlook'u kapatın veya yeniden başlatın, böylece VBA kodu etkinleştirilsin. Şimdi, e-posta aldığınızda, Outlook aşağıdaki ekran görüntüsünde gösterildiği gibi orijinal mesajla birlikte otomatik yanıt gönderilecektir: