Outlook’ta orijinal e-posta mesajını içeren bir Otomatik Yanıt nasıl ayarlanır?

Genellikle, e-postalara otomatik yanıt vermek için bir kural oluşturduğumuzda “Ofis dışındayım” yanıtı orijinal mesajı içermeyebilir. Peki Outlook’ta otomatik yanıtlarınızın orijinal mesajla birlikte gönderilmesini nasıl sağlarsınız? Bu makalede, bu işlemi Outlook’ta mümkün olduğunca hızlı ve kolay şekilde gerçekleştirmenize yardımcı olacak bir VBA kodundan bahsedeceğiz.

VBA koduyla Outlook'ta orijinal mesaj içeren e-postalara Otomatik Yanıt

---

VBA koduyla Outlook'ta orijinal mesaj içeren e-postalara Otomatik Yanıt

Normal bir Outlook kuralı bu işi yapmanıza yardımcı olamaz, ancak aşağıdaki VBA koduyla bunu hızlı ve kolayca halledebilirsiniz. Lütfen şu adımları izleyin:

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

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

VBA kodu: Orijinal mesaj içeren e-postalara Otomatik Yanıt

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 

3. Ardından, kod penceresini Kaydet ve Kapat seçeneğiyle kapatın; VBA kodunun etkinleşmesi için Outlook’u yeniden başlatın veya kapatıp tekrar açın. Artık bir e-posta aldığınızda, Outlook orijinal mesajla birlikte aşağıdaki ekran görüntüsünde gösterildiği gibi bir Otomatik Yanıt gönderir: