Outlook'da yanıt verirken tüm eklerin adlarını nasıl kopyalayabiliriz?

Eğer yanıt vermeden önce HTML e-postasını RTF'ye dönüştürmüşsek, Outlook'ta Ana Sayfa > Yanıt'a tıkladıktan sonra tüm eklerin adları yanıtlanan iletiye kopyalanacaktır.

1Eklerinin adlarını kopyalamak istediğiniz e-postayı çift tıklayarak açın ve ardından İleti > Eylemler > İletiyi Düzenle ileti penceresinde tıklayın. Ekran görüntüsüne bakın:

2. Devam edin ve Biçim Metni > Zengin Metinseçeneğine tıklayın ve ardından e-postayı kaydedip kapatın.

3. Şimdi ana görünüme geri döndünüz. E-postayı seçmeye devam edin ve Ana Sayfa > Yanıt'a tıklayın.

4. Şimdi tüm eklerin adları orijinal e-postadan kopyalanmış ve aşağıdaki ekran görüntüsünde gösterildiği gibi yanıtlanan iletiye yapıştırılmıştır. Lütfen yanıtlanan iletiyi düzenleyin ve gönderin.

Outlook'da tüm orijinal ekler korunarak seçili e-postaları kolayca yanıtlayın

Genel olarak, Outlook'da bir e-postaya yanıt verirken orijinal ekler kaldırılır. Ancak, harika olan Ek ile Yanıtla Kutools for Outlook özelliği ile, Outlook'da bir e-postaya yanıt verirken tüm ekleri kolayca koruyabilirsiniz.

Eğer Kutools for Outlook yüklüyse, Ek Adlarını Kopyala özelliğini uygulayarak alınan bir e-postadan tüm ek adlarını hızlıca kopyalayabilir ve ardından Outlook'da yanıtlanan iletiye kolayca yapıştırabilirsiniz.

1. Yanıt vereceğiniz e-postayı seçin ve Kutools Plus > Ek Araçları > Ek Adlarını Kopyala.

Ardından bir iletişim kutusu açılır ve size ek adlarının panoya kopyalandığını söyler. Tamam'a tıklayarak kapatın.

2. Devam edin ve yanıtlayacağınız seçili e-postayı yanıtlayabilmek için Ana Sayfa > Yanıt'a tıklayın.

3. Yanıtlanan ileti penceresinde, imleci ileti gövdesine yerleştirin ve Ctrl + V tuşlarına basarak ek adlarını kolayca yapıştırın.

Bu yöntem, bir e-postaya yanıt verirken tüm eklerin adlarını kopyalamak için bir VBA makrosunu tanıtmaktadır ve ardından bu adları Outlook'daki yanıtlanan e-postanın ileti gövdesine yapıştırmaktadır.

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

2. Sol Proje Gezgini'nde, Proje 1'i genişletin, çift tıklayarak ThisOutlookSession penceresini açın (aşağıdaki ekran görüntüsüne bakın) ve ardından aşağıdaki kodu pencereye yapıştırın.

VBA: Outlook'da bir e-postaya yanıt verirken tüm eklerin adlarını kopyalayın

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Araçlar > Referanslar'a tıklayın.

4. Outlook 2016 için açılan Referanslar – Proje 1 penceresinde lütfen Microsoft Word 16.0 Nesne Kitaplığı referansını Mevcut Referanslar kutusunda işaretleyin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Not: Lütfen seçin Microsoft Word 15.0 Nesne Kitaplığı referansını eğer Outlook 2013 ile çalışıyorsanız, ya da Microsoft Word 14.0 Nesne Kitaplığı referansını Outlook 2010 ile çalışıyorsanız.

5. VBA'yı kaydedin ve Microsoft Visual Basic for Applications penceresini kapatın.

6. Şimdi Outlook'un ana arayüzüne geri döndünüz. Yanıt vereceğiniz e-postayı seçin ve Ana Sayfa > Yanıt ya da Hepsine Yanıtla.
Not: Eğer ek adları yanıtlanan e-postaya kopyalanmamış ve yapıştırılmamışsa, lütfen Outlook'u yeniden başlatın ve tekrar yanıtlayın.

Ve şimdi tüm eklerin adları seçilen e-postadan kopyalanmış ve yanıtlanan e-postaya yapıştırılmıştır. Ekran görüntüsüne bakın: