Outlook'ta e-postanın eklerini bir klasöre nasıl yeniden adlandırıp kaydederim?
Outlook’ta genellikle ekli mesajlar alır ve aşağıdaki ekran görüntüsünde gösterildiği gibi, bu ekleri yeniden adlandırıp bir klasöre kaydetmeyi dener misiniz? Elbette, ekleri tek tek bir klasöre kaydedip yeniden adlandırabilirsiniz; ancak aslında hepsini aynı isimle hızlıca yeniden adlandıran ve tek seferde bir klasöre kaydeden bir VBA kodum var.
Ekleri aynı isimle bir klasöre yeniden adlandır ve kaydet
Ekleri bir klasöre Kutools for Outlook ile yeniden adlandır ve kaydet
Ekleri aynı isimle bir klasöre yeniden adlandır ve kaydet
1. Eklerini kaydetmek ve aynı isme yeniden adlandırmak istediğiniz iletiyi seçin.
2. "Alt" + "F11" tuşlarına basın, ardından "Project1" bölmesinde sağ tarafta yeni bir boş betik oluşturmak için "ThisOutlookSession" üzerine çift tıklayıp kodu buraya kopyalayıp yapıştırın.
VBA: Ekleri yeniden adlandır ve kaydet
Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object 'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xAttachment.SaveAsFile xFilePath
Set xFile = xFSO.GetFile(xFilePath)
xCount = 1
Saved = False
xExt = "." & xFSO.GetExtensionName(xFilePath)
xTmpName = xNewName
xNewName = xTmpName & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Else
xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
While Saved = False
xNewName = xTmpName & xCount & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Saved = True
Else
xCount = xCount + 1
End If
Wend
End If
Next
Next
Set xFSO = Nothing
End Sub
3. "Araçlar" > "Referanslar" seçeneğine tıklayıp açılan iletişim kutusundan "Microsoft Script Runtime" onay kutusunu işaretleyin.
 |  |  |
4. "Tamam" düğmesine tıklayın ve ardından kodu çalıştırmak için "F5" tuşuna basın. Ekleri yerleştirmek üzere bir klasör seçmeniz veya oluşturmanız için "Klasör Seç" iletişim kutusu açılacaktır.
5. Tamam düğmesine tıklayın, ardından ekler için bir isim belirleyin.
6. "Tamam" düğmesine tıklayın; artık ekler aynı isimle yeniden adlandırılmış olur. Eğer yinelemeler varsa, bu yinelenen dosyalara son ek olarak sayılar eklenir.
Outlook'ta orijinal eklerle birlikte iletiyi yanıtlayın |
| Hepimizin bildiği gibi, Outlook'ta bir alıcıya ileti yanıtlarken ekler orijinal iletiden kaldırılır. Ekleri koruyarak iletiyi yanıtlamak istiyorsanız,Kutools for Outlook'nin Ekleyle Yanıtlaözelliğini deneyebilirsiniz; bu özellik, orijinal eklerle bir iletiyi yanıtlamanıza olanak tanır ve tüm iletiler için de çalışır.Tüm özellikleri görmek için 30 gün boyunca ücretsiz deneyin! |
 |
| Kutools for Outlook: Onlarca kullanışlı Outlook eklentisiyle 30 gün boyunca sınırsız olarak ücretsiz deneyin! |
Ekleri bir klasöre Kutools for Outlook ile yeniden adlandır ve kaydet
Aslında, Outlook için "Kutools" adlı kullanışlı eklenti aracında, kaydetmeden veya göndermeden önce tüm ekleri yeniden adlandırmanıza olanak tanıyan bir özellik bulunur.
Ücretsiz yükleyin Kutools for Outlook ve ardından aşağıdaki adımları uygulayın:
1. İstediğiniz e-postayı Gezinme Bölmesi’nde veya İleti Kutusu’nda etkinleştirdikten sonra, “Kutools” > “Ek Araçları” > “Tümünü Yeniden Adlandır” seçeneğine tıklayın.
2. Açılan iletişim kutusunda, her ek için kullanmak istediğiniz Yeni Ad’ı girin. “Tamam” düğmesine tıkladığınızda, ekler belirttiğiniz Yeni Ad ile yeniden adlandırılacaktır.
3. Bir ek üzerinde sağ tıklayın, "Tüm Ekleri Kaydet" seçeneğini seçin, ardından "Tamam" ve "Bir klasör seçin" düğmelerine tıklayarak ekleri istediğiniz şekilde kaydedin. Böylece yeniden adlandırılmış ekler belirttiğiniz klasöre kaydedilmiş olur.
En İyi Office Verimlilik Araçları
Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!
📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…
📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğer Özelliklere Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…
📁Ek Dosyalar Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…
🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…
👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing’e Karşı E-posta Koruma / 🕘Gönderenin Mevcut Saati ve Saat Dilimini Göster…
👩🏼🤝👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…
Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dili destekler!
🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin
Kesinlikle Önerilir: Kutools for Office (5’li Paket)
Beş yükleyiciyi tek tıklamaylabir seferde indirin —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!
- ✅Tek tıklamayla kullanım kolaylığı: Beş kurulum paketini tek bir işlemle indirin.
- 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
- 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint