Orijinal E-posta ve Önceden Tanımlanmış Bir Metinle Outlook VBA Aracılığıyla Otomatik Yanıtlama

Otomatik yanıt için Outlook kuralını kullanıyorsanız, otomatik yanıtın orijinal iletiyi gövdeye ekleyemediğini keşfedeceksiniz. Bu makale, orijinal e-postayı ve önceden tanımlanmış metni Outlook VBA aracılığıyla otomatik yanıtın gövdesine ekleyebilen kolay bir yöntemi tanıtacaktır.

Outlook'ta Exchange hesapları, kullanıcıların aşağıdaki ekran görüntüsü gibi "Dosya" menüsündeki "Bilgi" sekmesi altındaki "Otomatik Yanıtlar" düğmesi aracılığıyla doğrudan otomatik yanıtlar ayarlamasına izin verir:

Ancak İnternet E-posta hesabını kullanıyorsanız, IMAP veya POP3 fark etmeksizin, “Otomatik Yanıtlar” düğmesi yoktur. Otomatik yanıtı etkinleştirmenin tek yolu, aşağıdaki resimde gösterilen bir otomatik yanıt kuralı oluşturmaktır:

Ancak, Outlook kuralıyla oluşturulan bu tür otomatik yanıtlar, orijinal mesajı otomatik olarak içermez. Gerçekte, çoğu kişi otomatik yanıtın gövdesine orijinal e-postayı eklemek ister. Bu gibi durumlarda, otomatik yanıt kuralı bunu kesin olarak gerçekleştiremez. Bu nedenle, Outlook VBA kodlarından yararlanmalıyız. Eğer ilgileniyorsanız, ayrıntılı adımlar ve VBA kodları için okumaya devam edin.

Orijinal E-posta ve Önceden Tanımlanmış Metin ile Otomatik Yanıt

1. Öncelikle “Geliştirici” sekmesine dönüp “Visual Basic” butonuna tıklamalısınız.
2. Daha sonra açılan yeni “Microsoft Visual Basic for Applications” penceresinde sol tarafta yer alan “ThisOutlookSession” projesine çift tıklamanız gerekmektedir.
3. Bundan sonra “ThisOutlookSession” projesi açılacaktır. Şimdi aşağıdaki VBA kodlarını kopyalayıp içine yapıştırmalısınız.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

4. Ardından, bu kodu her zamanki gibi imzalamalı ve makro ayarlarını yalnızca dijital olarak imzalanmış makrolara izin verecek şekilde değiştirmeye devam etmelisiniz.
5. Son olarak, yukarıdaki adımları tamamladıktan sonra, Outlook otomatik olarak gövdedeki orijinal mesaj bilgilerini içeren bir yanıt gönderecektir. Aşağıdaki görüntü gibi görünecektir:

Not: Kuralı kullanan otomatik yanıt veya VBA kodlarını kullanan otomatik yanıt ne olursa olsun, her ikisi de yalnızca Outlook çalışırken etki yapabilir.

Adres Outlook Veri Hataları

Şüphesiz, Outlook hatalara karşı bağışık olamaz. Bu nedenle, normal Outlook kullanıcılarının bunları ele almak için bazı püf noktaları edinmesi çok önemlidir. Açıkçası, başa çıkmanın en iyi yolu Outlook veri hasarı düzenli bir yedekleme yapıyor. Etkili bir yedeğiniz olduğu sürece, Outlook çökse bile içiniz rahat eder. Tabii ki, sigorta dışında, güçlü bir onarım aletini de elinizin altında bulundursanız iyi olur.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL mdf dosyası bozulmasını onarın ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com