Alınan/Gönderilen E-postaları Outlook VBA ile Otomatik Olarak “Düzenle” Modunda Açma

Outlook'ta alınan veya gönderilen bir e-postanın içeriğini değiştirmek için, e-postayı açmanız ve ardından "Düzenleme" moduna geçirmeniz gerekir. Bu tür e-postalarda sık sık değişiklik yapmanız gerekiyorsa, bunları otomatik olarak "Düzenleme" modunda açmak isteyebilirsiniz. Bu yazı size bunu nasıl yapacağınızı gösterecektir.

Bazen Outlook'ta alınan veya gönderilen bir e-postanın içeriğini değiştirmeniz gerekebilir. Bu durumda, önceki yazıda tanıtıldığı gibi – “Outlook'ta Alınan E-postaların Konusunu ve Gövdesini Değiştirme", e-postayı açmalı ve "Eylemler" düğmesini tıklatmalı ve e-postayı "Düzenle" moduna dönüştürmek için "Mesajı Düzenle"yi seçmelisiniz. Ancak yine de biraz zahmetli olduğunu düşünebilirsiniz. Bu nedenle, Outlook'un alınan/gönderilen e-postaları her zaman "Düzenle" modunda açmasını istersiniz. Bundan sonra, bu işlevi gerçekleştirmek için VBA kodunun nasıl kullanılacağını tanıtacağız. Şimdi ayrıntılı adımlar için okumaya devam edin.

Alınan/Gönderilen E-postaları “Düzenleme” Modunda Otomatik Olarak Açın

1. En başta, “ referanslaOutlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?", Outlook VBA düzenleyicisine erişin.
2. Ardından, aşağıdaki VBA kodunu kopyalayıp “ThisOutlookSession” projesine yapıştırın.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Ardından, “Application_Startup” makrosuna tıklayın ve “F5” tuşuna basın.
4. Şu anda VBA editörünü kapatın.
5. Son olarak, bir deneyebilirsiniz. Açmak için alınan veya gönderilen bir postaya çift tıklayın. Kesinlikle “Düzenle” modunda olacaktır.

Outlook Veri Kaybına Karşı Bağışıklık

PST dosyanıza hiç erişilemez hale geldi mi? Gerçekte, Outlook PST dosyası kolayca bozulabilir. Örneğin, e-posta kaynaklı virüsler kolayca Outlook'un çökmesine ve dolayısıyla Outlook verilerinin bozulmasına neden olabilir. Böyle durumlarda aklınıza gelen ilk çözüm şu olabilir: gelen kutusu onarım aracı. Ancak genel olarak konuşursak, bu tür ciddi durumlarla başa çıkmaktan acizdir. Bu nedenle, PST verilerini bir mantar gibi yedeklerden geri yükleyebilmeniz için, PST dosyalarını düzenli aralıklarla yedeklemeniz her zaman önerilir. Aksi takdirde, özel bir harici araca geri dönmeniz gerekir. DataNumen Outlook Repair.

Yazar Tanıtımı:

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