Ana içeriğe atla

Outlook'ta yanıtlarken tüm eklerin adları nasıl kopyalanır?

Outlook'ta bir RTF e-postasını (Zengin Biçim olarak biçimlendirilmiş) yanıtlarken, tüm eklerin adlarını kopyalar ve otomatik olarak ileti gövdesine yapıştırır (aşağıdaki ekran görüntüsüne bakın). Ancak, Outlook'ta bir HTML e-postasını yanıtlarken, e-postayı yanıtlarken ekler eksiktir. Burada, bu makale, e-postaları yanıtlarken veya doğrudan alınan e-postalarda tüm eklerin adını kopyalamak için bazı yöntemler tanıtacaktır.


HTML'yi RTF'ye değiştirerek yanıtlarken tüm eklerin adlarını kopyalayın

HTML e-postayı yanıtlamadan önce RTF'ye dönüştürdüysek, Outlook'ta Giriş> Yanıtla'yı tıkladıktan sonra tüm eklerin adları yanıtlayan iletiye kopyalanacaktır.

1. Eklerinin adlarını kopyalamanız gereken e-postayı açmak için çift tıklayın ve ardından Mesaj > İşlemler > Mesajı Düzenle mesaj penceresinde. Ekran görüntüsüne bakın:

2. Tıklamaya devam edin Metin Biçimlendir > Zengin metinve ardından e-postayı kaydedip kapatın.

3. Şimdi ana görünüme dönüyorsunuz. E-postayı seçmeye devam edin ve tıklayın Ana Sayfa > cevap.

4. Şimdi tüm eklerin adları orijinal e-postadan kopyalanır ve aşağıda gösterilen ekran görüntüsü gibi yanıtlayan mesaja yapıştırılır. Lütfen yanıtlayan mesajı oluşturun ve gönderin.

VBA ile yanıtlarken tüm eklerin adlarını kopyalayın

Bu yöntem, bir e-postayı yanıtlarken tüm eklerin adlarını kopyalamak için bir VBA makrosu sunacak ve ardından adları Outlook'ta yanıtlayan e-postanın ileti gövdesine yapıştıracaktır.

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

2. Soldaki Proje Gezgini'nde, Proje 1'i genişletin, açmak için çift tıklayın. Bu OutlookOturumu penceresi (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-postayı yanıtlarken 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. tıklayın Tools > Referanslar.

4. Outlook 1 için Referanslar - Proje 2016 penceresinin açılışında, lütfen Microsoft Word 16.0 Nesne Kitaplığı Mevcut Referanslar kutusunda referans yazın ve tıklayın OK buton. Ekran görüntüsüne bakın:

not: Lütfen seçin Microsoft Word 15.0 Nesne Kitaplığı Outlook 2013 ile çalışıyorsanız referans veya Microsoft Word 14.0 Nesne Kitaplığı Outlook 2010 ile referans.

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

6. Şimdi Outlook'un ana arayüzüne dönersiniz. Cevaplayacağınız e-postayı seçin ve tıklayın Ana Sayfa > cevap or Hepsini cevapla.
not: Ek adları kopyalanmaz ve yanıt e-postasına yapıştırılmazsa, lütfen Outlook'unuzu yeniden başlatın ve tekrar yanıtlayın.

Ve şimdi tüm eklerin adı seçilen e-postadan kopyalanır ve yanıtlayan e-postaya yapıştırılır. Ekran görüntüsüne bakın:


Harika bir araçla yanıtlarken tüm ek adlarını kopyalayın

Eğer varsa Outlook için Kutools yüklü, uygulayabilirsiniz Adları Kopyala Alınan bir e-postadaki tüm ek adlarını hızlı bir şekilde kopyalayıp yanıtlayan iletisine Outlook'ta kolayca yapıştırma özelliği.

Outlook için Kutools: 100'den fazla kullanışlı araç içeren Ultimate Outlook araç seti. 60 gün boyunca ÜCRETSİZ deneyin, sınırlama yok, endişelenmeyin!   Devamı ...   Şimdi Ücretsiz Denemeye Başlayın!

1. Cevaplayacağınız e-postayı seçin ve tıklayın Kutools > Ek Araçları > Adları Kopyala.

Ardından bir iletişim kutusu çıkar ve size ek adlarının panoya kopyalandığını söyler. Tıklayın OK kapatmak için.

2. Tıklamaya devam edin Ana Sayfa > cevap seçilen e-postayı yanıtlamak için.

3. Yanıtlayan mesaj penceresinde, imleci mesaj gövdesine getirin ve Ctrl + V ek adlarını kolayca yapıştırmak için anahtarlar.

Outlook'ta tutulan tüm orijinal eklerle seçilen e-postaları kolayca yanıtlayın

Genel olarak, Outlook'ta bir e-postayı yanıtlarken orijinal ekler kaldırılır. Ama fantastik Ek ile yanıtla Outlook için Kutools özelliği, Outlook'ta yanıtlarken tüm e-posta eklerini kolayca saklayabilirsiniz.


eklerle yanıtla


İlgili yazılar:


En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations