Outlook'ta yanıt verirken tüm eklerin adlarını nasıl kopyalayabilirim?

HTML e-postasını yanıtlamadan önce RTF’ye dönüştürürsek, Outlook’ta Giriş > Yanıtla’ya tıkladıktan sonra tüm eklerin adları yanıt mesajına kopyalanır.

1. Adlarını kopyalamak istediğiniz ekleri içeren e-postayı açmak için çift tıklayın, ardından ileti penceresinde İleti > Eylemler > İletiyi Düzenle seçeneğine tıklayın. Ekran görüntüsüne bakın:

2. Devam edin ve Metin Biçimi > Zengin Metin seçeneğine tıklayın, ardından e-postayı Kaydet ve Kapat.

3. Artık ana görünüme döndünüz. E-postayı seçili tutun ve Giriş > Yanıtla seçeneğine tıklayın.

4. Artık tüm eklerin adları orijinal e-postadan kopyalandı ve aşağıdaki ekran görüntüsünde gösterildiği gibi yanıt mesajınıza yapıştırıldı. Lütfen yanıt mesajınızı oluşturun ve gönderin.

Outlook'ta tüm orijinal ekler korunarak kolayca Birden Fazla Seçili Emaile Yanıt Ver

Genellikle Outlook'ta bir e-postaya yanıt verirken orijinal ekler kaldırılır. Ancak harika Ekiyle Yanıtla özelliği sayesinde, Kutools for Outlook ile e-postalara yanıt verirken tüm ekleri kolayca koruyabilirsiniz!

Eğer Kutools for Outlook yüklüyse, gelen bir e-postadaki tüm ek adlarını hızlıca kopyalamak ve bunları Outlook’ta yanıt mesajına kolayca yapıştırmak için İsimleri Kopyala özelliğini kullanabilirsiniz.

1. Yanıtlayacağınız e-postayı seçin ve KUTOOLS PLUS > Ek Araçları > İsimleri Kopyala seçeneğine tıklayın.

Ardından, Ek Adı'nın panoya kopyalandığını bildiren bir iletişim kutusu açılır. Kapatmak için Tamam düğmesine tıklayın.

2. Seçilen e-postaya yanıt vermek için devam edin ve Giriş > Yanıtla seçeneğine tıklayın.

3. Yanıt mesajı penceresinde, imleci ileti gövdesine getirin ve Ek Adı’nı kolayca yapıştırmak için Ctrl+V tuşlarına basın.

Bu yöntem, Outlook'ta bir e-postaya yanıt verirken tüm eklerin adlarını kopyalayan ve ardından bu adları yanıt e-postasının ileti gövdesine yapan bir VBA makrosu tanıtır.

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

2. Sol taraftaki Proje Gezgini'nde 1 projesini genişletin, ThisOutlookSession penceresini açmak için çift tıklayı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'ta bir e-postaya yanıt verirken tüm eklerin adı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 > Başvurular seçeneğine tıklayın.

4. Outlook 2016 için açılan Başvurular – Proje 1 penceresinde, Kullanılabilir Başvurular kutusundaki Microsoft Word 16,0 Nesne Kitaplığı başvurusunu işaretleyin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Not: Outlook 2013 kullanıyorsanız Microsoft Word 15,0 Nesne Kitaplığı başvurusunu veya Outlook 2010 kullanıyorsanız Microsoft Word 14,0 Nesne Kitaplığı başvurusunu işaretleyin.

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

6. Artık Outlook’un ana arabirimine döndünüz. Yanıtlayacağınız e-postayı seçin ve Giriş > Yanıtla veya Tümünü Yanıtla seçeneğine tıklayın.
Not: Eğer Ek Adı yanıt e-postasına kopyalanmaz ve yapıştırılmazsa, lütfen Outlook’u yeniden başlatın ve tekrar yanıt verin.

Ve şimdi tüm eklerin adları seçilen e-postadan kopyalandı ve yanıt e-postasına yapıştırıldı. Ekran görüntüsüne bakın: