Outlook'ta Yanıtlarken Orijinal E-posta Eklerini Saklamanın 6 Yolu

Birçok kullanıcı, Outlook'u bir e-postayı yanıtlarken orijinal e-posta eklerini koruyacak şekilde yapılandırmayı umar. Bu makale, otomatik olarak gerçekleştirmek için VBA'yı kullanan akıllı bir yolun yanı sıra 5 geçici çözümü ortaya çıkaracaktır.

Çok sayıda kullanıcının Outlook'un bir e-postayı yanıtlarken orijinal ekleri saklamak için yerel bir özelliği olmadığından şikayet ettiğini duydum. Bu nedenle, burada size 6 yöntemi paylaşacağız; bunlardan biri, Outlook'un orijinal ekleri yanıtlayan e-postaya otomatik olarak eklemesini sağlamak için VBA kullandığı için oldukça kullanışlıdır. Şimdi onları ayrıntılı olarak almak için okumaya devam edin.

1. Orijinal E-posta Ekli Olarak Yanıtlayın

Outlook, bir e-postayı yanıtlarken orijinal e-posta eklerini saklamak için bir özellik sağlamasa da, kullanıcıların orijinal e-postayı ekte tutmasına izin verir. Bu nedenle, sizin için isteğe bağlı bir geçici çözümdür. Yanıt ayarlarını değiştirmek için “Dosya” > “Seçenekler” > “Posta” > “Yanıtlar ve ilet” bölümüne gidebilirsiniz. Daha fazla detay için bir önceki makaleme bakmanız önerilir – “Outlook'ta Orijinal Eklerle Yanıt Vermenin 5 Adımı”. Ancak, hala yalnızca orijinal takıntılarınızı korumayı umuyorsanız, diğer yolları öğrenmek için ilerleyin.

2. Ekleri Manuel Olarak Sürükle ve Bırak

1. Öncelikle, kaynak e-postayı çift tıklayarak ayrı bir pencerede açın.
2. Ardından, yanıtlayan e-postayı getirecek olan "Yanıtla" düğmesini tıklayın.
3. Ardından, iki Mesaj penceresini de aynı ekranda görene kadar küçültmelisiniz.
4. Bundan sonra, orijinal e-postadaki tüm ekleri seçin.
5. Son olarak, onları yanıtlayan e-postadaki "Ekli" satırına sürükleyip bırakın.

3. Ekleri Manuel Olarak Kopyala ve Yapıştır

1. İlk olarak, kaynak e-postayı açtıktan sonra tüm ekleri seçin.
2. Ardından, "Ekler" sekmesi altındaki "Kopyala" düğmesini tıklayın.
3. Bundan sonra, bir cevap postası açmak için “Mesaj” sekmesi altındaki “Cevapla” düğmesine tıklayın.
4. Son olarak, yanıtlanan e-postada, "Eklendi" satırına tıklayın ve daha önce kopyalanan ekleri yapıştırmak için "Ctrl + V" düğmesine basın.

4. E-postayı Yönlendirin ve Alıcıyı Doldurun

1. Öncelikle, böyle bir e-postayı seçin ve ardından şeritteki "İlet" düğmesini tıklayın.
2. Yeni açılan Mesaj penceresinde orijinal ekler korunur. Şimdi orijinal e-postanın göndericisine “Kime” alanını doldurmanız gerekiyor.
3. İsteğe bağlı olarak konuyu ihtiyaçlarınıza göre değiştirebilirsiniz.

5. Bu E-postayı Yeniden Gönderin ve Alıcıları Değiştirin

1. Başlamak için kaynak e-postayı açın.
2. Ardından “Taşı” grubundaki “Eylemler” düğmesine tıklayın.
3. Ardından açılır listeden “Bu Mesajı Tekrar Gönder”i seçin.
4. Belki de asıl gönderenin siz olmadığınızı belirten bir uyarı alırsınız. Sadece görmezden gelin ve “Evet” e basın.
5. Sonraki yeni e-postada, "Kime" alanını orijinal e-postayı gönderen olarak değiştirmelisiniz.
6. Ayrıca, e-posta hesabını kullanarak göndermeyi kendi hesabınızla değiştirmeyi unutmayın.

6. Orijinal Ekleri VBA Yoluyla Otomatik Olarak Ekleyin

Dürüst olmak gerekirse, yukarıda belirtilen tüm yaklaşımlar geçici çözümlerdir. Outlook'un yanıt verirken orijinal ekleri otomatik olarak tutabileceğini umuyorsanız, bu yolu kullanabilirsiniz.

1. Ana Outlook penceresinde, “Alt + F11” tuşlarına basın.
2. Ardından “Microsoft Visual Basic for Applications” penceresinde aşağıdaki VBA kodunu “ThisOutlookSession” projesine kopyalayın.

Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

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

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

3. Daha sonra bu makroyu imzalayın ve imzalanmış makrolara izin vermek için Outlook makro ayarlarınızı değiştirin.
4. Ardından, bu VBA projesini etkinleştirmek için Outlook uygulamanızı yeniden başlatın.
5. Bundan sonra, her "Cevapla" düğmesine tıkladığınızda. Yanıtlayan e-posta, orijinal ekleriyle hemen görüntülenecektir.

Üstün Bir Onarım Aracına Başvurun

Outlook, sayısız özelliği nedeniyle diğer e-posta istemcilerini omuzladı. Ancak yine de yolsuzluğa eğilimlidir. Bu nedenle, sağlığına daha fazla dikkat etmelisiniz. Genel olarak, küçük sorunlarla karşılaştığınızda yerleşik düzeltme yardımcı programına geri dönebilirsiniz. Yine de, ciddi sorunlar yaşarsanız, çok daha yetkin bir araca dönseniz iyi olur. DataNumen Outlook Repair. Bu olabilir Outlook'u düzelt bir anda dosya.

Yazar Tanıtımı:

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