Outlook'da yanıt verirken ekleri nasıl koruyabilirsiniz?

Author: Kelly Last Modified: 2025-06-10

Microsoft Outlook'da bir e-postayı iletirken orijinal ekler olduğu gibi kalır. Ancak bir e-postaya yanıt verdiğinizde, Outlook tüm ekleri otomatik olarak kaldırır çünkü bunların sohbette gerekli olmadığını varsayar. Bu durum özellikle önemli dosyalara atıfta bulunmanız, belgeleri yeniden göndermeniz veya daha iyi bağlam için ekleri tutmanız gerektiğinde sinir bozucu ve verimsiz olabilir. Neyse ki, el ile, tek tıklamayla veya otomatik çözüm tercih etmenize bağlı olarak Outlook'da yanıt verirken eklerin dahil edilmesini sağlamanın birkaç yolu vardır:

Ekleri Elle Kopyalayarak ve Yapıştırarak Yanıtla (Temel & Sıkıcı)

Kutools for Outlook Kullanarak Tek Tıklamayla Eklerle Yanıtla 👍 (Hızlı & Kolay)

VBA Kullanarak Otomatik Olarak Eklerle Yanıtla (Teknik & Kurulum Gerektirir)

Ekleri Elle Kopyalayarak ve Yapıştırarak Yanıtla

E-postadan ekleri elle kopyalayıp yanıt mesajına yapıştırabilir ve ardından gönderebilirsiniz.

1. Outlook'u açın, yanıt vermek istediğiniz e-postayı seçin ve Okuma Bölmesi'nde önizleyin veya ayrı bir pencerede açın.

2. Herhangi bir eke tıklayın, ardından Ekler sekmesi altında Tümünü Seç > Kopyala'yı tıklayın.

the screenshot of step about replying with attachments by manually copying and pasting 1

3. Yanıt düğmesine tıklayarak bir yanıt penceresi açın.

the screenshot of step about replying with attachments by manually copying and pasting 2

4. Yanıt mesajında, ileti gövdesinde herhangi bir yere tıklayın ve Ctrl + V tuşlarına basın veya İleti sekmesinde Yapıştır'a tıklayarak kopyalanan ekleri ekleyin.

the screenshot of step about replying with attachments by manually copying and pasting 3

5. Yanıtınızı yazın, ekleri gözden geçirin ve Gönder'e tıklayın.

Sınırlamalar:

Elle ve tekrarlayıcı: Sık kullanım için uygun değil.
Zaman alıcı: Her seferinde fazladan adımlar gerektirir.
Hata yapmaya açık: Ekleri kopyalamayı ve yapıştırmayı unutabilirsiniz.

📂 Birden Fazla E-postadan Ekleri Rahatça Kaydedin

Outlook'da ekleri tek tek kaydetmekten bıktınız mı? Kutools for Outlook ile iş akışınızı hızlandırın! Güçlü Tümünü Kaydet (Ekler) özelliği, birkaç tıklamayla birden fazla e-postadan veya tüm klasörlerden ekleri kaydetmenizi sağlar. Yorucu manuel işlemlere veda edin ve gelen kutunuzu kolayca kontrol altına alın.

Kutools for Outlook'u Şimdi İndirin

Kutools for Outlook Kullanarak Tek Tıklamayla Eklerle Yanıtla 👍

Eklerle hızlı ve kolay bir şekilde yanıt vermek için Kutools for Outlook'u kullanabilirsiniz. Orijinal Ekleme ile Yanıtla özelliği, bir tıklamayla orijinal ekleri koruyarak yanıt vermenizi sağlar.

Kutools for Outlook ile en üst düzey e-posta verimliliğini açın! Sonsuza kadar tamamen ücretsiz olarak 70 güçlü özelliğe erişin. Ücretsiz Sürümü Şimdi İndirin!

Korumak istediğiniz ekleri içeren e-postayı seçin. Ardından Kutools > Orijinal Ekleme ile Yanıtla veya Orijinal Ekleme ile Herkese Yanıtla'yı tıklayın.

the screenshot of the Reply with Original Attachment or Reply All with Original Attachment button

İşte bu kadar! Yanıt mesajı, orijinal e-postadaki tüm ekleri otomatik olarak içerecektir. Mesajınızı yazın ve Gönder'e tıklayın.

the screenshot of keeping attchments in replying email using Kutools for Outlook

Neden Kutools for Outlook Kullanılmalı?

✅ Zaman Kazandırır: Ekleri elle kopyalayıp yapıştırmaya gerek yoktur.
✅ Tek Tıklamayla Çözüm: Anında eklerle yanıt verir.
✅ Kullanıcı Dostu: Teknik bilgi gerektirmeden kullanımı kolaydır.

Not: Kutools for Outlook'un Orijinal Ekleme ile Yanıtla özelliğini kullanmak için önce Kutools for Outlook'u indirip yüklemeniz gerekir.

VBA Kullanarak Otomatik Olarak Eklerle Yanıtla

VBA betiklemeye aşina olan kullanıcılar için bu yöntem, eklerle yanıt vermeyi otomatikleştirir. Ancak, Outlook'ta makroları etkinleştirmeyi ve betiği manuel olarak eklemeyi gerektirir.

💡 Önemli Not: VBA makrolarını çalıştırmadan önce Outlook'ta makroları etkinleştirmeniz gerekir.

Adım 1: VBA düzenleyiciyi açın

1. Yanıt vermek istediğiniz e-posta mesajını seçin.

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

3. Sol panelde Proje1 > Microsoft Outlook Nesnelerini genişletin. ThisOutlookSession öğesine çift tıklayarak açın.

the screenshot of the ThisOutlookSession option

Adım 2: VBA kodunu ekleyin

Aşağıdaki VBA kodunu ThisOutlookSession penceresine kopyalayıp yapıştırın:

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub

Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub

Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.CurrentItem
    End Select
End Function

Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Adım 3: VBA makrosunu çalıştırın

1. Makroyu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

2. Makrolar iletişim kutusunda, herkese yanıt vermek için ThisOutlookSession.RunReplyAllWithAttachments'i veya bir alıcıya yanıt vermek için ThisOutlookSession.RunReplyWithAttachments'i seçin. Çalıştır'a tıklayın.

the screenshot of the Macros dialog box

Sonuç

Yanıt penceresi tüm orijinal eklerle açılacaktır. Mesajınızı yazın ve Gönder'e tıklayın.

VBA Yönteminin Artıları ve Eksileri:

✅ Otomatik: Ekleri elle kopyalayıp yapıştırmaya gerek yoktur.
❌ VBA Bilgisi Gerektirir : Başlangıç seviyesindeki kullanıcılar için uygun olmayabilir.
❌ Makrolar varsayılan olarak devre dışıdır : Bunları manuel olarak etkinleştirmeniz gerekir.

Sonuç: Hangi Yöntemi Seçmelisiniz?

Hangi yöntemin size en uygun olduğunu seçmenize yardımcı olması için üç yöntemin karşılaştırmasını burada bulabilirsiniz:

Yöntem	En İyi İçin	Kullanım Kolaylığı	Verimlilik
Elle Kopyala-Yapıştır	Ara sıra kullanım	⭐⭐⭐⭐	⭐⭐
Kutools for Outlook	Her gün kullanımı, teknik olmayan kullanıcılar	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐
VBA Makrosu	Otomasyon severler, ileri düzey kullanıcılar	⭐⭐⭐	⭐⭐⭐⭐

Çoğu kullanıcı için Kutools for Outlook, Outlook'da eklerle yanıt vermenin en hızlı ve kolay yoludur. Artık Outlook'da eklerle yanıt verebilirsiniz iş akışınıza en uygun yöntemi kullanabilirsiniz! 🚀