Outlook'ta bir klasöre e-postanın eklerini nasıl yeniden adlandırabilir ve kaydedebilirim?
Görünümde, genellikle ekleri olan mesajlar alabilirsiniz ve mesajın eklerini yeniden adlandırmaya ve aşağıda gösterilen ekran görüntüsü gibi bir klasöre kaydetmeye çalışıyor musunuz? Açıkçası, onları bir klasöre kaydedebilir ve tek tek yeniden adlandırabilirsiniz, ancak aslında, bir VBA kodum var, aynı ada sahip tüm ekleri hızlı bir şekilde yeniden adlandırabilir ve ardından bir klasöre kaydedebilir.
Bir klasöre aynı ada sahip ekleri yeniden adlandırın ve kaydedin
Kutools for Outlook ile ekleri bir klasöre yeniden adlandırın ve kaydedin
Outlook'ta mesajı orijinal eklerle yanıtlayın
|
Hepimizin bildiği gibi, Outlook'ta alıcıya bir iletiyi yanıtladığınızda ekli ekler orijinal iletiden kaldırılacaktır. Ekleri koruyarak masaja cevap vermek istiyorsanız, deneyebilirsiniz. Outlook için Kutools's Ek ile yanıtla işlevi, bir mesajı orijinal eklerle yanıtlayabilir, ayrıca tüm messafe için de çalışır. Tüm özellikler için tıklayın 60 günlük ücretsiz deneme! |
|
Outlook için Kutools: düzinelerce kullanışlı Outlook eklentisiyle, 60 günde sınırlama olmaksızın ücretsiz olarak deneyin. |
- E-posta göndermeyi otomatikleştirin Otomatik CC / BCC, Otomatik İleri kurallara göre; Göndermek Otomatik cevap (Ofis Dışında) değişim sunucusu gerektirmeden...
- Şunun gibi hatırlatıcılar alın: BCC Uyarısı BCC listesindeyken herkese yanıt verirken ve Eksik Olduğunda Hatırlat Unutulan eklentiler için...
- E-posta verimliliğini artırın Yanıtla (Tümü) Eklerle birlikte, İmzaya veya Konuya Otomatik Selamlama veya Tarih ve Saat Ekleme, Birden Fazla E-postayı Yanıtlayın...
- E-posta göndermeyi kolaylaştırın E-postaları Geri Çağırma, Ek Araçları (Tümünü Sıkıştır, Tümünü Otomatik Kaydet...), Yinelemeleri Kaldır, ve Hızlı rapor...
Bir klasöre aynı ada sahip ekleri yeniden adlandırın ve kaydedin
1. Eklerini kaydetmek ve aynı isimle yeniden adlandırmak istediğiniz mesajı seçin.
2. Basın Alt + F11keys, sonra Project1 bölme, çift tıklama Bu OutlookOturumu sağ bölümde yeni bir boş komut dosyası oluşturmak için kodu kopyalayıp yapıştırın.
VBA: Ekleri yeniden adlandırın ve kaydedin
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. tık Tools > Referanslar, açılan iletişim kutusunda kontrol edin Microsoft Komut Dosyası Çalışma Zamanı onay kutusunu işaretleyin.
4. tık OK, basın F5 kodu çalıştırmak için anahtar, a Klasöre Göz At Eklerin yerleştirileceği bir klasör seçmek veya oluşturmak için iletişim kutusu açılır.
5. tık OK, ardından ekler için bir ad verin.
6. tık OK, şimdi ekler aynı adla yeniden adlandırılır, yinelenenler varsa, yinelenenler son ek olarak numaralar eklenecektir.
Kutools for Outlook ile ekleri bir klasöre yeniden adlandırın ve kaydedin
Aslında içinde bir özellik var Outlook için Kutools - Outlook'un kullanışlı bir eklenti aracı, kaydetmeden veya göndermeden önce tüm ekleri yeniden adlandırabilir.
Kutools for Outlook , Kapsar Microsoft Outlook 2016, 2013, 2010 ve Office 365 için güçlü özellikler ve araçlar. |
||
Ücretsiz kurulum Outlook için Kutools ve ardından aşağıdaki adımları uygulayın:
1. E-postayı olumsuz bölmede veya Mesaj kutusunda istediğiniz gibi etkinleştirin, Kutools > Ek Araçları > Tümünü yeniden adlandır.
2. Açılan iletişim kutusunda, her ek için kullandığınız yeni adı yazın. Tıklayın OK, ekler yeni adlarla yeniden adlandırıldı.
3. Bir eke sağ tıklayın, seçin Tüm Ekleri Kaydettık OK ve ihtiyaç duyduğunuz şekilde ekleri kaydetmek için bir klasör seçin. Ardından yeniden adlandırılan ekler bir klasöre kaydedildi.
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 Pro: Toplu 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.